Encodes a string so that it is acceptable as the argument part of a URL. Encoding is used when passing a string to a web server to avoid it being confused with the URL itself. It is normally used when the browser sends form data to a web server as part of the URI - when the form uses the GET method and the arguments appear as part of the web address.
Syntax:
URLEncode$(expression)
Example:
Arg$=URLEncode$(MyArg$)
Code:
FUNCTION URLEncode$(X$)
LOCAL STRING A1$
LOCAL INTEGER C,H
FOR C=1 TO LEN(X$)
H = ASC(MID$(X$, C, 1))
IF H=32 THEN
A1$ = A1$ + "+"
ELSEIF (H>=48 AND H<=57) OR (H>=65 AND H<=90) OR (H>=97 AND H<=122) THEN
A1$ = A1$ + CHR$(H)
ELSE
A1$ = A1$ + "%" + HEX$(H,2)
END IF
NEXT
URLEncode$ = A1$
END FUNCTION