Split a character string based on change of character: Difference between revisions

Content added Content deleted
Line 254: Line 254:


DEF FN_split$( s$ )
DEF FN_split$( s$ )
LOCAL c$, d$, i%
LOCAL c$, split$, d$, i%
c$ = LEFT$( s$, 1 )
c$ = LEFT$( s$, 1 )
split$ = ""
split$ = ""
Line 268: Line 268:
{{out}}
{{out}}
<pre>g, HHH, 5, YY, ++, ///, \</pre>
<pre>g, HHH, 5, YY, ++, ///, \</pre>

=={{header|ANSI BASIC}}==
=={{header|ANSI BASIC}}==
<lang ansibasic>REM >split
<lang ansibasic>REM >split