Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

[VBScript] Как сохранить информацию UTF-8 в ANSI? (MSXML2.XMLHTTP)

33K
22 августа 2015 года
Donotlie
26 / / 31.03.2014
Доброго времени суток. Возникла такая проблема. Имеется скрипт для скачивания html кода страницы и сохранения его в txt.
Страница сохраняется в кодировке UTF-8, а сам VBS имеет ANSI. Начинаются проблемы с русскими буквами.
Можно ли сохранять html код страницы в ANSI? Заранее спасибо!

Код:
InetFile = "http://mail.ru/"
localFile = "html.txt"

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", InetFile, 0
oXMLHTTP.Send

Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
oADOStream.SaveToFile localFile, 2

Set oXMLHTTP = Nothing
Set oADOStream = Nothing
И раз уж такое дело, то можно ли сделать так, что бы html код не сохранялся в txt, а записывался в переменную. Заранее спасибо!
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог