Андрей Попов - 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="";
