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: beginner
Jul 28, 2003

StartsWith - Check whether a string starts with one of multiple possible choices

' Check whether a string starts with one of multiple possible choices.
' Return -1 if no possible string matches the start of the source,
'  otherwise return the index of the matching string.
'
' Examples:
'    Debug.WriteLine(StartsWith("This is my test line", True, "this",
'  "that")) ' => -1
'    Debug.WriteLine(StartsWith("This is my test line", True, "That",
'  "This")) ' => 1
'    Debug.WriteLine(StartsWith("This is my test line", False, "this",
'  "that")) ' => 0
'    Debug.WriteLine(StartsWith("This is my test line", False, "That",
'  "Those")) ' => -1

Function StartsWith(ByVal source As String, ByVal caseSensitive As Boolean, _
    ByVal ParamArray parts() As String) As Integer
    Dim i As Integer
    For i = 0 To parts.Length - 1
        Dim part As String = parts(i)
        If caseSensitive Then
            If source.StartsWith(part) Then Return i
        Else
            If source.ToLower().StartsWith(part.ToLower()) Then Return i
        End If
    Next
    ' if we get here, the source does not start with one of the possible 
    ' choices, so return -1
    Return -1
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