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

//Заново загружаем данные из XML-файла в массив PersonArr

objListPersons.FileToArray();

}

//Добавляем новую запись в XML-файл

objListPersons.NewRecord();

//Загружаем в форму данные из массива PersonArr

//для добавленной записи

objListPersons.LoadDialog();

//Выводим сообщение в заголовке окна

doc.title = "Добавлена новая запись";

}

//Функция-обработчик нажатия на кнопку "Удалить"

function btnDelete_OnClick() {

//Удаляем текущую запись из XML-файла

objListPersons.DelRecord();

//Загружаем в форму данные из массива PersonArr

//для первой записи

objListPersons.LoadDialog();

//Выводим сообщение в заголовке окна

doc.title = "Запись удалена";

}

//Функция-обработчик нажатия на кнопку ">"

function btnNext_OnClick() {

//Проверяем, были ли сделаны изменения в форме

if (objListPersons.IsChanged) { //Изменения были сделаны

//Сохраняем данные в XML-файле

objListPersons.SaveData();

//Заново загружаем данные из XML-файла в массив PersonArr

objListPersons.FileToArray();

}

//Переходим к следующей записи в массиве

objListPersons.NextRecord();

//Загружаем в форму данные из массива PersonArr

//для текущей записи

objListPersons.LoadDialog();

//Выводим сообщение в заголовке окна

doc.title = "Запись N " + (objListPersons.CurRecord + 1);

}

//Функция-обработчик нажатия на кнопку ">>"

function btnFinal_OnClick() {

//Проверяем, были ли сделаны изменения в форме

if (objListPersons.IsChanged) { //Изменения были сделаны

//Сохраняем данные в XML-файле

objListPersons.SaveData();

//Заново загружаем данные из XML-файла в массив PersonArr

objListPersons.FileToArray();

}

//Переходим к последней записи в массиве

objListPersons.FinalRecord();

//Загружаем в форму данные из массива PersonArr

//для текущей записи

objListPersons.LoadDialog();

//Выводим сообщение в заголовке окна

doc.title = "Запись N " + (objListPersons.CurRecord + 1);

}

//Функция-обработчик изменения текста в полях ввода

function txtBoxOnChange() {

//Устанавливаем признак изменения данных в форме

objListPersons.IsChanged = true;

//Выводим сообщение в заголовке окна

doc.title = "Редактирование данных";

}

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

function Main() {

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

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

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

InitPath();

//Создаем объект InternetExplorer.Application с возможностью

//обработки событий этого объекта

ie = WScript.CreateObject("InternetExplorer.Application", "ie_");

//Устанавливаем свойства объекта ie для отображения формы3

ie.AddressBar = false;

ie.FullScreen = false;

ie.MenuBar = false;

ie.Resizable = false;

ie.StatusBar = false;

ie.ToolBar = false;

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

ie.Height = 300; //Высота

ie.Width = 780; //Длина

IsQuit=false;

//Загружаем HTML-файл с формой

ie.Navigate(PathHTML);

while (!IsQuit)

//Приостанавливаем сценарий на 0,1 сек

WScript.Sleep(100);

}

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

Main();

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

Не будет большим преувеличением сказать, что почти на всех компьютерах с операционной системой Windows установлены программы пакета Microsoft Office. Эти приложения являются серверами автоматизации, т.е. их действиями можно управлять из внешних программ, в том числе и из сценариев WSH. В этой главе мы рассмотрим на примерах, каким образом можно выводить из сценариев WSH информацию в две наиболее распространенные офисные программы — Microsoft Word и Microsoft Excel.

Для того чтобы использовать из сценариев WSH те возможности, которые поддерживают программы Word и Excel, необходимо знать, какие именно объекты предоставляются для внешнего использования этими серверами автоматизации и как объекты соотносятся друг с другом. Хотя объектные модели различных приложений Microsoft Office довольно сложны (например, Word содержит порядка 200 взаимосвязанных друг с другом объектов), они очень похожи друг на друга, причем для практических целей достаточно понять принцип работы с несколькими ключевыми объектами. Здесь мы не будем останавливаться на подробном рассмотрении свойств и методов объектов Word и Excel (для желающих глубже познакомиться с этой темой можно порекомендовать, например, замечательную книгу [17]), а лишь кратко упомянем, какие именно объекты будут использоваться в рассмотренных ниже примерах сценариев.