Windows Script Host для Windows 2000/XP, Попов Андрей Викторович

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 {

1-112 113 114 115 116 117 118 119 120 121 122 123 124-188

Легенды и мифы Древнего Востока

Овчинникова Анна Георгиевна

Древний мир

Документальная литература:

биографии и мемуары

6.25

рейтинг книги

Беглец

Бубела Олег Николаевич

1. Совсем не герой

Фантастика:

фэнтези

попаданцы

8.94

рейтинг книги

Александр Великий или Книга о Боге

Дрюон Морис

Проза:

историческая проза

8.20

рейтинг книги

Андер Арес

Грехов Тимофей

1. Андер Арес

Фантастика:

рпг

аниме

фэнтези

фантастика: прочее

5.00

рейтинг книги

Ричард Длинные Руки – эрцфюрст

Орловский Гай Юлий

Фантастика:

фэнтези

5.00

рейтинг книги

An ordinary sex life

Астердис

Любовные романы:

современные любовные романы

love action

5.00

рейтинг книги

Место

Горенштейн Фридрих Наумович

Проза:

современная проза

5.00

рейтинг книги

Тайная история американской империи: Экономические убийцы и правда о глобальной коррупции

Перкинс Джон