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" ? |
"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}}== |