Binaryworld - CountOccurrences - Counting the number of string occurrences ... [ VB.net -> String ]

' Count the number of string occurrences
Public Function CountOccurrences(ByVal source As String, ByVal search As String, _
  Optional ByVal ignoreCase As Boolean = False) As Integer
  Dim options As System.Text.RegularExpressions.RegexOptions
  ' set the search options according to the ignoreCase parameter
  If ignoreCase Then
    options = System.Text.RegularExpressions.RegexOptions.IgnoreCase
  Else
    options = System.Text.RegularExpressions.RegexOptions.None
  End If

  ' count the occurrences
  Dim mc As System.Text.RegularExpressions.MatchCollection = _
    System.Text.RegularExpressions.Regex.Matches(source, search, options)
  Return mc.Count
End Function

' Count the number of string occurrences
Public Function CountOccurrences(ByVal source As String, _
  ByVal startIndex As Integer, ByVal search As String, _
  Optional ByVal ignoreCase As Boolean = False) As Integer
  Return CountOccurrences(source.Substring(startIndex), search, ignoreCase)
End Function