رفتن به مطلب

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مجید آرتا

Encode کردن URL

پست های پیشنهاد شده

مجید آرتا    5,810

سلام

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

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

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

از b4x کش رفتم :DD:

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

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

×
×
  • جدید...