RosettaCodeData/Task/Tokenize-a-string/Run-BASIC/tokenize-a-string.basic

6 lines
116 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
text$ = "Hello,How,Are,You,Today"
FOR i = 1 to 5
textArray$(i) = word$(text$,i,",")
print textArray$(i);" ";
NEXT