| Преобразовать строку в HEX-вид для передачи серверу в URL |
|
Данная функция преобразовывает "привет" в "%EF%F0%E8%E2%E5%F2". Public Function URLToHex(ByVal URL$) As String On Error Resume Next Dim s$, s1$, i As Long If Len(URL) > 0 Then For i = 1 To Len(URL) s1 = Asc(Mid(URL, i, 1)) s = s & "%" & Hex(s1) Next End If URLToHex = s End Function |