Tokenize a string: Difference between revisions

Content deleted Content added

Inline

@@ Line 369: / Line 369: @@
    io:fwrite("~s~n", [string:join(Lst,".")]),
    ok.</lang>
+=={{header|Euphoria}}==
+<lang euphoria>function split(sequence s, integer c)
+    sequence out
+    integer first, delim
+    out = {}
+    first = 1
+    while first<=length(s) do
+        delim = find_from(c,s,first)
+        if delim = 0 then
+            delim = length(s)+1
+        end if
+        out = append(out,s[first..delim-1])
+        first = delim + 1
+    end while
+    return out
+end function
+sequence s
+s = split("Hello,How,Are,You,Today", ',')
+for i = 1 to length(s) do
+    puts(1, s[i] & ',')
+end for</lang>
 =={{header|Factor}}==