devxlogo

GetDelimitedText – Extract the text between open and close delimiters

GetDelimitedText – Extract the text between open and close delimiters

' 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

See also  How IoT Tech Will Transform Logistics
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist