FotS

Decodes the query part of a URL string. URL encoding is used when placing text in a query string 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 - as part of the “web address” (GET method).

Syntax:

  URLDecode$(expression)

Example:

  realURL$=URLDecode$(RecdURL)

Code:

  FUNCTION URLDecode$(a$)
    LOCAL INTEGER z
    LOCAL STRING b$,c$
    z=1
    DO
      z=INSTR(z,a$,"%")
      IF z=0 OR z=LEN(a$) THEN EXIT DO
        b$=MID$(a$,z,3)
        c$=CHR$(VAL("&h"+MID$(b$,2)))
        a$=Replace$(a$,b$,c$)
      END IF
    LOOP
    URLDecode$=a$
  END FUNCTION