Tokenize a string: Difference between revisions
Content added Content deleted
mNo edit summary |
Not a robot (talk | contribs) (Add CLU) |
||
Line 1,253: | Line 1,253: | ||
Using the clojure.string library: |
Using the clojure.string library: |
||
<lang clojure>(clojure.string/join "." (clojure.string/split "Hello,How,Are,You,Today" #","))</lang> |
<lang clojure>(clojure.string/join "." (clojure.string/split "Hello,How,Are,You,Today" #","))</lang> |
||
=={{header|CLU}}== |
|||
<lang clu>% This iterator splits the string on a given character, |
|||
% and returns each substring in order. |
|||
tokenize = iter (s: string, c: char) yields (string) |
|||
while ~string$empty(s) do |
|||
next: int := string$indexc(c, s) |
|||
if next = 0 then |
|||
yield(s) |
|||
break |
|||
else |
|||
yield(string$substr(s, 1, next-1)) |
|||
s := string$rest(s, next+1) |
|||
end |
|||
end |
|||
end tokenize |
|||
start_up = proc () |
|||
po: stream := stream$primary_output() |
|||
str: string := "Hello,How,Are,You,Today" |
|||
for part: string in tokenize(str, ',') do |
|||
stream$putl(po, part || ".") |
|||
end |
|||
end start_up</lang> |
|||
{{out}} |
|||
<pre>Hello. |
|||
How. |
|||
Are. |
|||
You. |
|||
Today.</pre> |
|||
=={{header|COBOL}}== |
=={{header|COBOL}}== |