Windows Script Host для Windows 2000/XP, Попов Андрей Викторович

Windows Script Host для Windows 2000/XP

на обложку

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

Шрифт:

ElemList=obj.getElementsByTagName(tgName);

//Проверяем, есть ли в коллекции ElemList элементы

if (ElemList.length>0)

//Возвращаем значение тега tgName

return ElemList.item(0).text

else return "";

}

//Заполнение нового элемента массива

function PersonToArray(XNode) {

//Создаем новый

экземпляр PersonRec объекта Person

PersonRec=new Person;

//Заполняем поля объекта PersonRec

PersonRec.LastName=GetTagVal(XNode,"LastName");

PersonRec.Name=GetTagVal(XNode,"Name");

PersonRec.Phone=GetTagVal(XNode,"Phone");

PersonRec.Street=GetTagVal(XNode,"Street");

PersonRec.House=GetTagVal(XNode,"House");

PersonRec.App=GetTagVal(XNode,"App");

PersonRec.Note=GetTagVal(XNode,"Note");

//Сохраняем объект PersonRec в массиве

PersonArr[PersonArr.length]=PersonRec;

}

//Запись в выходной файл заголовка отчета

function TopReport(Mess) {

FOut.WriteLine(Mess);

FOut.WriteLine("--------------------");

FOut.WriteLine("");

}

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

function BottomReport(Mess) {

FOut.WriteLine(Mess);

}

//Запись данных из объекта Person в выходной файл

function PrintPerson(PersRec) {

FOut.WriteLine("Фамилия: "+PersRec.LastName);

FOut.WriteLine("Имя: "+PersRec.Name);

FOut.WriteLine("Телефон: "+PersRec.Phone);

FOut.WriteLine("Улица: "+PersRec.Street);

FOut.WriteLine("Дом: "+PersRec.House);

FOut.WriteLine("Кв.: "+PersRec.App);

FOut.WriteLine("Заметки: "+PersRec.Note);

FOut.WriteLine("*********************************");

NomRec++;

}

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

function MakeOut {

//Закрываем выходной файл

FOut.Close;

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

WshShell.Run("notepad "+PathOut,1);

}

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

function InitPath {

BasePath=WshShell.CurrentDirectory+"\\";

//Путь

к файлу с данными

PathBook=BasePath+"book.xml",

//Путь к выходному файлу

PathOut=BasePath+"out.txt";

}

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

Также в отдельный файл WSHInputBox.vbs мы поместим функцию

WSHinputBox(Message, Title)

на языке VBScript, с помощью которой из JScript-сценариев будет выводиться диалоговое окно со строкой ввода (напомним, что ни язык JScript, ни объектная модель WSH такой функции не предоставляют):

Function WSHInputBox(Message,Title)

'Выводим диалоговое окно со строкой ввода

WSHInputBox = InputBox(Message,Title)

End Function

Сами задания из файла PhoneBook.wsf составлены (с некоторыми изменениями, на которых мы подробно останавливаться не будем) из одиночных сценариев, которые были рассмотрены в предыдущей главе: см. листинг 6.3 (просмотр всех записей в алфавитном порядке), листинг 6.4 (добавление записей) и листинг 6.5 (поиск записей по фамилии и удаление записей).

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

Листинг 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);