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

EndsWith - Check whether a string ends with one of multiple possible choices

' Check whether a string ends with one of multiple possible choices.
' Return -1 if no possible string matches the end of the source,
'  otherwise return the index of the matching string.
'
' Examples:
'    Debug.WriteLine(EndsWith("This is my test line", True, "Line",
'  "String")) ' => -1
'    Debug.WriteLine(EndsWith("This is my test line", True, "string",
'  "line")) ' => 1
'    Debug.WriteLine(EndsWith("This is my test line", False, "Line",
'  "String")) ' => 0
'    Debug.WriteLine(EndsWith("This is my test line", False, "string",
'  "sentence")) ' => -1

Function EndsWith(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.EndsWith(part) Then Return i
        Else
            If source.ToLower().EndsWith(part.ToLower()) Then Return i
        End If
    Next
    ' if we get here, the source does not end 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