URL Encoding / Encoding URL

Hmmm. Jeg behøver faktisk bare en metode der URL-encoder alle tegn der ikke normalt må optræde i en URL, men så også encoder ligmed tegn, idet jeg gerne vil kunne generere en værdi der indeholder netop ligmed tegn.

Så lukker jeg...

Jeg har snydt lidt:

Date: 1/27/2001
Versions: VB4 VB5 VB6 VBS Level: Intermediate
Author: The VB2TheMax Team

' convert a string so that it can be used on a URL query string
'
' Same effect as the Server.URLEncode method in ASP

Function URLEncode(ByVal Text As String) As String
    Dim i As Integer
    Dim acode As Integer
    Dim char As String
   
    URLEncode = Text
   
    For i = Len(URLEncode) To 1 Step -1
        acode = Asc(Mid$(URLEncode, i, 1))
        Select Case acode
            Case 48 To 57, 65 To 90, 97 To 122
                ' don't touch alphanumeric chars
            Case 32
                ' replace space with "+"
                Mid$(URLEncode, i, 1) = "+"
            Case Else
                ' replace punctuation chars with "%hex"
                URLEncode = Left$(URLEncode, i - 1) & "%" & Hex$(acode) & Mid$ _
                    (URLEncode, i + 1)
        End Select
    Next
   
End Function