Windows Script Host для Windows 2000/XP - Андрей Попов

В objListPersons.NextRecord();

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

 //для текущей записи

В objListPersons.LoadDialog();

 //Выводим сообщение в заголовке окна

 doc.title = "Запись N " + (objListPersons.CurRecord + 1);

}

//Функция-обработчик нажатия на кнопку ">>"

function btnFinal_OnClick() {

 //Проверяем, были ли сделаны изменения в форме

В if (objListPersons.IsChanged) { //Рзменения были сделаны

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

В  objListPersons.SaveData();

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

В  objListPersons.FileToArray();

В }

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

В objListPersons.FinalRecord();

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

 //для текущей записи

В objListPersons.LoadDialog();

 //Выводим сообщение в заголовке окна

 doc.title = "Запись N " + (objListPersons.CurRecord + 1);

}

//Функция-обработчик изменения текста в полях ввода

function txtBoxOnChange() {

 //Устанавливаем признак изменения данных в форме

В objListPersons.IsChanged = true;

 //Выводим сообщение в заголовке окна

 doc.title = "Редактирование данных";

}В 

Окончательная доработка сценария IEPhoneBook.js

Выше были описаны все основные функции, которые используются для работы с записной книжкой в диалоговом режиме. Осталось лишь собрать эти функции в один JScript-сценарий IEPhoneBook.js, определить глобальные переменные и добавить вспомогательные функции GetTagVal(obj, tgName) и SetTagVal(obj, tgName, sVal) для доступа к значениям XML-элементов (листинг 7.13).

Листинг 7.13. Функция для доступа к значениям XML-элементов

//Определение значения тега tgName XML-элемента obj

function GetTagVal(obj, tgName) {

В var ElemList;

 //Создаем коллекцию дочерних для obj элементов, которые

 //задаются тегом tgName

В ElemList=obj.getElementsByTagName(tgName);

 //Проверяем, есть ли в коллекции ElemList элементы

В if (ElemList.length>0)

  //Возвращаем значение тега tgName

В  return ElemList.item(0).text

В else return "";

}

//Рзменение значения тега tgName XML-элемента obj

function SetTagVal(obj, tgName, sVal) {

В var ElemList,New;

 //Создаем коллекцию дочерних для obj элементов, которые

 //задаются тегом tgName

В ElemList=obj.getElementsByTagName(tgName);

 //Проверяем, есть ли в коллекции ElemList элементы

В if (ElemList.length>0)

  //Устанавливаем значение элемента, задаваемого

  //тегом tgName

В  ElemList.item(0).text=sVal;

В else {

  //Создаем новый элемент с именем tgName

В  NewElem=XML.createElement(tgName);

  //Добавляем новый элемент в качестве дочернего для

  //элемента obj

В  obj.appendChild(NewElem);

  //Устанавливаем значение добавленного элемента

В  obj.lastChild.text=sVal;

В }

}

Полный текст сценария IEPhoneBook.js приведен в листинге 7.14.

Листинг 7.14. Сценарий IEPhoneBook.js

/*******************************************************************/

/* РРјСЏ: IEPhoneBook.jsВ В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В  */

/* Язык: JScript                                                   */

/* Описание: Сценарий для работы с записной книжкой                */

/*           (графический интерфейс пользователя на основе         */

/*           HTML-формы).                                          */

/*******************************************************************/

//Объявляем глобальные переменные

var

В WshShell,

 PathBook,       //Путь к файлу с данными

 PathHTML,       //Путь к HTML-файлу с формой

 XML,            //Экземпляр объекта XML DOM

 ie,             //Экземпляр объекта InternetExplorer.Application

 doc,            //Экземпляр объекта Document

 IsQuit,         //Признак выхода из сценария

 objListPersons; //Экземпляр объекта ListPersons

//Рнициализируем константы для диалоговых РѕРєРѕРЅ

var vbInformation=64,vbOkOnly=0;

//Построение путей к файлам

function InitPath() {

В BasePath=WshShell.CurrentDirectory+"\";

 //Путь к файлу с данными

В PathBook=BasePath+"book.xml";

 //Путь к файлу с HTML-формой

В PathHTML=BasePath+"Phone.htm";

}

//Определение значения тега tgName XML-элемента obj

function GetTagVal(obj, tgName) {

В var ElemList;

 //Создаем коллекцию дочерних для obj элементов, которые

 //задаются тегом tgName

В ElemList=obj.getElementsByTagName(tgName);

 //Проверяем, есть ли в коллекции ElemList элементы

В if (ElemList.length>0)

  //Возвращаем значение тега tgName

В  return ElemList.item(0).text

В else return "";

}

//Рзменение значения тега tgName XML-элемента obj

function SetTagVal(obj, tgName, sVal) {

В var ElemList,New;

 //Создаем коллекцию дочерних для obj элементов, которые

 //задаются тегом tgName

В ElemList=obj.getElementsByTagName(tgName);

 //Проверяем, есть ли в коллекции ElemList элементы

В if (ElemList.length>0)

  //Устанавливаем значениеэлемента, задаваемого

  //тегом tgName

В  ElemList.item(0).text=sVal;

В else {

  //Создаем новый элемент с именем tgName

В  NewElem=XML.createElement(tgName);

  //Добавляем новый элемент в качестве дочернего для

  //элемента obj

В  obj.appendChild(NewElem);

  //Устанавливаем значение добавленного элемента

В  obj.lastChild.text=sVal;

В }

}

//Конструктор объекта Person

function Person() {

В //Рнициализируем свойства объекта

В this.LastName="";