Tokenize a string: Difference between revisions

=={{header|Modula-3}}==

<lang modula3>MODULE Tokenize EXPORTS Main;

IMPORT IO, TextConv;

VAR tokens: ARRAY [1..5] OF TEXT;

sep := SET OF CHAR {','};

BEGIN

TextConv.Explode("Hello,How,Are,You,Today", tokens, sep);

FOR i := FIRST(tokens) TO LAST(tokens) DO

IO.Put(tokens[i] & ".");

END;

IO.Put("\n");

END Tokenize.</lang>