Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Интернет -

Visual Basic 5.0/6.0 - Строки

Все примеры / Строки

Декодирование url

Автор: Интернет | добавлено: 18.04.2011, 18:35 | просмотров: 3288 (1+) | комментариев: 0 | рейтинг: *x10
Функция на 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 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Интернет

Анонимный пользователь сети Интернет. Автор великого множества кодов и программных решений. Никого никогда не видел в лицо этого пользователя, ходят слухи, что он многоликий, и может одновременно находиться в разных частях света.
Интернет
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики