Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как или каким способом можно перекодировать для URL адреса. / 12 сообщений из 12, страница 1 из 1
29.11.2010, 17:16
    #36984092
32sasha
32sasha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как или каким способом можно перекодировать для URL адреса.
Как или каким способом можно перекодировать для URL адреса.
"Причины отсутствия сотрудников" в "%D0%9F%D1%80%D0%B8%D1%87%D0%B8%D0%BD%D1%8B%20%D0%BE%D1%82%D1%81%D1%83%D1%82%D1%81%D1%82%D0%B2%D0%B8%D1%8F%20%D1%81%D0%BE%D1%82%D1%80%D1%83%D0%B4%D0%BD%D0%B8%D0%BA%D0%BE%D0%B2" ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2010, 17:36
    #36984179
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как или каким способом можно перекодировать для URL адреса.
Самый простой, но не самый быстрый способ:
Код: plaintext
1.
2.
Set scr = CreateObject("MSScriptControl.ScriptControl")
scr.Language = "javascript"
Debug.Print scr.Run("encodeURIComponent", "Причины отсутствия сотрудников")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2010, 17:39
    #36984193
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как или каким способом можно перекодировать для URL адреса.
Antonariy,
тогда уж сразу подскажите как из этой жути
"%D0%9F%D1%80%D0%B8%D1%87%D0%B8%D0%BD%D1%8B%20%D0%BE%D1%82%D1%81%D1%83%D1%82%D1%81%D1%82%D0%B2%D0%B8%D1%8F%20%D1%81%D0%BE%D1%82%D1%80%D1%83%D0%B4%D0%BD%D0%B8%D0%BA%D0%BE%D0%B2"
Перекодировать в
"Причины отсутствия сотрудников"
????? Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2010, 17:43
    #36984207
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как или каким способом можно перекодировать для URL адреса.
Antonariy, странно, что Вы этот способ назвали: не самый быстрый способ
Вроде цикла нет, за один проход, как Вы оцениваете быстроту????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2010, 19:21
    #36984485
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как или каким способом можно перекодировать для URL адреса.
Здесь нужно создать объект интерпретатора яваскрипта и подсунуть ему скрипт, который он должен разобрать и выполнить. Грубо говоря, за этими тремя строчками стоят километры кода в другой библиотеке.

А хотя вспомнил, что для этого api существует:
Код: plaintext
1.
2.
3.
4.
5.
DECLARE FUNCTION CreateUri LIB "URLMON.DLL" ALIAS "CreateUri" ( _
   BYVAL pwzURI AS Long, _
   BYVAL dwFlags AS Long, _
   BYVAL dwReserved AS Long, _
   BYVAL ppURI AS Long _
   ) AS Long
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2010, 19:27
    #36984501
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как или каким способом можно перекодировать для URL адреса.
Antonariy Грубо говоря, за этими тремя строчками стоят километры кода в другой библиотеке.
Плевать в пошаговом режиме доли секунд, обратно как будет???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2010, 19:32
    #36984509
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как или каким способом можно перекодировать для URL адреса.
А если нужно в цикле, то разница колоссальная.

обратно как будет
Либо decodeURIComponent, либо... обратную апи не помню.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2010, 19:44
    #36984533
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как или каким способом можно перекодировать для URL адреса.
Antonariy, спасибо, всё точно:

Код: plaintext
1.
2.
3.
4.
Set scr = CreateObject("MSScriptControl.ScriptControl")
scr.Language = "javascript"
Debug.Print scr.Run("encodeURIComponent", "Сотрудник") 'преобразует текст "Сотрудник" в текст "%D0%A1%D1%82%D1%80%D1%83%D0%B4%D0%BD%D0%B8%D0%BA"
Debug.Print scr.Run("decodeURIComponent", "%D0%A1%D0%BE%D1%82%D1%80%D1%83%D0%B4%D0%BD%D0%B8%D0%BA") 'преобразует текст "%D0%A1%D1%82%D1%80%D1%83%D0%B4%D0%BD%D0%B8%D0%BA" в текст "Сотрудник"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2010, 11:33
    #36985517
32sasha
32sasha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как или каким способом можно перекодировать для URL адреса.
Всем СПАСИБО!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2010, 10:17
    #36987936
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как или каким способом можно перекодировать для URL адреса.
Antonariy

хороший ActiveX пригодится
а то в цикле преобразовывал всегда URL для WinHttp обьекта
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2010, 16:38
    #36989424
32sasha
32sasha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как или каким способом можно перекодировать для URL адреса.
Здесь есть интересный способ
http://www.example-code.com/vb/url-encoding.asp
и здесь
http://www.freevbcode.com/ShowCode.asp?ID=1512
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2010, 18:13
    #36989756
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как или каким способом можно перекодировать для URL адреса.
Ничего интересного. Первый способ подразумевает какую-то левую dll, суть этой функции из которой наверняка сводится ко второму способу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как или каким способом можно перекодировать для URL адреса. / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 198ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2159191]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 38ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 56ms
total:  198ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]