' get the text enclosed between two Delimiters'' it advances Index after the close delimiter' Returns "" and Index = -1 if not found' search is case sensitive' ' For example:' Dim source As String = " a sentence with (a word) in parenthesis"' Dim i As Integer = 0' Console.WriteLine( GetDelimitedText(source, "(", ")", i) )' displays "a word" and sets "i" pointing after the ")" charFunction GetDelimitedText(ByVal Text As String, ByVal OpenDelimiter As String, _ ByVal CloseDelimiter As String, ByRef index As Integer) As String Dim i As Integer, j As Integer If index < 0 Then index = 0 ' search the opening mark i = Text.IndexOf(OpenDelimiter, index) If i < 0 Then index = -1 Exit Function End If i = i + OpenDelimiter.Length ' search the closing mark j = Text.IndexOf(CloseDelimiter, i) If j < 0 Then index = -1 Exit Function End If ' get the text between the two Delimiters GetDelimitedText = Text.Substring(i, j - i) ' advance the index after the closing Delimiter index = j + CloseDelimiter.LengthEnd 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.
