Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
Mar 24, 2003

CountOccurrences - Counting the number of string occurrences

' 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
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date