devxlogo

CountOccurrences – Counting the number of string occurrences

CountOccurrences – Counting the number of string occurrences

' Count the number of string occurrencesPublic 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.CountEnd Function' Count the number of string occurrencesPublic 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

devx-admin

Share the Post: