23 lines
534 B
Plaintext
23 lines
534 B
Plaintext
PRINT FNurldecode("http%3A%2F%2Ffoo%20bar%2F")
|
|
END
|
|
|
|
DEF FNurldecode(url$)
|
|
LOCAL i%
|
|
REPEAT
|
|
i% = INSTR(url$, "%", i%+1)
|
|
IF i% THEN
|
|
url$ = LEFT$(url$,i%-1) + \
|
|
\ CHR$EVAL("&"+FNupper(MID$(url$,i%+1,2))) + \
|
|
\ MID$(url$,i%+3)
|
|
ENDIF
|
|
UNTIL i% = 0
|
|
= url$
|
|
|
|
DEF FNupper(A$)
|
|
LOCAL A%,C%
|
|
FOR A% = 1 TO LEN(A$)
|
|
C% = ASCMID$(A$,A%)
|
|
IF C% >= 97 IF C% <= 122 MID$(A$,A%,1) = CHR$(C%-32)
|
|
NEXT
|
|
= A$
|