Development‎ > ‎VBScript‎ > ‎

Find element in the array


'*********************************************************************************
'* Function signature:
'* Description:
'*                  
'*
'* Parameters
'*
'*
'*
'* Return Value
'*
'*********************************************************************************
Function array_ContainsElement(aArray, sElement)
   array_ContainsElement = -1
 
  Dim iIndex
    For iIndex = 0 to uBound(aArray)
        If sElement = aArray(iIndex) Then
          array_ContainsElement = iIndex
            Exit function
      End If
  Next
End Function

Comments