• Home
 · 
• String Manipulation
 · 
• Token Routine - sGetToken

Token Routine - sGetToken

Token Routine - sGetToken

API Declarations


' This is the first template that has been
' submitted from inside Slice and Dice
' I can now import a vbcode.com code snippet
' as a Slice and Dice Template
' And submite a Slice and Dice Template
' as a vbcode.com code snippet.
'
' Cool, no ?




Rate Token Routine - sGetToken

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' Synopsis          Returns the Nth Token from sAllTokens delimited by sDelim
'
' Parameters
'
'   sAllTokens                 (I) Required. The string containing all the tokens
'   iToken                      (I) Optional. The index of the token to return
'                                   DEFAULT = 1
'   siDelim                     (I) Optional. The delimiter string that separates
'                                   the tokens. DEFAULT = " "
' Description
'  For the following:
'    sAllTokens         iToken   sDelim  Returns       Notes
'   "William M Rawls"    1       " "     "William"      First word
'   "William M Rawls"    2       " "     "M"            Second word
'   "William M Rawls"    3       " "     "Rawls"        Third word
'   "William M Rawls"    4       " "     ""             No forth word
'   "William M Rawls"    0       " "     ""             Zeroth token is always empty
'   "William M Rawls"   -1       " "     ""             Negative tokesn always empty
'   "William M Rawls"    1       ""      ""             No delimiter ? Token empty

Public Function sGetToken(ByVal sAllTokens As String, Optional ByVal iToken As Integer = 1, Optional ByVal sDelim As String = " ") As String
    Static iCurTokenLocation As Long ' Character position of the first delimiter string
    Static nDelim As Integer            ' Length of the delimiter string
    nDelim = Len(sDelim)

    If iToken < 1 Or nDelim < 1 Then
     ' Negative or zeroth token or empty delimiter strings mean an empty token
       Exit Function
    ElseIf iToken = 1 Then
     ' Quickly extract the first token
       iCurTokenLocation = InStr(sAllTokens, sDelim)
       If iCurTokenLocation > 1 Then
          sGetToken = Left(sAllTokens, iCurTokenLocation - 1)
       ElseIf iCurTokenLocation = 1 Then
          sGetToken = ""
       Else
          sGetToken = sAllTokens
       End If
       Exit Function
    Else
     ' Find the Nth token
       Do
          iCurTokenLocation = InStr(sAllTokens, sDelim)
          If iCurTokenLocation = 0 Then
             Exit Function
          Else
             sAllTokens = Mid(sAllTokens, iCurTokenLocation + nDelim)
          End If
          iToken = iToken - 1
       Loop Until iToken = 1

     ' Extract the Nth token (Which is the next token at this point)
       iCurTokenLocation = InStr(sAllTokens, sDelim)
       If iCurTokenLocation > 0 Then
          sGetToken = Left(sAllTokens, iCurTokenLocation - 1)
          Exit Function
       Else
          sGetToken = sAllTokens
          Exit Function
       End If
    End If
End Function