• Home
 · 
• String Manipulation
 · 
• Find Number Of Occurances Of A Given Substring In A Given Main String

Find Number Of Occurances Of A Given Substring In A Given Main String

Find Number Of Occurances Of A Given Substring In A Given Main String

API Declarations


'Simple Function To Find Number Of Occurances Of A Given Substring In A Main String
'Just pass 2 srtings to the given Function
'***************************************************************************




Rate Find Number Of Occurances Of A Given Substring In A Given Main String

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim LenStr, i, LenSearch, GotChar, j
    LenStr = Len(searchin)
    LenSearch = Len(searchfor)
    i = 1
    While i <= LenStr
        GotChar = Mid(searchin, i, LenSearch)
        If GotChar = searchfor Then
            j = j + 1
            i = i + LenSearch
        Else
            i = i + 1
        End If 
    Wend
    MsgBox "'" & searchfor & "' occures '" & CStr(j) & "' times in '" & searchin & "'"
End Function