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

function btnNew_OnClick() {

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

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

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

objListPersons.SaveData();

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

objListPersons.FileToArray();

}

//Добавляем новую запись в XML-файл

objListPersons.NewRecord();

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

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

objListPersons.LoadDialog();

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

doc.title = "Добавлена новая запись";

}

//Функция-обработчик нажатия на кнопку "Удалить"

function btnDelete_OnClick() {

//Удаляем текущую запись из XML-файла

objListPersons.DelRecord();

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

//для первой записи

objListPersons.LoadDialog();

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

doc.title = "Запись удалена";

}

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

function btnNext_OnClick() {

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

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

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

objListPersons.SaveData();

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

objListPersons.FileToArray();

}

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

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 = "Редактирование данных";

}

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

//Определение значения тега 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.

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

/* Имя: 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="";

this.Name="";

this.Phone="";

this.Street="";

this.House="";

this.App="";

this.Note="";