Visual FoxPro

URL Encoding and Decoding

See more Encryption Examples

Demonstrates URL encoding and decoding. Visual FoxPro

LOCAL lnSuccess
LOCAL s
LOCAL loSb
LOCAL lcSEncoded
LOCAL lnNumReplaced

lnSuccess = 0

* To URL encoding a string:
s = "Why a > b?"

loSb = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSb.Append(s)

* URL encode the string.
loSb.Encode("url","utf-8")

* Show the URL encoded string:
lcSEncoded = loSb.GetAsString()
? lcSEncoded

* The result is:  Why%20a%20%3E%20b%3F

* If you prefer "+" instead of "%20" for SPACE chars:
lnNumReplaced = loSb.Replace("%20","+")
? loSb.GetAsString()

* Output is:   Why+a+%3E+b%3F

* To decode:
loSb.Decode("url","utf-8")
? loSb.GetAsString()

* Result is: Why a > b?

RELEASE loSb