Андрей Попов - Windows Script Host для Windows 2000/XP
 ForWriting=2; //Константа для создания выходного файла
//Конструктор объекта 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;        //Примечание
}
//Определение значения тега tgName XML-элемента obj
function GetTagVal(obj, tgName) {
 //Возвращаем значение тега tgName
В return obj.Children.Item(tgName,0).Text;
}
//Заполнение нового элемента массива
function PersonToArray(XItem) {
 //Создаем новый экземпляр PersonRec объекта Person
В PersonRec=new Person();
 //Заполняем поля объекта PersonRec
В PersonRec.LastName=GetTagVal(XItem,"LastName");
В PersonRec.Name=GetTagVal(XItem,"Name");
В PersonRec.Phone=GetTagVal(XItem,"Phone");
В PersonRec.Street=GetTagVal(XItem,"Street");
В PersonRec.House=GetTagVal(XItem,"House");
В PersonRec.App=GetTagVal(XItem,"App");
В PersonRec.Note=GetTagVal(XItem,"Note");
 //Сохраняем объект PersonRec в массиве
В PersonArr[PersonArr.length]=PersonRec;
}
//Создание массива объектов Person
function FileToArray() {
var
В XML,NomRec,XItem,ex;
 //Создаем массив PersonArr
В PersonArr=new Array();В
 //Создаем объект MSXML
В XML=WScript.CreateObject("MSXML");
 //Задаем путь к файлу с данными
В XML.url=PathBook;
В //Рнициализируем счетчик числа элементов Person
 //в XML-файле
В NomRec=0;
В try {
 //Определяем число элементов Person в XML-файле
В NomRec=XML.root.children.item("Person").length;
В if (typeof(NomRec)=="undefined") NomRec=1;
В } catch (ex) {
В NomRec=0;
В }
 //Перебираем коллекцию XML-элементов Person
В for (i=0;i<NomRec;i++) {
 //Выделяем в коллекции XML-элементов i-й элемент Person
В XItem=XML.root.children.item("Person",i);
 //Добавляем новый элемент в массив объектов Person
В PersonToArray(XItem);
В }
}
//Запись в выходной файл заголовка отчета
function TopReport(Mess) {
В FOut.WriteLine(Mess);
В FOut.WriteLine("--------------------");
В FOut.WriteLine("");
}
//Запись в выходной файл итоговой информации
function BottomReport() {
 FOut.WriteLine("Всего записей: "+NomRec);
}
//Запись данных из объекта 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 ListPersonArray() {
var i,a;
 //Сортировка массива по фамилии
В PersonArr.sort(SortLastName);
 //Цикл по всем элементам массива PersonArr
В for (i=0;i<=PersonArr.length-1;i++) {
 //Запись информации в выходной файл
В PrintPerson(PersonArr[i]);
В }
}
//Функция для сортировки массива по фамилии
function SortLastName(Pers1,Pers2) {
В if (Pers1.LastName<Pers2.LastName) return -1;
В else if (Pers1.LastName==Pers2.LastName) return 0;
В else return 1;
}
//Вывод содержимого файла с данными
function ListFile() {
 //Считывание данных из файла в массив
В FileToArray();
 //Запись информации из массива в выходной файл
В ListPersonArray();
}
//Просмотр содержимого выходного файла в Блокноте
function MakeOut() {
 //Закрываем выходной файл
В FOut.Close();
 //Открываем выходной файл в Блокноте
В WshShell.Run("notepad "+PathOut,1);
}
//Построение путей к файлам
function InitPath() {
В BasePath=WshShell.CurrentDirectory+"\";
 //Путь к файлу с данными
В PathBook=BasePath+"book.xml",
 //Путь к выходному файлу
В PathOut=BasePath+"out.txt";
}
//Основная запускная функция
function Main() {
 //Создаем объект WshShell
В WshShell = WScript.CreateObject("WScript.Shell");
 //Определяем пути к файлам
В InitPath();
 //Создаем объект FileSystemObject
В FSO=WScript.CreateObject("Scripting.FileSystemObject");
 //Открываем выходной файл для записи
В FOut=FSO.OpenTextFile(PathOut,ForWriting,true);
 //Печатаем заголовок отчета
 TopReport("Сортировка по фамилии");
 //Выводим содержимого файла с данными
В ListFile();
 //Печатаем итоговую информацию
 BottomReport("Всего записей: "+PersonArr.length);
 //Открываем выходной файл в Блокноте
В MakeOut();
}
/******************* Начало **********************************/
Main();
/************* Конец *********************************************/
Рспользование XML DOM для просмотра Рё изменения РҐРњL-файла
Объектная модель XML DOM (XML Document Object Model, объектная модель документа XML) является рекомендованным корпорацией W3C стандартом, который определяет интерфейсы, с помощью которых приложения могут загружать XML-файл, просматривать его содержимое, производить поиск, добавление, изменение и удаление данных, сохранять сделанные изменения в файле. Отметим, что в модели XML DOM документ в формате XML рассматривается как иерархическое дерево, которое состоит из элементов, называемых узлами (nodes), и имеет один корневой элемент (узел).
ЗамечаниеВ дальнейшем РІ этой главе терминами "элемент" Рё "узел" РјС‹ будем пользоваться как синонимами.В
Описание модели XML DOM
Парсер MSXML поддерживает много объектов, определяемых в модели XML DOM, с помощью которых можно решать связанные с XML задачи различного уровня сложности. Нам в дальнейшем для написания сценариев, которые осуществляют просмотр записной книжки в XML-формате, а также поиск, добавление и удаление записей из этой книжки, понадобятся только три основных объекта: DOMDocument (представляет XML-документ в целом), XMLDOMNode (представляет одиночный XML-элемент, т. е. один узел в дереве) и XMLDOMNodeList (коллекция элементов, являющихся дочерними по отношению к определенному узлу в дереве, доступ к которым возможен по порядковому номеру при помощи метода item()).
