Easy Tokenizer
Break up variables in a string, whatever separator is used.
AI
ИИ-обзор: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Исходный код
Private Sub Form_Load()
Dim tk As TokenList
Dim strTest As String
Dim strSeparator As String
strTest = "String, Tokenization, By, Paul, Crowdy, www.kmcpartnership.co.uk"
strSeparator = ", "
tk = Tokenize(strTest, strSeparator)
For i = 0 To tk.TokenCount - 1
MsgBox "Token " & i + 1 & " = " & tk.Tokens(i), vbInformation, strTest
Next i
End
End Sub
Оригинальные комментарии (3)
Восстановлено из Wayback Machine