• Home
 · 
• String Manipulation
 · 
• StrCount function

StrCount function

Function that counts the occurrance of a given phrase in a larger string.
(I needed this function and couldn't find anything like it in MSDN for VB)

Inputs
cToSearch: The string to search. cSearchPhrase: The phrase to count

Assumes
Included the check on the length of the SearchPhrase, in order to prevent a division by zero.

Returns
The number of occurrances found.

Rate StrCount function

• 1
• 2
• 3
• 4
• 5

(7(7 Vote))

Public Function StrCount(ByVal cToSearch As String, ByVal cSearchPhrase As String) As Long
 Dim nDifference As Long  ' The difference in length after the replace
 
 ' Is there anything to search?
 If Len(cSearchPhrase) > 0 Then
  nDifference = Len(cToSearch) - Len(Replace(cToSearch, cSearchPhrase, ""))
  StrCount = nDifference / Len(cSearchPhrase)
 Else
  StrCount = 0
 End If
 
End Function