Андрей Попов - 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;

}

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

function FileToArray() {

var XML,Root,NomRec,CurrNode,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 TopReport(Mess) {

//Устанавливаем выравнивание по центру

Sel.ParagraphFormat.Alignment=wdAlignParagraphCenter;

//Устанавливаем полужирный шрифт

Sel.Font.Bold=true;

//Выводим сообщение с переводом строки

Sel.TypeText(Mess+"\n");

Sel.TypeText("\n");

//Устанавливаем выравнивание слева

Sel.ParagraphFormat.Alignment=wdAlignParagraphLeft;

//Отменяем полужирный шрифт

Sel.Font.Bold=false;

}

//Вывод итоговой информации

function BottomReport(Mess) {

//Устанавливаем полужирный шрифт

Sel.Font.Bold=true;

//Выводим сообщение с переводом строки

Sel.TypeText(Mess+"\n");

//Отменяем полужирный шрифт

Sel.Font.Bold=false;

}

//Вывод одного поля из записи

function TypeString(Title, Content) {

//Устанавливаем наклонный шрифт

Sel.Font.Italic=true;

//Печатаем название поля

Sel.TypeText(Title+":\t");

//Отменяем наклонный шрифт

Sel.Font.Italic=false;

//Печатаем содержимое поля

Sel.TypeText(Content+"\n");

}

//Печать содержимого полей объекта Person

function PrintPerson(PersRec) {

//Печатаем поля текущей записи

TypeString("Фамилия",PersRec.LastName);

TypeString("Имя",PersRec.Name);

TypeString("Телефон",PersRec.Phone);

TypeString("Улица",PersRec.Street);

TypeString("Дом",PersRec.House);

TypeString("Кв.",PersRec.App);

TypeString("Заметки",PersRec.Note);

//Печатаем разделитель с переводом строки

Sel.TypeText("-------------------------------------\n");

//Увеличиваем номер текущей записи

NomRec++;

}

//Сортировка массива и печать его содержимого

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 ListFile() {

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

FileToArray();

//Печатаем информацию из массива

ListPersonArray();

}

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

function Main() {

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

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

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

InitPath();

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

WA=WScript.CreateObject("Word.Application");

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

WD=WA.Documents.Add();

//Делаем окно Winword видимым

WA.Visible=true;

//Максимизируем окно Winword

WA.WindowState=wdWindowStateMaximize;

//Получаем ссылку на объект Selection

Sel=WA.Selection;

//Устанавливаем размер шрифта 12 пт

Sel.Font.Size=12;

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

TopReport("Общий список");

//Печатаем содержимое XML-файла с данными

ListFile();

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

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

//Сохраняем созданный документ под именем out.doc

WD.SaveAs(PathOut);

}

/******************* Начало **********************************/

Main();

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

Для того чтобы выводить записи из файла с данными в таблицу Word, мы поступим следующим образом.

Создадим вначале документ-шаблон table.dot, в котором будет нарисована таблица для вывода информации из записной книжки, а также будут написаны заголовок отчета и итоговая информация (рис. 8.7). Задача сценария заключается в создании нового документа по этому шаблону и заполнении строк таблицы нужными данными.

Рис. 8.7.Документ-шаблон table.dot

Напомним, как создается новый шаблон в Word. Запустив Word, нужно выбрать в меню Файл(File) пункт Создать(New) и установить переключатель Создать(New) в положение шаблон(template) (рис. 8.8)

Рис. 8.8.Создание в Word нового шаблона

Для обозначения в документе места, откуда будет начинаться вывод текста, в шаблон мы добавим две закладки (bookmarks). Вставляется закладка в текст следующим образом: курсор перемещается в нужную позицию, в меню Вставка(Insert) выбирается пункт Закладка(Bookmark), в диалоговом окне Закладка(Bookmark) пишется имя закладки и нажимается кнопка Добавить(Add) (рис. 8.9)

Рис. 8.9.Добавление новой закладки в документ Word

Первую закладку с именем "TableStart" нужно поместить в первую ячейку таблицы, т.е. в то место, откуда начнется печататься фамилия для самой первой записи. Вторая закладка с именем "NomRec" ставится после слов "Всего записей:" — здесь будет напечатано число записей (строк в таблице).