Binaryworld - GetDelimitedText - Extract the text between open and close delimiters ... [ VB -> String ]

' get the text enclosed between two Delimiters
'
' it advances Index after the close delimiter
' Returns "" and Index = 0 if not found
' search is case insensitive

Function GetDelimitedText(Text As String, OpenDelimiter As String, _
  CloseDelimiter As String, index As Long) As String
  Dim i As Long, j As Long

  If index = 0 Then index = 1

  ' search the opening mark
  i = InStr(index, Text, OpenDelimiter, vbTextCompare)
  If i = 0 Then
    index = 0
    Exit Function
  End If
  i = i + Len(OpenDelimiter)

  ' search the closing mark
  j = InStr(i + 1, Text, CloseDelimiter, vbTextCompare)
  If j = 0 Then
    index = 0
    Exit Function
  End If

  ' get the text between the two Delimiters
  GetDelimitedText = Mid$(Text, i, j - i)

  ' advanced the index after the closing Delimiter
  index = j + Len(CloseDelimiter)

End Function