2017-09-23 10:01:46 +02:00
|
|
|
' Tokenize a string
|
|
|
|
|
OPTION BASE 1
|
2014-01-17 05:32:22 +00:00
|
|
|
|
2017-09-23 10:01:46 +02:00
|
|
|
READ csv$
|
|
|
|
|
DATA "Hello,How,Are,You,Today"
|
|
|
|
|
|
|
|
|
|
SPLIT csv$ BY "," TO elements$ SIZE n
|
|
|
|
|
|
|
|
|
|
FOR i = 1 TO n
|
|
|
|
|
PRINT elements$[i] FORMAT "%s"
|
|
|
|
|
IF i < n THEN PRINT "." FORMAT "%s"
|
|
|
|
|
NEXT
|
|
|
|
|
PRINT
|
