Android Code Snippet CountChar() Count the number of times a char appears in a string.

' Counts the number of times a string or char appears in a string.
' Param - SearchMe, the string to be searched
' Param - FindMe, the string or char to search for
public Sub CountString(SearchMe As String, FindMe As String) As Int
   
    Dim NumFound As Int = 0
   
    Dim P As Int = SearchMe.IndexOf(FindMe)
    Do Until P < 0    'IndexOf functions return -1 if not found
        NumFound = NumFound + 1
        P = SearchMe.IndexOf2(FindMe, P + 1)    'continue search at next char after previous occurrence
    Loop
   
    Return NumFound
   
End Sub