mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-31 04:10:15 +00:00
29 lines
778 B
QBasic
29 lines
778 B
QBasic
|
'
|
||
|
' String manipulation functions
|
||
|
'
|
||
|
|
||
|
FUNCTION StrRemove$ (myString$, whatToRemove$) 'noncase sensitive
|
||
|
a$ = myString$
|
||
|
b$ = LCASE$(whatToRemove$)
|
||
|
i = INSTR(LCASE$(a$), b$)
|
||
|
DO WHILE i
|
||
|
a$ = LEFT$(a$, i - 1) + RIGHT$(a$, LEN(a$) - i - LEN(b$) + 1)
|
||
|
i = INSTR(LCASE$(a$), b$)
|
||
|
LOOP
|
||
|
StrRemove$ = a$
|
||
|
END FUNCTION
|
||
|
|
||
|
FUNCTION StrReplace$ (myString$, find$, replaceWith$) 'noncase sensitive
|
||
|
IF LEN(myString$) = 0 THEN EXIT FUNCTION
|
||
|
a$ = myString$
|
||
|
b$ = LCASE$(find$)
|
||
|
basei = 1
|
||
|
i = INSTR(basei, LCASE$(a$), b$)
|
||
|
DO WHILE i
|
||
|
a$ = LEFT$(a$, i - 1) + replaceWith$ + RIGHT$(a$, LEN(a$) - i - LEN(b$) + 1)
|
||
|
basei = i + LEN(replaceWith$)
|
||
|
i = INSTR(basei, LCASE$(a$), b$)
|
||
|
LOOP
|
||
|
StrReplace$ = a$
|
||
|
END FUNCTION
|