Binaryworld - EndsWith - Check whether a string ends with one of multiple possible c ... [ VB.net -> String ]

' 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