Contents of /archive/wimplibs/String/1

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$
1	REM > JLibraries:String.1
2
3	DEF FNString_Lower(Text$)
4	LOCAL Resu$, Loop%, Char%
5	IF Text$ = "" THEN =""
6	Resu$ = ""
7	FOR Loop% = 1 TO LEN(Text$)
8	Char% = ASC(MID$(Text$, Loop%, 1))
9	IF Char% > 64 AND Char% < 91 THEN Char% += 32
10	Resu$ += CHR$(Char%)
11	NEXT
12	=Resu$
13
14	REM ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜
15
16	DEF PROCString_Replace(RETURN Text$, Find$, Repl$)
17	LOCAL Find%
18	Find% = INSTR(Text$, Find$)
19	WHILE Find%
20	MID$(Text$, Find%) = Repl$
21	Find% = INSTR(Text$, Find$)
22	ENDWHILE
23	ENDPROC
24
25	REM ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜
26
27	DEF FNString_Replace(Text$, Find$, Repl$)
28	LOCAL Find%
29	Find% = INSTR(Text$, Find$)
30	WHILE Find%
31	MID$(Text$, Find%) = Repl$
32	Find% = INSTR(Text$, Find$)
33	ENDWHILE
34	=Text$