RosettaCodeData/Task/Tokenize-a-string/PureBasic/tokenize-a-string-1.basic
2023-07-01 13:44:08 -04:00

10 lines
179 B
Text

NewList MyStrings.s()
For i=1 To 5
AddElement(MyStrings())
MyStrings()=StringField("Hello,How,Are,You,Today",i,",")
Next i
ForEach MyStrings()
Print(MyStrings()+".")
Next