mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-06 01:10:23 +00:00
Makes strings.bas $includable by option _explicit projects
This commit is contained in:
parent
64ea6d64ca
commit
532ade2d8e
|
@ -3,6 +3,9 @@
|
||||||
'
|
'
|
||||||
|
|
||||||
FUNCTION StrRemove$ (myString$, whatToRemove$) 'noncase sensitive
|
FUNCTION StrRemove$ (myString$, whatToRemove$) 'noncase sensitive
|
||||||
|
DIM a$, b$
|
||||||
|
DIM AS LONG i
|
||||||
|
|
||||||
a$ = myString$
|
a$ = myString$
|
||||||
b$ = LCASE$(whatToRemove$)
|
b$ = LCASE$(whatToRemove$)
|
||||||
i = INSTR(LCASE$(a$), b$)
|
i = INSTR(LCASE$(a$), b$)
|
||||||
|
@ -14,6 +17,8 @@ FUNCTION StrRemove$ (myString$, whatToRemove$) 'noncase sensitive
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
FUNCTION StrReplace$ (myString$, find$, replaceWith$) 'noncase sensitive
|
FUNCTION StrReplace$ (myString$, find$, replaceWith$) 'noncase sensitive
|
||||||
|
DIM a$, b$
|
||||||
|
DIM AS LONG basei, i
|
||||||
IF LEN(myString$) = 0 THEN EXIT FUNCTION
|
IF LEN(myString$) = 0 THEN EXIT FUNCTION
|
||||||
a$ = myString$
|
a$ = myString$
|
||||||
b$ = LCASE$(find$)
|
b$ = LCASE$(find$)
|
||||||
|
|
Loading…
Reference in a new issue