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

Windows Script Host для Windows 2000/XP

на обложку

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

Шрифт:

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<Pers2.LastName) return -1;

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" ставится после слов "Всего записей:" — здесь будет напечатано число записей (строк в таблице).

Перейдем теперь к рассмотрению сценария ListWordTable.js, который создает на основе шаблона table.dot файл out.doc и заполняет таблицу в этом файле данными из записной книжки book.xml (рис. 8.5).

Основной функцией в этом сценарии является, как обычно, функция

Main

. Здесь сначала вызывается функция

InitPath

для определения путей к файлам book.xml (переменная

PathBook

), out.doc (переменная

PathOut

) и table.dot (переменная

PathTempl

), после чего создается экземпляр объекта

Word.Application