Tokenize a string: Difference between revisions

Content added Content deleted

Inline

@@ Line 341: / Line 341: @@
 IMPORT IO, TextConv;
-VAR tokens: ARRAY [1..5] OF TEXT;
+TYPE Texts = REF ARRAY OF TEXT;
+VAR tokens: Texts;
+    string := "Hello,How,Are,You,Today";
     sep := SET OF CHAR {','};
 BEGIN
-  TextConv.Explode("Hello,How,Are,You,Today", tokens, sep);
+  tokens := NEW(Texts, TextConv.ExplodedSize(string, sep));
+  TextConv.Explode(string, tokens^, sep);
-  FOR i := FIRST(tokens) TO LAST(tokens) DO
+  FOR i := FIRST(tokens^) TO LAST(tokens^) DO
     IO.Put(tokens[i] & ".");
   END;