|
Visual Basic 5.0/6.0 - СтрокиВсе примеры / СтрокиДекодирование url
Автор: Интернет | добавлено: 18.04.2011, 18:35 | просмотров: 3622 (1+) | комментариев: 0 | рейтинг:
Функция на Visual Basic 6.0, которая позволяет декодировать url в читаемую строку. Как известно, в url можно использовать только символы ASCII, в число которых входя цифры, английские буквы и некоторые спец. символы, остальные символы кодируются в шестнадцатеричное представление. Например: "%cf%f0%e8%e2%e5%f2+%ec%e 8%f0!". Данная функция позволяет декодировать шестнадцатеричный текст в обычный.
![]() КодPrivate Function URLDecode(ByVal txt As String) As String Dim txt_len As Integer Dim i As Integer Dim ch As String Dim digits As String Dim result As String result = "" txt_len = Len(txt) i = 1 Do While i <= txt_len ch = Mid$(txt, i, 1) If ch = "+" Then result = result & " " ElseIf ch <> "%" Then result = result & ch ElseIf i > txt_len - 2 Then result = result & ch Else digits = Mid$(txt, i + 1, 2) result = result & Chr$(CInt("&H" & digits)) i = i + 2 End If i = i + 1 Loop URLDecode = result End Function
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все примеры этого автора (всего: 85)
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|