GetItemPosFromArray

Function GetItemPosFromArray(sList() as string, sItem as String)
 
Die Funktion gibt das erste Auftreten eines Strings in einem Array von Strings zurück.
  
 
Function GetItemPosFromArray(sList() as string, sItem as String) as integer
Dim ItemList()
Dim MaxIndex as Integer
Dim i as Integer
     MaxIndex = Ubound(sList())     
     For i = 0 To MaxIndex-1
          If sItem = sList(i) Then
               GetItemPosFromArray() = i
               Exit Function
          End If
     Next i
End Function