25 lines
516 B
Plaintext
25 lines
516 B
Plaintext
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.
|