?? 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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -