Архив форумов ЦИТФорума

[valera]

COOL

[f110]

Accounts = new Array(100);
var AcNum=0;
function ReadFromFile() { //Читает файл в массив по строкам
var IndA=0, IndB=0, RetStr=0, LI;
var fs, a, ForAppending, NumStr;
ForReading = 1;
fs = new ActiveXObject("Scripting.FileSystemObject");
a = fs.OpenTextFile("C:\\reg_file\\testfile.txt", ForReading, false);
s = a.ReadAll();
a.Close();
LI=s.lastIndexOf("~");
//window.alert(LI.. "+RetStr);
while (RetStr != LI) {
RetStr=s.indexOf("~",IndB);
Accounts[IndA]=s.substring(IndB,Re.. }
AcNum=IndA;


function FileCreate(folderspec,filespec) {
var dn, fn, fullpath;
var fso=new ActiveXObject("Scripting.FileSystemObject");
dn = fso.GetFolder(folderspec);
var a=fso.CreateTextFile(folderspec+"\\"+filespec, true);
a.WriteLine("This is a Test.");
a.Close();
window.alert('Создан файл '+filespec);
} //-->