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