[VBScript] Как сохранить информацию UTF-8 в ANSI? (MSXML2.XMLHTTP)
Доброго времени суток. Возникла такая проблема. Имеется скрипт для скачивания html кода страницы и сохранения его в txt.
Страница сохраняется в кодировке UTF-8, а сам VBS имеет ANSI. Начинаются проблемы с русскими буквами.
Можно ли сохранять html код страницы в ANSI? Заранее спасибо!
И раз уж такое дело, то можно ли сделать так, что бы 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
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