Чтение онлайн

на главную - закладки

Жанры

Windows Script Host для Windows 2000/XP

Попов Андрей Викторович

Шрифт:

 MakePersonRec;

 //Сохраняем данные из объекта PersonRec в XML-файл

 RecordToFile(PersonRec);

}

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

function InitPath {

 BasePath=WshShell.CurrentDirectory+"\\";

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

 PathBook=BasePath+"book.xml";

}

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

function Main {

 var Res;

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

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

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

 InitPath;

 //Запрос на создание нового ключа

 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.

Листинг 6.6. Поиск и удаление данных в XML-файле с помощью XML DOM

<job id="PhoneBook">

<runtime>

<description>

Имя: FindAndDelRecord.wsf

Поделиться:
Популярные книги

Тихий Дон. Том 1

Шолохов Михаил Александрович
198. Библиотека всемирной литературы
Проза:
советская классическая проза
7.50
рейтинг книги
Тихий Дон. Том 1

Вечность в смерти (сборник)

Робертс Нора
Любовные романы:
исторические любовные романы
остросюжетные любовные романы
6.86
рейтинг книги
Вечность в смерти (сборник)

Дьявольские миры (Сборник)

Смит Джордж Генри
4. Фантастический боевик
Фантастика:
ужасы и мистика
6.25
рейтинг книги
Дьявольские миры (Сборник)

Дважды одаренный. Том VIII

Тарс Элиан
8. Дважды одаренный
Фантастика:
боевая фантастика
альтернативная история
аниме
попаданцы
5.40
рейтинг книги
Дважды одаренный. Том VIII

Тузы за границей

Мартин Джордж Р.Р.
4. Дикие карты
Фантастика:
научная фантастика
7.14
рейтинг книги
Тузы за границей

Точка Бифуркации IV

Смит Дейлор
4. ТБ
Фантастика:
героическая фантастика
городское фэнтези
попаданцы
5.00
рейтинг книги
Точка Бифуркации IV

Лекарь Империи 4

Карелин Сергей Витальевич
4. Лекарь Империи
Фантастика:
городское фэнтези
аниме
попаданцы
5.00
рейтинг книги
Лекарь Империи 4

Начальник милиции. Книга 3

Дамиров Рафаэль
3. Начальник милиции
Фантастика:
попаданцы
альтернативная история
5.00
рейтинг книги
Начальник милиции. Книга 3

Чудесные занятия

Кортасар Хулио
Проза:
современная проза
6.25
рейтинг книги
Чудесные занятия

Возвращение

Кораблев Родион
5. Другая сторона
Фантастика:
боевая фантастика
6.23
рейтинг книги
Возвращение

Дитя прибоя

Трофимов Ерофей
Дитя прибоя
Фантастика:
боевая фантастика
попаданцы
фэнтези
5.25
рейтинг книги
Дитя прибоя

Я все еще не царь. Книга XXVI

Дрейк Сириус
26. Дорогой барон!
Фантастика:
попаданцы
аниме
5.00
рейтинг книги
Я все еще не царь. Книга XXVI

Путеводитель по Библии

Азимов Айзек
Приключения:
путешествия и география
5.00
рейтинг книги
Путеводитель по Библии

Проданная Истинная. Месть по-драконьи

Белова Екатерина
Любовные романы:
любовно-фантастические романы
5.25
рейтинг книги
Проданная Истинная. Месть по-драконьи