Code-Beispiel

URLEncode und URLDecode - Ganz nach Spezifikation

Lizenz:	Erster Autor:	Letzte Bearbeitung:
GPL	Jojo	08.10.2008

Hier zwei Codes, die URLs ganz nach der Spezifikation codieren und decodieren. Dieser Code basiert auf einen Code von freevbcode.com. Es ist möglich, ein Leerzeichen als %20 (Hexcode) oder + zu übergeben. Wir URLEncode mit dem zweiten Parameter ungleich null aufgerufen, wird ein + benutzt.

Function URLEncode(sStringToEncode As String, bUsePlus As Byte = 0) As String

    Dim sNewString As String, bChar As UByte

    For i As Integer = 1 To Len(sStringToEncode)

        bChar = sStringToEncode[i - 1]

        Select Case bChar

            Case 48 To 57, 65 To 90, 97 To 122

                sNewString &= Chr(bChar)

            Case 32

                sNewString &= *IIf(bUsePlus, @"+", @"%20")

            Case Else

                sNewString &= "%" & *IIf(bChar < 16, @"0", @"") & Hex(bChar)

        End Select

    Next



    Return sNewString

End Function



Function URLDecode(sStringToDecode As String) As String

    Dim sNewString As String, i As Integer = 0



    Do Until i = Len(sStringToDecode)

        Select Case sStringToDecode[i]

            Case Asc("+")

                sNewString &= " "

            Case Asc("%")

                sNewString &= Chr(Val("&h" & Mid(sStringToDecode, i + 2, 2)))

                i+=2

            Case Else

                sNewString &= Chr(sStringToDecode[i])

        End Select

        i+=1

    Loop



    Return sNewString

End Function

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 08.10.2008 von Jojo angelegt.
Die aktuellste Version wurde am 08.10.2008 von Jojo gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.