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

PersonToArray(CurrNode);

}

}

//Вывод заголовка отчета

function TopReport() {

//Печатаем в ячейки текст

XL.Cells(1,1).Value="Фамилия";

XL.Cells(1,2).Value="Имя";

XL.Cells(1,3).Value="Телефон";

//Выделяем три ячейки

XL.Range("A1:C1").Select();

//Устанавливаем полужирный текст для выделенного диапазона

XL.Selection.Font.Bold = true;

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

XL.Selection.HorizontalAlignment=xlCenter;

}

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

function PrintPerson(PersRec) {

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

NomRec++;

//В первом столбце печатаем фамилию

XL.Cells(NomRec+1,1).Value=PersRec.LastName;

//Во втором столбце печатаем имя

XL.Cells(NomRec+1,2).Value=PersRec.Name;

//В третьем столбце печатаем телефон

XL.Cells(NomRec+1,3).Value=PersRec.Phone;

}

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

function ListPersonArray() {

var i;

//Сортировка массива по фамилии

PersonArr.sort(SortLastName);

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

XL=WScript.CreateObject("Excel.Application");

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

XL.Visible=true;

//Открываем новую рабочую книгу

XL.WorkBooks.Add();

//Устанавливаем нужную ширину колонок

XL.Columns(1).ColumnWidth = 40;

XL.Columns(2).ColumnWidth = 40;

XL.Columns(3).ColumnWidth = 10;

//Печатаем заголовок таблицы

TopReport();

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

ListFile();

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

XL.ActiveWorkbook.SaveAs(PathOut);

}

//Запускаем основную функцию

Main();

На практике довольно часто возникают задачи, для решения которых необходимо из сценариев получать доступ к данным, хранящимся во внешних базах самого различного формата (структурированные текстовые файлы, таблицы DBF и Paradox, базы данных Microsoft Access и Microsoft SQL Server и т.д.). Это довольно просто можно сделать с помощью технологии Microsoft ADO (ActiveX Data Objects). Объекты ADO являются частью компонентов доступа к данным Microsoft (MDAC, Microsoft Data Access Components), которые поставляются, например, с браузером Microsoft Internet Explorer версии 5.0 и выше (таким образом, в Windows ХР эти компоненты присутствуют изначально) или могут быть свободно получены с сервера Microsoft (http://msdn.microsoft.com/data/download.htm).

Мы не будем здесь останавливаться на объектной модели и принципах работы ADO (желающие подробнее разобраться с этими вопросами могут обратиться к документации MSDN), а здесь лишь разберем несколько конкретных примеров работы с таблицей самой простой структуры: DBF- формата (до появления XML формат DBF широко применялся для обмена данными между разными автоматизированными системами, да и сейчас продолжает поддерживаться многими производителями программных продуктов). Как и в предыдущих главах, здесь будут использоваться данные записной книжки (ниже мы создадим сценарий, который будет копировать в таблицу информацию из XML-файла book.xml, с которым мы работали ранее).

Создать DBF-таблицу можно с помощью систем управления базами данных (СУБД) FoxPro, Microsoft Access или программы Microsoft Excel. Мы опишем процесс создания таблицы в Microsoft Access.

Первом шагом при создании таблицы в любой базе данных является определение структуры этой таблицы — нужно определить имена, типы и размеры всех полей. Мы назовем нашу таблицу Phone.dbf; структура ее описана в табл. 9.1.

Таблица 9.1.Структура таблицы Phone.dbf

Определившись со структурой таблицы, запустим Microsoft Access и создадим новую базу данных (рис. 9.1).