'2018-06-06T04:08:18
'SPLIT AND JOIN
uses Console
uses ParseUtil
string s
string t
string a[100]
int c
s=`one two,"three and 'four'", "five and six",(seven,eight),"nine" `
print s cr string(len(s),"=") cr cr
split(s,a,100,c)
int i
for i=1 to c
print i tab a[i] cr
next
join(a,c,chr(34),chr(34,44),t)
print cr t cr
wait
