' Search the specified string, with the case-sensitive mode or not' Returns the index of the first occurrence found, or -1 if not foundPublic 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 IfEnd 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 foundPublic 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 IfEnd Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
