Windows Script Host для Windows 2000/XP

 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;
}

Поля объекта PersonRec заполняются с помощью функции GetTagVal(obj, tgName), которая возвращает значение дочернего для элемента obj элемента с именем tgName:

function GetTagVal(obj, tgName) {
 //Возвращаем значение тега tgName
 return obj.Children.Item(tgName,0).Text;
}

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

Листинг 6.3. Чтение данных из XML-файла с помощью объектной модели Internet Explorer 4.0

/*******************************************************************/
/* Имя: SortNameMSXML.js */
/* Язык: JScript */
/* Описание: Записная книжка (данные в XML-файле book.xml). */
/* Вывод всех записей с сортировкой по фамилии с */
/* помощью объектной модели Internet Explorer 4.0 */
/*******************************************************************/
//Объявляем переменные
var
 WshShell,FSO,
 BasePath, //Путь к текущему каталогу
 PathBook, //Путь к файлу с данными
 PathOut, //Путь к выходному файлу
 FBook, //Файл с данными
 FOut, //Выходной файл
 NomRec=0, //Счетчик количества записей
 PersonRec, //Объект для хранения данных об одном человеке
 PersonArr; //Массив для хранения объектов PersonRec
 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);