Rubrik: Variablen/Strings · Sonstiges | VB-Versionen: VB6 | 29.09.04 |
Übersichtliche URL Codierung Mit dieser Funktion kann man ganz leicht Umlaute und andere Sonderzeichen in die die passenden HexWerte umwandeln. | ||
Autor: Christian Arnold | Bewertung: | Views: 10.559 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit dieser Funktion kann man ganz leicht Umlaute und andere Sonderzeichen in die die passenden HexWerte umwandeln.
Praktisch an dieser Funktion: normale Buchstaben wie das "a" bleiben ein a und somit bleibt der String noch übersichtlich!
' URL-Codierung Public Function Str2Hex(ByVal sText As String) As String Dim i As Integer Dim sHex As String For i = 1 To Len(sText) Select Case Asc(Mid$(sText, i, 1)) Case 33 To 47, 58 To 64, 91 To 96, 123 To 126, 128 To 255 sHex = "%" & Hex$(Asc(Mid$(sText, i, 1))) sText = Left$(sText, i - 1) & sHex & Mid$(sText, i + 1) i = i + Len(sHex) - 1 End Select Next i sText = Replace(sText, " ", "+") sText = Replace(sText, vbCrLf, "%0D%0A") Str2Hex = sText End Function