Data commit

Task/Tokenize-a-string/OpenEdge-Progress/tokenize-a-string.openedge

@@ -0,0 +1,24 @@
+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.