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:40, 7 March 2022
, 2 years agoSplit a character string based on change of character en BASIC256
(Split a character string based on change of character en BASIC256) |
|||
Line 722:
g, HHH, 5, YY, ++, ///, \
</pre>
=={{header|BASIC256}}==
<lang freebasic>function split$(instring$)
if length(instring$) < 2 then return instring$
ret$ = left(instring$,1)
for i = 2 to length(instring$)
if mid(instring$,i,1) <> mid(instring$, i-1, 1) then ret$ += ", "
ret$ += mid(instring$, i, 1)
next i
return ret$
end function
print split$("gHHH5YY++///\")</lang>
=={{header|BBC BASIC}}==
| |||