• Home
 · 
• String Manipulation
 · 
• Returns the Item Position of string within ListItems

Returns the Item Position of string within ListItems

Returns the Item Position of string within ListItems

Rate Returns the Item Position of string within ListItems

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'*******************************************************
' Purpose : Returns the Item Position of string within ListItems
' Author  : Avital
'*******************************************************
   
   Dim S1 As String, S2 As String
   Dim i As Integer, j As Integer
      
   S1 = sText & "": S2 = sItem & ""
   
   
   If S1 = "" Or S2 = "" Then Exit Function
   For i = 1 To Len(S1)
      If Mid$(sText, i, 1) = sSup Then j = j + 1
   Next i
   
   For i = 1 To j + 1
      If Trim(FindTextItem(sText, i, sSup)) = sItem Then InItems = i: Exit For
   Next i

End Function