Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
Sep 28, 2002

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 ")" char

Function 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.Length

End Function

Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date