Split a character string based on change of character: Difference between revisions
Content added Content deleted
(Split a character string based on change of character en BASIC256) |
(Split a character string based on change of character en Yabasic) |
||
Line 725: | Line 725: | ||
=={{header|BASIC256}}== |
=={{header|BASIC256}}== |
||
<lang freebasic>function split$(instring$) |
<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 |
next i |
||
return ret$ |
|||
end function |
end function |
||
Line 2,506: | Line 2,506: | ||
g, HHH, 5, YY, ++, ///, \ |
g, HHH, 5, YY, ++, ///, \ |
||
</pre> |
</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}}== |
=={{header|Z80 Assembly}}== |