Anonymous user
Split a character string based on change of character: Difference between revisions
Split a character string based on change of character (view source)
Revision as of 15:11, 19 October 2018
, 5 years agomoved ANSI BASIC to it's proper place alphabetically.
m (moved ANSI BASIC to it's proper place alphabetically.) |
|||
Line 22:
should be split and show:
<big><big> g, HHH, 5, YY, ++, ///, \ </big></big>
<br><br>
=={{header|Ada}}==
<lang ada>
Line 80:
g, HHH, 5, YY, ++, ///, \
</pre>
=={{header|ANSI BASIC}}==▼
<lang ansibasic>REM >split▼
DECLARE EXTERNAL FUNCTION FN_split$▼
PRINT FN_split$( "gHHH5YY++///\" )▼
END▼
EXTERNAL FUNCTION FN_split$( s$ )▼
LET c$ = s$(1:1)▼
LET split$ = ""▼
FOR i = 1 TO LEN(s$)▼
LET d$ = s$(i:i)▼
IF d$ <> c$ THEN▼
LET split$ = split$ & ", "▼
LET c$ = d$▼
END IF▼
LET split$ = split$ & d$▼
NEXT i▼
LET FN_split$ = split$▼
END FUNCTION</lang>▼
{{out}}▼
<pre>g, HHH, 5, YY, ++, ///, \</pre>▼
=={{header|AppleScript}}==
Line 202 ⟶ 225:
{{Out}}
<pre>g, HHH, 5, YY, ++, ///, \</pre>
=={{header|AWK}}==
<lang AWK>
Line 266 ⟶ 290:
NEXT
= split$</lang>
▲{{out}}
▲<pre>g, HHH, 5, YY, ++, ///, \</pre>
▲=={{header|ANSI BASIC}}==
▲<lang ansibasic>REM >split
▲DECLARE EXTERNAL FUNCTION FN_split$
▲PRINT FN_split$( "gHHH5YY++///\" )
▲END
▲EXTERNAL FUNCTION FN_split$( s$ )
▲LET c$ = s$(1:1)
▲LET split$ = ""
▲FOR i = 1 TO LEN(s$)
▲ LET d$ = s$(i:i)
▲ IF d$ <> c$ THEN
▲ LET split$ = split$ & ", "
▲ LET c$ = d$
▲ END IF
▲ LET split$ = split$ & d$
▲NEXT i
▲LET FN_split$ = split$
▲END FUNCTION</lang>
{{out}}
<pre>g, HHH, 5, YY, ++, ///, \</pre>
| |||