скачать и сохранить текстовый документ в формате юникод при помощи vbs
Доброго времени суток. Скачиваю содержимое страницы и сохраняю её в блокнот. Проблема в том что блокнот сохраняется в формате utf-8, а мне нужен юникод.
Как мне это исправить. Допускаю вариант последующей перезаписи текстового документа с изменение кодировки, но у меня и это не получилось.
Код для скачивания страницы:
Как мне это исправить. Допускаю вариант последующей перезаписи текстового документа с изменение кодировки, но у меня и это не получилось.
Код для скачивания страницы:
Код:
Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
oXMLHTTP.Open "GET", "http://www.yandex.ru/"&searchin&"", 0
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
oADOStream.SaveToFile "f.txt"
oXMLHTTP.Open "GET", "http://www.yandex.ru/"&searchin&"", 0
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
oADOStream.SaveToFile "f.txt"
По памяти :
Попробуйте помучить свойство Charset у об'екта - ADODB.Stream
Попробуйте помучить свойство Charset у об'екта - ADODB.Stream