Tipulatoid
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
sanb
Цитата:| создаётся файл list.del с таким содержанием |
Это всё? Очень странно. Еще как минимум должны быть input.del decode.js
1. Какая ОС?
2. Проверь работу скрипта-конвертера кодировок, т.е.:
а) выполни команду systeminfo>input.del
б) в этой же папке создай файл с именем 866to1251.js и содержанием:
Код: var FSO_ForReading = 1;
var FSO_ForWriting = 2;
function GetFileContent( filename )
{
var fso = WScript.CreateObject( "Scripting.FileSystemObject" );
var f = fso.OpenTextFile(filename, FSO_ForReading);
var c = f.ReadAll();
f.Close();
return(c);
}
var i = GetFileContent("input.del");
var o = Recode(i, "cp866", "windows-1251");
SetFileContent("output.del", o);
function SetFileContent( filename, conents )
{
var fso = WScript.CreateObject("Scripting.FileSystemObject");
var f = fso.OpenTextFile(filename, FSO_ForWriting, true);
f.Write(conents);
f.Close();
return (true);
}
function Recode( sourceText, srcEncoding, destEncoding )
{
var adReadAll = -1;
var adTypeText = 2;
var result = "";
var strm = WScript.CreateObject("ADODB.Stream");
strm.Open();
strm.Type = adTypeText;
strm.Charset = destEncoding;
strm.WriteText(sourceText);
strm.Flush();
strm.Position = 0;
strm.Charset = srcEncoding;
result = strm.ReadText(adReadAll);
strm.Close();
return (result);
}
|
в) запусти 866to1251.js Должен появиться файл output.del где текст переведен в 1251
Отпиши здесь о результатах. Получилось или нет. Если нет, то где именно затык. |
