QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-03 07:41:21 +00:00
Code Releases Wiki Activity

Makes strings.bas $includable by option _explicit projects

Browse source
This commit is contained in:
Fellippe Heitor 2021-03-10 17:22:37 -03:00
parent 64ea6d64ca
commit 532ade2d8e
1 changed files with 33 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
source/utilities/strings.bas
View file

@ -3,6 +3,9 @@
'
FUNCTION StrRemove$ (myString$, whatToRemove$) 'noncase sensitive
DIM a$, b$
DIM AS LONG i
a$ = myString$
b$ = LCASE$(whatToRemove$)
i = INSTR(LCASE$(a$), b$)
@ -14,6 +17,8 @@ FUNCTION StrRemove$ (myString$, whatToRemove$) 'noncase sensitive
END FUNCTION
FUNCTION StrReplace$ (myString$, find$, replaceWith$) 'noncase sensitive
DIM a$, b$
DIM AS LONG basei, i
IF LEN(myString$) = 0 THEN EXIT FUNCTION
a$ = myString$
b$ = LCASE$(find$)