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

Res=WshShell.Popup("Добавить запись в \n"+PathBook+"?", 0,

"Работа с XML-файлом", vbQuestion+vbYesNo);

if (Res==vbYes) { //Нажата кнопка Да

//Добавляем новую запись в книжку

AddRecord();

//Выводим информацию на экран

WshShell.Popup("Новая запись\n\n"+PersonRec.LastName+" "+

PersonRec.Name+"\n"+PersonRec.Phone+"\n"+

PersonRec.Street+", "+PersonRec.House+"-"+PersonRec.App+"\n\n"+

"добавлена в файл "+PathBook, 0,

"Работа с XML-файлом", vbInformation+vbOkOnly);

}

}

/******************* Начало **********************************/

Main();

/************* Конец *********************************************/

Рассмотрим сценарий FindAndDelRecord.wsf, с помощью которого можно будет полностью удалить из записной книжки данные о человеке, фамилия которого введена в диалоговом окне (рис. 6.1).

Рис. 6.1.Ввод фамилии для удаления

Сценарий FindAndDelRecord.wsf реализован в виде WS-файла для того, чтобы можно было внутри JScript-кода воспользоваться функцией InputNameна языке VBScript, которая реализует диалоговое окно с полем ввода, показанное на рис. 6.1:

Function InputName

'Вводим фамилию в диалоговом окне

InputName = InputBox("Введите фамилию для удаления:", "Записная книжка")

End Function

Фамилия, которую следует найти и удалить в записной книжке, сохраняется в глобальной переменной LastName:

LastName=InputName();

Непосредственно поиск и удаление данных производятся в функции FindAndDelRecord(). Здесь, как и во всех рассмотренных ранее примерах, сначала создается экземпляр XMLDocобъекта DOMDocument, с помощью метода loadзагружается файл book.xml и указатель на корневой элемент сохраняется в переменной Root:

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

XMLDoc.load(PathBook);

Root=XMLDoc.documentElement;

Для выделения в записной книжке всех фамилий, которые требуется удалить, используется метод selectNodes(). В качестве аргумента этого метода подставляется строка sSelect, которая указывает, что нужно искать расположенные внутри элементов Personэлементы с именем LastNameи значением, которое совпадает со значением переменной LastName. Все найденные элементы помещаются в коллекцию NodeList:

//Формируем строку для поиска фамилии

sSelect="Person/LastName[text()='"+LastName+"']";

//Создаем коллекцию NodeList всех элементов LastName,

//значение которых совпадает со значением переменной LastName

NodeList=XMLDoc.documentElement.selectNodes(sSelect);

Если найден хотя бы один подходящий элемент LastName, т.е. коллекция NodeListне является пустой, то для каждого такого элемента в цикле forопределяется родительский элемент (в нашем случае это элемент Person) и этот элемент вместе со всеми своими дочерними элементами удаляется с помощью метода removeChild():

for (i=0;i<=NodeList.length-1;i++) {

//Определяем родительский элемент (Person) для найденного

//элемента LastName

Parent=NodeList.item(i).parentNode;

//Удаляем элемент Person вместе со всеми его дочерними элементами

Root.removeChild(Parent);

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

WshShell.Popup("Запись удалена!",0,

"Работа с XML-файлом",vbInformation+vbOkOnly);

}

После удаления всех записей содержимое XML-файла book.xml сохраняется на диске с помощью метода save():

XMLDoc.save(PathBook);

Полный текст сценария FindAndDelRecord.wsf приводится в листинге 6.6.

Имя: FindAndDelRecord.wsf

Описание: Записная книжка (данные в XML-файле book.xml).

Поиск и удаление элементов из XML-файла

'Функция возвращает фамилию для удаления

Function InputName

'Вводим фамилию в диалоговом окне

InputName = InputBox("Введите фамилию для удаления:", "Записная книжка")

End Function

//Объявляем переменные

var

WshShell,

LastName, //Удаляемая фамилия

BasePath, //Путь к текущему каталогу

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

XMLDoc, //XML-файл с данными

NomRec=0, //Счетчик количества записей

PersonRec, //Объект для хранения данных об одном человеке

PersonArr; //Массив для хранения объектов PersonRec

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

var vbYesNo=4,vbQuestion=32,vbInformation=64,vbYes=6,vbOkOnly=0;

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

//реквизитов, относящихся к этой фамилии

function FindAndDelRecord() {

var Root,sSelect,i,Parent,NodeList;

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

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

//Загружаем XML-файл

XMLDoc.load(PathBook);

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

//документа

Root=XMLDoc.documentElement;

//Формируем строку для поиска фамилии

sSelect="Person/LastName[text()='"+LastName+"']";

//Создаем коллекцию NodeList всех элементов LastName,

//значение которых совпадает со значением переменной LastName

NodeList=XMLDoc.documentElement.selectNodes(sSelect);

if (NodeList.length==0) //Коллекция NodeList пуста

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

WshShell.Popup("Фамилия "+LastName+

" не найдена в записной книжке!",0,

"Работа с XML-файлом",vbInformation+vbOkOnly);

else { //Требуемая фамилия найдена

//Цикл по всем найденным элементам LastName

for (i=0;i<=NodeList.length-1;i++) {

//Определяем родительский элемент (Person) для найденного

//элемента LastName

Parent=NodeList.item(i).parentNode;

//Удаляем элемент Person вместе со всеми его дочерними элементами

Root.removeChild(Parent);

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

WshShell.Popup("Запись удалена!",0,

"Работа с XML-файлом",vbInformation+vbOkOnly);

}

//Сохраняем содержимое XML-файла на диске

XMLDoc.save(PathBook);

}

}

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

function InitPath() {

BasePath=WshShell.CurrentDirectory+"\\";

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

PathBook=BasePath+"book.xml";

}

//Основная запускная функция

function Main() {

var Res;

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

WshShell = WScript.CreateObject("WScript.Shell");

//Определяем пути к файлам

InitPath();

LastName=InputName();

//Запрос на удаление записи

Res=WshShell.Popup("Удалить фамилию "+LastName+

" из \n"+PathBook+"?",0,

"Работа с XML-файлом",vbQuestion+vbYesNo);

if (Res==vbYes) { //Нажата кнопка Да

//Ищем в книжке нужную фамилию и удаляем относящуюся к

//ней запись

FindAndDelRecord();

}

}

/******************* Начало **********************************/

Main();

/************* Конец *********************************************/