Значит буду конвертировать посредством «ADODB.Stream».К сожалению, ... не всегда сразу понимаешь ценность той или иной идеи, пока в ней не возникнет реальная потребность.
Да, это факт. 
results January 2011: ... //? ????????
Я сам столкнулся с подобной проблемой всего пару дней назад, пытаясь делать загрузку содержимого из сети и локальный разбор html посредством объекта «htmlfile» на примере самого «http://forum.script-coding.com». Тогда начал копать и наткнулся на RSDN (которое не сработало) и это самое недавнее обсуждение, которое помогло.
]]>Дело в том, что объект «XMLHTTPRequest» всегда возвращает текст по «.responseText()» в кодировке UTF-8 [я встречал на RSDN упоминания о том, что, дескать, можно сие поведение поменять, указав в методе «.Send()» xml с нужной кодировкой — увы, у меня такое не сработало].
Указание допустимой кодировки в заголовке запроса не помогает? Реального ответа не знаю - только теоретически предполагаю
oXMLHTTP.setRequestHeader "Accept-Charset", "windows-1251"
oXMLHTTP.setRequestHeader "Accept-Language", "ru"Дело в том, что объект «XMLHTTPRequest» всегда возвращает текст по «.responseText()» в кодировке UTF-8 [я встречал на RSDN упоминания о том, что, дескать, можно сие поведение поменять, указав в методе «.Send()» xml с нужной кодировкой — увы, у меня такое не сработало].
Коллега Xameleon рекомендовал просто конвертировать полученное содержимое из массива байт, получаемого по «.responseBody()», в правильную кодировку посредством «ADODB.Stream»:
Option Explicit
Dim arrContents
Dim strContents
With WScript.CreateObject("Microsoft.XMLHTTP")
.open "Get", "http://vadi-ks.narod.ru/201101-446848/results.log", False
.send
arrContents = .responseBody
End With
With WScript.CreateObject("ADODB.Stream")
.Type = 1
.Open
.Write arrContents
.Position = 0
.Type = 2
.Charset = "windows-1251"
strContents = .ReadText
End With
WScript.Echo strContents
WScript.Quit 0Вы тоже были участником того обсуждения . К сожалению, [пишу сейчас о себе] не всегда сразу понимаешь ценность той или иной идеи, пока в ней не возникнет реальная потребность.
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET","http://vadi-ks.narod.ru/201101-446848/results.log",False
oXMLHTTP.setRequestHeader "Content-Type", "text/html; charset=windows-1251" 'казалось мне вот же она кириллица((
oXMLHTTP.Send
msgbox oXMLHTTP.responseTextЗапускаю этот vbs-скрипт, вместо русских букв - квадратики 
Текст с текстового файла results.log:
results January 2011:
...
//Да здравствует русский текст!!!
Option Explicit
' IOMode Enum
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
' Format Enum
Const TristateUseDefault = -2
Const TristateTrue = -1
Const TristateFalse = 0
Dim objFSO
Dim objTSIn, objTSOutANSI, objTSOutUTF16
Dim strLine
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objTSIn = objFSO.OpenTextFile("C:\Downloads\1.txt", ForReading, False, TristateTrue)
Set objTSOutANSI = objFSO.OpenTextFile("C:\Downloads\ANSI.txt", ForWriting, True, TristateFalse)
Set objTSOutUTF16 = objFSO.OpenTextFile("C:\Downloads\UTF16.txt", ForWriting, True, TristateTrue)
Do Until objTSIn.AtEndOfStream
strLine = objTSIn.ReadLine
WScript.Echo strLine
objTSOutANSI.WriteLine strLine
objTSOutUTF16.WriteLine strLine
Loop
objTSIn.Close
objTSOutANSI.Close
objTSOutUTF16.Close
Set objTSOutUTF16 = Nothing
Set objTSOutANSI = Nothing
Set objTSIn = Nothing
Set objFSO = Nothing
WScript.Quit 0Set textstream = fso.opentextfile(start, 1, true, -1)Кстати, Big Endian вроде без проблем читается.
]]>OFF: Смотреть/перебирать/определять кодировку текстового файла «на глаз» удобно с помощью «Far Manager»'a.
]]>start = "c:\temp\1.txt"
Set fso = CreateObject("scripting.filesystemobject")
Set textstream = fso.opentextfile(start, 1, true, 0)
msgbox textstream.readall()содержание файла c:\temp\1.txt :
Привет всем
бла бла бла
а выдает различные символы...
пробую записывать в тесктовой файл:
start = "c:\temp\1.txt"
fin = "c:\temp\2.txt"
Set fso = CreateObject("scripting.filesystemobject")
Set textstream = fso.opentextfile(start, 1, true, 0)
set twrite = fso.opentextfile(fin, 2, true, 0)
twrite.write textstream.readall()и во втором файле получаем :
㈱㈰〳ㄳ㐱〳ㄷ㘰〵㠶㈱ㄳ〶㘰ㄵ〱㘰ㄸ㘵㘱〱㐶㌱〱㌷㘱〰㐶㌱〱㌷㘱〰㐶㌱〱㌷㘱ㄱПривет всем
бла бла бла
Как исправить баг?
]]>