Strip a set of characters from a string: Difference between revisions
Strip a set of characters from a string (view source)
Revision as of 23:01, 12 June 2022
, 1 year agoStrip a set of characters from a string in True BASIC
(Strip a set of characters from a string in True BASIC) |
|||
Line 2,396:
Sh ws soul strppr. Sh took my hrt!
</pre>
=={{header|True BASIC}}==
<lang qbasic>FUNCTION stripchars$(text$, remove$)
LET s$ = text$
FOR i = 1 TO LEN(remove$)
DO
LET t = POS(s$, (remove$)[i:i])
IF t <> 0 THEN LET s$ = (s$)[1:t-1] & (s$)[t+1:maxnum] ELSE EXIT DO
LOOP
NEXT i
LET stripchars$ = s$
END FUNCTION
PRINT stripchars$("She was a soul stripper. She took my heart!", "aei")
END</lang>
=={{header|TUSCRIPT}}==
| |||