Windows Script Host для Windows 2000/XP

Попов Андрей Викторович

function ListPersons_FileToArray {

 var Root,CurrNode,i;

 //Создаем объект XML DOM

 XML = WScript.CreateObject("Msxml.DOMDocument");

 //Загружаем XML-документ из файла

 XML.load(PathBook);

 //Сохраняем в переменной Root ссылку на корневой элемент

 //документа

 Root=XML.documentElement;

 //Обнуляем

массив PersonArr

 this.PersonArr.length=0;

 //Перебираем все дочерние элементы первого уровня вложенности

 //для корневого элемента

 for (i=1; i<=Root.childNodes.length-1;i++) {

//Выделяем в коллекции XML-элементов i-й элемент

CurrNode=Root.childNodes.item(i);

//Создаем новый экземпляр PersonRec объекта Person

PersonRec=new Person;

//Заполняем поля объекта PersonRec

PersonRec.LastName=GetTagVal(CurrNode,"LastName");

PersonRec.Name=GetTagVal(CurrNode,"Name");

PersonRec.Phone=GetTagVal(CurrNode,"Phone");

PersonRec.Street=GetTagVal(CurrNode,"Street");

PersonRec.House=GetTagVal(CurrNode,"House");

PersonRec.App=GetTagVal(CurrNode,"App");

PersonRec.Note=GetTagVal(CurrNode,"Note");

//Сохраняем объект PersonRec в массиве PersonArr

this.PersonArr[this.PersonArr.length]=PersonRec;

 }

}

//Запись данных из формы в XML-файл

function ListPersons_SaveData {

 var Root,CurrNode,ElemList;

 //Сохраняем в переменной Root ссылку на корневой элемент

 //документа

 Root=XML.documentElement;

 //Сохраняем в переменной CurrNode ссылку на (CurRecord+1)-й

 //элемент Person

 CurrNode=Root.childNodes.item(this.CurRecord+1);

 //Записываем данные из полей ввода формы в соответствующие

 //XML-элементы, которые являются дочерними узлами

 //относительно CurrNode

 SetTagVal(CurrNode,"LastName",doc.all.txtLastName.value);

 SetTagVal(CurrNode,"Name",doc.all.txtName.value);

 SetTagVal(CurrNode,"Phone",doc.all.txtPhone.value);

 SetTagVal(CurrNode,"Street",doc.all.txtStreet.value);

 SetTagVal(CurrNode,"House",doc.all.txtHouse.value);

 SetTagVal(CurrNode,"App",doc.all.txtApp.value);

 SetTagVal(CurrNode,"Note",doc.all.txtNote.value);

 //Сохраняем XML-файл

на диске

 XML.save(PathBook);

}

//Загрузка данных для текущей записи в форму

function ListPersons_LoadDialog {

 //Вызываем метод LoadDialog для объекта Person,

 //который является CurRecord-м элементом массива PersonArr

 this.PersonArr[this.CurRecord].LoadDialog;

}

//Обновление данных в форме

function ListPersons_RefreshDialog(IsGoTop) {

 //Обнуляем массив PersonArr

 this.PersonArr.length=0;

 //Заново загружаем данные из XML-файла в массив PersonArr

 this.FileToArray;

 if (IsGoTop)

//Переходим к первой записи в массиве

this.FirstRecord

 else

//Переходим к последней записи в массиве

this.FinalRecord;

 //Загружаем в форму данные для текущей записи

 this.LoadDialog;

}

//Переход к следующей записи

function ListPersons_NextRecord {

 if (this.CurRecord<this.PersonArr.length - 1)

//Если текущая запись не является последней, увеличиваем

//номер текущей записи

this.CurRecord++;

}

//Переход к предыдущей записи

function ListPersons_PreviousRecord {

 if (this.CurRecord > 0)

//Если текущая запись не является первой, уменьшаем

//номер текущей записи

this.CurRecord--;

}

//Переход к первой записи

function ListPersons_FirstRecord {

 this.CurRecord = 0;

}

//Переход к последней записи

function ListPersons_FinalRecord {

 this.CurRecord = this.PersonArr.length - 1;

}

//Добавление новой записи

function ListPersons_NewRecord {