15 lines
356 B
Plaintext
15 lines
356 B
Plaintext
FUNCTION Url_Decode$(url$)
|
|
|
|
LOCAL result$
|
|
|
|
SPLIT url$ BY "%" TO item$ SIZE total
|
|
FOR x = 1 TO total-1
|
|
result$ = result$ & CHR$(DEC(LEFT$(item$[x], 2))) & MID$(item$[x], 3)
|
|
NEXT
|
|
RETURN item$[0] & result$
|
|
|
|
END FUNCTION
|
|
|
|
PRINT Url_Decode$("http%3A%2F%2Ffoo%20bar%2F")
|
|
PRINT Url_Decode$("google.com/search?q=%60Abdu%27l-Bah%C3%A1")
|