تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] Encoding Url
#2

السلام عليكم ورحمة الله

هذه دالة تشفير العنوان، طبعاً معدلة، إن شاء تفيدك
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click

    Dim url 
As String "http://www.example.com/22/10/2013,hi all"

    
MsgBox(EncodeURL(url))

End Sub


Public Function EncodeURL(strUrl As String) As String
    Dim encUrl 
As String String.Empty
    For 
Each c As Char In strUrl 
        Select 
Case Asc(c)
            Case 
48 To 5765 To 9097 To 122
                encUrl 
&= c
            
Case 32
                encUrl 
&= "+"
            
Case Else
                
encUrl &= "%" Asc(c).ToString("X2")
        
End Select
    Next
    
Return encUrl
End 
Function 

الرد }}}
تم الشكر بواسطة: yousef , a_almisery


الردود في هذا الموضوع
Encoding Url - بواسطة yousef - 11-12-14, 11:08 AM
RE: Encoding Url - بواسطة الوليد ☺ - 11-12-14, 12:56 PM
RE: Encoding Url - بواسطة yousef - 11-12-14, 01:20 PM
RE: Encoding Url - بواسطة الوليد ☺ - 11-12-14, 01:53 PM

التنقل السريع :


يقوم بقرائة الموضوع: