B4X

URL Encoding and Decoding

See more Encryption Examples

Demonstrates URL encoding and decoding. B4X

Dim success As Boolean = False

'  To URL encoding a string:
Dim s As String = "Why a > b?"

Dim sb As ChilkatStringBuilder
sb.Initialize
success = sb.Append(s)

'  URL encode the string.
sb.Encode("url", "utf-8")

'  Show the URL encoded string:
Dim sEncoded As String = sb.GetAsString
Log(sEncoded)

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

'  If you prefer "+" instead of "%20" for SPACE chars:
Dim numReplaced As Int = sb.Replace("%20", "+")
Log(sb.GetAsString)

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

'  To decode:
sb.Decode("url", "utf-8")
Log(sb.GetAsString)

'  Result is: Why a > b?