REM > JLibraries:String.1

DEF FNString_Lower(Text$)
LOCAL Resu$, Loop%, Char%
IF Text$ = "" THEN =""
Resu$ = ""
 FOR Loop% = 1 TO LEN(Text$)
  Char% = ASC(MID$(Text$, Loop%, 1))
  IF Char% > 64 AND Char% < 91 THEN Char% += 32
  Resu$ += CHR$(Char%)
 NEXT
=Resu$

REM ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜

DEF PROCString_Replace(RETURN Text$, Find$, Repl$)
LOCAL Find%
Find% = INSTR(Text$, Find$)
 WHILE Find%
  MID$(Text$, Find%) = Repl$
  Find% = INSTR(Text$, Find$)
 ENDWHILE
ENDPROC

REM ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜

DEF FNString_Replace(Text$, Find$, Repl$)
LOCAL Find%
Find% = INSTR(Text$, Find$)
 WHILE Find%
  MID$(Text$, Find%) = Repl$
  Find% = INSTR(Text$, Find$)
 ENDWHILE
=Text$