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

XMLDoc.save(PathBook);

Полный текст сценария AddRecord.js приводится в листинге 6.5.

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

/* РРјСЏ: AddRecord.jsВ В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В  */

/* Язык: JScript                                                   */

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

/*           Вставка новых элементов в XML-файл                    */

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

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

var

В WshShell,

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

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

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

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

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

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

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

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

//Конструктор объекта Person

function Person(LastName,Name,Phone,Street,House,App,Note) {

 this.LastName=LastName; //Фамилия

В this.Name=Name;В В В В В В В В  //РРјСЏ

 this.Phone=Phone;       //Телефон

 this.Street=Street;     //Улица

 this.House=House;       //Дом

 this.App=App;           //Квартира

 this.Note=Note;         //Примечание

}

//Заполнение полей объекта PersonRec

function MakePersonRec() {

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

В PersonRec=new Person();

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

В PersonRec.LastName="РЎРёРґРѕСЂРѕРІ";

 PersonRec.Name="Антон";

В PersonRec.Phone="18-18-18";

 PersonRec.Street="Саранская";

В PersonRec.House="12";

В PersonRec.App="4";

 PersonRec.Note="Запись добавлена из сценария";

}

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

function RecordToFile(PersRec) {

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

В var Root,NewElem,s;

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

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

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

В XMLDoc.load(PathBook);

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

 //документа

В Root=XMLDoc.documentElement;

 //Создаем XML-элемент Person

В NewElem=XMLDoc.createElement("Person");

 //Добавляем новый элемент в XML-файл

В Root.appendChild(NewElem);

 //Сохраняем в переменной Root ссылку на последний добавленный

 //элемент Person

В Root=Root.lastChild;

 //Создаем элемент LastName

В NewElem=XMLDoc.createElement("LastName");

 //Добавляем новый элемент в XML-файл (внутри элемента Person)

В Root.appendChild(NewElem);

 //Подставляем в качестве содержимого элемента LastName

 //значение поля LastName объекта PersRec

В Root.lastChild.text=PersRec.LastName;

 //Создаем элемент Name

В NewElem=XMLDoc.createElement("Name");

 //Добавляем новый элемент в XML-файл (внутри элемента Person)

В Root.appendChild(NewElem);

 //Подставляем в качестве содержимого элемента Name

 //значение поля Name объекта PersRec

В Root.lastChild.text=PersRec.Name;

 //Создаем элемент Phone

В NewElem=XMLDoc.createElement("Phone");

 //Добавляем новый элемент в XML-файл (внутри элемента Person)

В Root.appendChild(NewElem);

 //Подставляем в качестве содержимого элемента Phone

 //значение поля Phone объекта PersRec

В Root.lastChild.text=PersRec.Phone;

 //Создаем элемент Street

В NewElem=XMLDoc.createElement("Street");

 //Добавляем новый элемент в XML-файл (внутри элемента Person)

В Root.appendChild(NewElem);

 //Подставляем в качестве содержимого элемента Street

 //значение поля Street объекта PersRec

В Root.lastChild.text=PersRec.Street;

 //Создаем элемент House

В NewElem=XMLDoc.createElement("House");

 //Добавляем новый элемент в XML-файл (внутри элемента Person)

В Root.appendChild(NewElem);

 //Подставляем в качестве содержимого элемента House

 //значение поля House объекта PersRec

В Root.lastChild.text=PersRec.House;

 //Создаем элемент App

В NewElem=XMLDoc.createElement("App");

 //Добавляем новый элемент в XML-файл (внутри элемента Person)

В Root.appendChild(NewElem);

 //Подставляем в качестве содержимого элемента App

 //значение поля House объекта PersRec

В Root.lastChild.text=PersRec.App;

 //Создаем элемент Note

В NewElem=XMLDoc.createElement("Note");

 //Добавляем новый элемент в XML-файл (внутри элемента Person)

В Root.appendChild(NewElem);

 //Подставляем в качестве содержимого элемента App

 //значение поля House объекта PersRec

В Root.lastChild.text=PersRec.Note;

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

В XMLDoc.save(PathBook);

}

//Добавление новой записи в книжку

function AddRecord() {

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

В 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("Новая записьnn"+PersonRec.LastName+" "+

В В  PersonRec.Name+"n"+PersonRec.Phone+"n"+

В В  PersonRec.Street+", "+PersonRec.House+"-"+PersonRec.App+"nn"+

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

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