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

В листинге 7.3 приводится полный текст сценария PhoneBook.wsf.

//Создание массива объектов Person

function FileToArray() {

var XML,Root,NomRec,CurrNode,ex,i;

//Создаем массив PersonArr

PersonArr=new Array();

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

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

//Загружаем XML-документ из файла

XML.load(PathBook);

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

//документа

Root=XML.documentElement;

//Перебираем все дочерние элементы первого уровня вложенности

//для корневого элемента

for (i=1; i<=Root.childNodes.length-1;i++) {

//Выделяем в коллекции XML-элементов i-й элемент

CurrNode=Root.childNodes.item(i);

//Добавляем новый элемент в массив объектов Person

PersonToArray(CurrNode);

}

}

//Сортировка массива и вывод его содержимого в выходной файл

function ListPersonArray() {

var i;

//Сортировка массива по фамилии

PersonArr.sort(SortLastName);

//Цикл по всем элементам массива PersonArr

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

//Запись информации в выходной файл

PrintPerson(PersonArr[i]);

}

}

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

function SortLastName(Pers1,Pers2) {

if (Pers1.LastName

else if (Pers1.LastName==Pers2.LastName) return 0;

else return 1;

}

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

function Main() {

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

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

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

InitPath();

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

FSO=WScript.CreateObject("Scripting.FileSystemObject");

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

FOut=FSO.OpenTextFile(PathOut,ForWriting,true);

//Печатаем заголовок отчета

TopReport("Список всех записей, сортировка по фамилии");

//Считываем данные из файла в массив

FileToArray();

//Записываем информацию из массива в выходной файл

ListPersonArray();

//Печатаем итоговую информацию

BottomReport("Всего записей: "+PersonArr.length);

//Открываем выходной файл в Блокноте

MakeOut();

}

//Запускаем основную функцию

Main();

//Поиск в XML-файле нужных записей и сохранение их в

//массиве PersonArr

function RecordsToArray(LastName) {

var XMLDoc,Root,sSelect,i,Parent,NodeList;

//Создаем массив PersonArr

PersonArr=new Array();

//Создаем объект 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,

"Записная книжка",vbInformation+vbOkOnly);

//Завершаем выполнение задания

WScript.Quit();

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

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

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

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

//элемента LastName

Parent=NodeList.item(i).parentNode;

//Добавляем новый элемент в массив объектов Person

PersonToArray(Parent);

}

}

}

//Вывод в выходной файл информации о найденных записях

function PrintAllFind() {

var i;

for (i=0;i

PrintPerson(PersonArr[i]);

}

}

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

function Main() {

var LastName;

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

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

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

InitPath();

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

FSO=WScript.CreateObject("Scripting.FileSystemObject");

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

FOut=FSO.OpenTextFile(PathOut,ForWriting,true);

//Печатаем заголовок отчета

TopReport("Поиск записей");

//Вводим фамилию для поиска

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

//Ищем в XML-файле нужные записи и сохраняем их в массиве PersonArr

RecordsToArray(LastName);

//Выводим все найденные записи из массива PersonArr в выходной файл

PrintAllFind(LastName);

//Печатаем итоговую информацию

BottomReport("Всего найдено: "+PersonArr.length);

//Открываем выходной файл в Блокноте

MakeOut();

}

//Запускаем основную функцию

Main();

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

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

function FindAndDelRecord(LastName) {

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,

"Записная книжка",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,

"Записная книжка",vbInformation+vbOkOnly);

}

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

XMLDoc.save(PathBook);

}

}

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

function Main() {

var LastName,Res;

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

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

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

InitPath();

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

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

Res=WshShell.Popup("Удалить фамилию "+LastName+ " из \n"+PathBook+"?",0,

"Записная книжка",vbQuestion+vbYesNo);

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

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

//ней запись