Annotation 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	james	32	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$