Tokenize a string: Difference between revisions

Content added Content deleted
No edit summary
Line 1,655: Line 1,655:
<lang icon>procedure main()
<lang icon>procedure main()
A := []
A := []
"Hello,How,Are,You,Today" ? while put(A, 1(tab(upto(',')|0),=","))
"Hello,How,Are,You,Today" ? {
while put(A, 1(tab(upto(',')|0),=","))
put(A,tab(0))
}
every writes(!A,".")
every writes(!A,".")
write()
write()
Line 1,663: Line 1,666:
<pre>
<pre>
->ss
->ss
Hello.How.Are.You.
Hello.How.Are.You.Today.
->
->
</pre>
</pre>

A Unicon-specific solution is:
<lang unicon>import util

procedure main()
A := stringToList("Hello,How,Are,You,Today", ',')
every writes(!A,".")
write()
end</lang>


=={{header|Io}}==
=={{header|Io}}==