Encode کردن URL

[مجید آرتا 5,874]

سلام

امیدوارم حالتون خوب و خوش باشه.

این قطعه کد برای انکد کردن حروفی که در URL  توسط مرورگر شناخته نمیشن و باید Encode  بشن لازممون میشه.

برنامه نویس باشی و ندونی این به کجای کارمون میاد دیگه زشته :دی

از b4x کش رفتم

Sub EscapeURL(s As String) As String
    Dim encoded As String
    encoded = s
    encoded = encoded.Replace("%", "%25") 
    encoded = encoded.Replace(" ", "%20")
    encoded = encoded.Replace("<", "%3C")
    encoded = encoded.Replace(">", "%3E")
    encoded = encoded.Replace("#", "%23")      
    encoded = encoded.Replace("{", "%7B")
    encoded = encoded.Replace("}", "%7D")
    encoded = encoded.Replace("|", "%7C")
    encoded = encoded.Replace("\", "%5C")
    encoded = encoded.Replace("^", "%5E")
    encoded = encoded.Replace("~", "%7E")
    encoded = encoded.Replace("[", "%5B")
    encoded = encoded.Replace("]", "%5D")
    encoded = encoded.Replace("`", "%60")
    encoded = encoded.Replace(";", "%3B")
    encoded = encoded.Replace("/", "%2F")
    encoded = encoded.Replace("?", "%3F")
    encoded = encoded.Replace(":", "%3A")
    encoded = encoded.Replace("@", "%40")
    encoded = encoded.Replace("=", "%3D")
    encoded = encoded.Replace("&", "%26")
    encoded = encoded.Replace("$", "%24")
    encoded = encoded.Replace("+", "%2B")
    encoded = encoded.Replace("-", "%2D")
    encoded = encoded.Replace(CRLF, "%0D%0A")
    Return encoded
End Sub