Returns a specific token from a delimited string list.

Category:

String Manipulation

Type:

Snippets

Difficulty:

Beginning

Author:

Troy DeMonbreun

Version Compatibility:

More information:

Returns : [string] "Token" (section of data) from a list of delimited string data

Requires : [string] delimited data, [integer] index of desired section, [string] delimiter (1 or more chars)

Examples : GetToken("steve@hotmail.com", 2, "@") returns "hotmail.com"
GetToken("123-45-6789", 2, "-") returns "45"
GetToken("first,middle,last", 3, ",") returns "last"

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

'-------------------------------------------------------
     ' Author   : Troy DeMonbreun (vb@8x.com)
     '
     ' Revised  : 12/22/1998
     '-----------------------------------------------------------

Function GetToken(ByVal strVal As String, intIndex As Integer, _
	strDelimiter As String) As String

Dim strSubString() As String
         Dim intIndex2 As Integer
         Dim i As Integer
         Dim intDelimitLen As Integer

intIndex2 = 1
         i = 0
         intDelimitLen = Len(strDelimiter)

Do While intIndex2 > 0
         
             ReDim Preserve strSubString(i + 1)
             
             intIndex2 = InStr(1, strVal, strDelimiter)
         
             If intIndex2 > 0 Then
                 strSubString(i) = Mid(strVal, 1, (intIndex2 - _
                    1))
                 strVal = Mid(strVal, (intIndex2 + _
                   intDelimitLen), Len(strVal))
             Else
                 strSubString(i) = strVal
             End If
             
             i = i + 1
             
         Loop

If intIndex > (i + 1) Or intIndex < 1 Then
             GetToken = ""
         Else
             GetToken = strSubString(intIndex - 1)
         End If

End Function