Tokenize a string: Difference between revisions
added OpenEdge solution
(→{{header|Euphoria}}: Euphoria example added) |
(added OpenEdge solution) |
||
Line 892:
There is already a library function for joining:
<lang ocaml>String.concat sep strings</lang>
=={{header|OpenEdge/Progress}}==
<lang progress>FUNCTION tokenizeString RETURNS CHAR (
i_c AS CHAR
):
DEF VAR ii AS INT.
DEF VAR carray AS CHAR EXTENT.
DEF VAR cresult AS CHAR.
EXTENT( carray ) = NUM-ENTRIES( i_c ).
DO ii = 1 TO NUM-ENTRIES( i_c ):
carray[ ii ] = ENTRY( ii, i_c ).
END.
DO ii = 1 TO EXTENT( carray ).
cresult = cresult + "." + carray[ ii ].
END.
RETURN SUBSTRING( cresult, 2 ).
END FUNCTION. /* tokenizeString */
MESSAGE
tokenizeString( "Hello,How,Are,You,Today" )
VIEW-AS ALERT-BOX.</lang>
Output:
<pre>
---------------------------
Message
---------------------------
Hello.How.Are.You.Today
---------------------------
OK
---------------------------
</pre>
=={{header|Oz}}==
| |||