Modified to:
[code=thinbasic]
Dim sMainString As String VALUE "THIS,IS,MY,STRING" '
Dim ArrayName() As String
Dim Delimiter As String VALUE "," ' Character used to seperate
DIM nTokens As DWord
Dim Counter As DWord
Dim sMsg As String
sMsg = "SMainString = " & sMainString & $CRLF & $CRLF
sMsg += "Delimiter = " & Delimiter & $CRLF & $CRLF
nTokens = SPLIT(sMainString, Delimiter, ArrayName)
sMsg += "Tokens found = " & nTokens & $CRLF & $CRLF
sMsg += "Tokens are the following:" & $CRLF
For Counter = 1 to nTokens
sMsg += format$(Counter, "000") & $TAB & ArrayName(Counter) & $CRLF
next
MSGBOX 0, sMsg
[/code]
Bookmarks