Binaryworld - SearchString - Searching a string in case [in]sensitive mode ... [ VB.net -> String ]

' 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