modstringhandler.bas

下载后

Attribute VB_Name = "modStringHandler"
Option Explicit

Function GetFirstToken(StrIn As String, Delim As String) As String

  ' Gets the portion of String "S", up to the
  ' first occurrance of delimiter "D"
  
  ' Returns String token "T"
  
  Dim Split As Long
  Dim Tok As String
  StrIn = Trim$(StrIn)

  Split = InStr(1, StrIn, Delim)
  If (Split <= 0) Then
    
    ' No delimiter in the string. Return the whole thing.
    
    Tok = StrIn
  Else
    
    '  Get everything up to the first delimiter.
    
    Tok = (Trim$(Left$(StrIn, Split - 1)))
  End If

  GetFirstToken = Tok

End Function