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

SearchString - Searching a string in case [in]sensitive mode

' Search the specified string, with the case-sensitive mode or not
' Returns the index of the first occurrence found, or -1 if not found

Public Function SearchString(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 m As System.Text.RegularExpressions.Match = _
        System.Text.RegularExpressions.Regex.Match(source, search, options)

    If m.Success Then
        Return m.Index
    Else
        Return -1
    End If
End Function


' Search the specified string, starting at the specified index,
'  with the case-sensitive mode or not
' Returns the index of the first occurrence found, or -1 if not found

Public Function SearchString(ByVal source As String, _
    ByVal startIndex As Integer, ByVal search As String, _
    Optional ByVal ignoreCase As Boolean = False) As Integer
    Dim options As System.Text.RegularExpressions.RegexOptions
    Dim i As Integer = SearchString(source.Substring(startIndex), search, _
        ignoreCase)
    If i = -1 Then
        Return -1
    Else
        Return i + startIndex
    End If
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