Форум на Kuban.ru - Загрузка OpenOffice

разбирайся с древней болванкой (не важно, то таблицы)

//*******************************************
Функция ПолучитьОбертку()
ХТМЛ = СоздатьОбъект("htmlfile");
ХТМЛ.Open("text/html");
//<-- Подготовим нужные методы
ХТМЛ.Write("<script>
|var ХТМЛ;
|ПолучитьЗначение=function(x,y){return x.constructor == Array ? x[y] : x**;
|УстановитьЗначение=function(x,y,z){x[y]=z**;
|РазмерМассива=function(x){return x.length**;
|УстановитьБулево=function(x){x.Value=Boolean(x.Value)**;
|Массив=function(x){return new Array(x)**;
|</script>");
Док=ХТМЛ.documentElement.document;
// Внедрение объекта Скрипта в самого себя, для сохранности контекста
Док.script.ХТМЛ=ХТМЛ;
// Все подготовке -->
Возврат Док.script;
КонецФункции // ПолучитьОбертку(Это)

Функция Цвет(Красный=0,Зеленый=0,Синий=0)
Возврат (Красный*65536)+(Зеленый*256)+Синий;
КонецФункции // Цвет(Красный=0,Зеленый=0,Синий=0)

Функция ОпенОфис(Файл="")
Это=ПолучитьОбертку();
//УРЛ="file:///"+Это.encodeURI(СтрЗаменить(Файл,"\","/"));
СервисМанагер=СоздатьОбъект("com.sun.star.ServiceManager");
Обновлялка=СервисМанагер.createInstance("com.sun.star.reflection.CoreReflection");
Проводник=СервисМанагер.createInstance("com.sun.star.ucb.FileContentProvider");
УРЛ=Проводник.getFileURLFromSystemPath("",Файл);
Сообщить(УРЛ);
Массив=Это.Массив(0);
Параметр=Это.Массив(0);
Для Сч=0 По 1 Цикл
Обновлялка.forName("com.sun.star.beans.PropertyValue").createObject(Параметр);
Это.УстановитьЗначение(Массив,Сч,Это.ПолучитьЗначение(Параметр,0));
КонецЦикла;

Параметр=Это.ПолучитьЗначение(Массив,0);
Параметр.Name="Hidden";
Параметр.Value=0;//Если 0 или любое пустое значение то Ложь, иначе Истина
Это.УстановитьБулево(Параметр);

Параметр=Это.ПолучитьЗначение(Массив,1);
Параметр.Name="Password";
Параметр.Value="123";

Для Сч=0 По Это.РазмерМассива(Массив)-1 Цикл
Сообщить(Это.ПолучитьЗначение(Массив,Сч).Name);
Сообщить(Это.ПолучитьЗначение(Массив,Сч).Value);
КонецЦикла;

Десктоп = СервисМанагер.createInstance("com.sun.star.frame.Desktop");
//Док = Десктоп.LoadComponentFromURL("private:factory/scalc", "_blank", 0, Массив );
Док = Десктоп.LoadComponentFromURL(УРЛ, "_blank", 0, Массив );
ИмяЗакладки="Закладка1";
Текст=Док.getText();
Контроллер=Док.CurrentController;
Курсор=Контроллер.getViewCursor();
Закладки=Док.getBookmarks();
Попытка
Закладка=Закладки.getByName(ИмяЗакладки);
Исключение
Сообщить("Фигня какая то с закладкой """+ИмяЗакладки+"""!!!");
Возврат(1);
КонецПопытки;
Якорь=Закладка.getAnchor();
Курсор.gotoRange(Якорь, 0);

//Курсор.CharColor=Цвет(255,0,0);
//Курсор.CharBackColor=Цвет(0,255,0);
//Курсор.CharFontName="Times New Roman";
//Курсор.CharHeight=48;

ТЗ=СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Товар");
ТЗ.НоваяКолонка("Количество");
ТЗ.НоваяКолонка("Цена");
ТЗ.НоваяКолонка("Сумма");
ТЗ.НоваяСтрока();
ТЗ.Товар = "Носки";
ТЗ.Количество = 1;
ТЗ.Цена = 20;
ТЗ.Сумма = ТЗ.Цена * ТЗ.Количество;
ТЗ.НоваяСтрока();
ТЗ.Товар = "Трусы";
ТЗ.Количество = 1;
ТЗ.Цена = 100;
ТЗ.Сумма = ТЗ.Цена * ТЗ.Количество;
ТЗ.НоваяСтрока();
ТЗ.Товар = "Броник";
ТЗ.Количество = 1;
ТЗ.Цена = 200;
ТЗ.Сумма = ТЗ.Цена * ТЗ.Количество;
//ТаблицаООО=Док.createInstance("com.sun.star.text.TextTable");
//ТаблицаООО.initialize(ТЗ.КоличествоСтрок()+1,ТЗ.КоличествоКолонок());
////Текст.insertString(Курсор, "Тут была закладка """+ИмяЗакладки+"""", 0 );
//Текст.insertTextContent(Курсор,ТаблицаООО,0);
//Для Кол=1 По ТЗ.КоличествоКолонок() Цикл
// Ячейка=ТаблицаООО.getCellByPosition(Кол-1,0);
// Ячейка.getText().setString(""+ТЗ.ПолучитьПараметрыКолонки(Кол));
//КонецЦикла;
Стр="";
Для Сч=1 По ТЗ.КоличествоСтрок() Цикл
Для Кол=1 По ТЗ.КоличествоКолонок() Цикл
//Ячейка=ТаблицаООО.getCellByPosition(Кол-1,Сч);
//Ячейка.getText().setString(""+ТЗ.ПолучитьЗначение(Сч,Кол));
Стр=Стр+""+ТЗ.ПолучитьЗначение(Сч,Кол)+Симв(9);
//Курсор.setString(""+ТЗ.ПолучитьЗначение(Сч,Кол)+Симв(9));
//Курсор.gotoEnd(0);
КонецЦикла;
Стр=Стр+Симв(10);
//Курсор.getText().insertControlCharacter(Курсор.End,0,0);
КонецЦикла;
Якорь.setString(Стр);
Возврат 0;
//Сообщить(Текст.getString(Якорь.getStart(),Якорь.getEnd()));
Перейти ~М1;
Листы=Док.getSheets();
Лист=Листы.getByIndex(0);
Курсор=Лист.createCursor();
Курсор.gotoStartOfUsedArea(0);
Курсор.gotoEndOfUsedArea(-1);
Адреса=Курсор.getRangeAddress();
Диапазон=Лист.getCellRangeByPosition(Адреса.StartColumn,Адреса.StartRow,Адреса.EndColumn,Адреса.EndRow);
Поиск=Диапазон.createSearchDescriptor();
Поиск.SearchRegularExpression = -1;
Поиск.SearchString = ".+";
Рез=Диапазон.findAll(Поиск);
Всего=Рез.getCount();
Начало=Рез.getByIndex(0).getRangeAddress();
Конец=Рез.getByIndex(Всего-1).getRangeAddress();
ДиапазонДанных=Диапазон.getSpreadsheet().getCellRangeByPosition(Начало.StartColumn, Начало.StartRow,Конец.EndColumn,Конец.EndRow);
Для С=1 По ДиапазонДанных.getRows().getCount() Цикл
Стр="";
Для К=1 По ДиапазонДанных.getColumns().getCount() Цикл
Стр=Стр+"; "+ДиапазонДанных.getCellByPosition(К-1,С-1).getText().String();
КонецЦикла;
Сообщить(Стр);
КонецЦикла;
~М1:
Массив=Это.Массив(0);
Обновлялка.forName("com.sun.star.beans.PropertyValue").createObject(Параметр);
Это.УстановитьЗначение(Массив,0,Это.ПолучитьЗначение(Параметр,0));

Параметр.Name="Wait";
Параметр.Value=-1;//Если 0 или любое пустое значение то Ложь, иначе Истина
Это.УстановитьБулево(Параметр);
Для Сч=0 По Это.РазмерМассива(Массив)-1 Цикл
Сообщить(Это.ПолучитьЗначение(Массив,Сч).Name);
Сообщить(Это.ПолучитьЗначение(Массив,Сч).Value);
КонецЦикла;
Док.Print(Массив);
//Предупреждение("Печать ?");
//Док.Close(-1);
//Десктоп.Terminate();
КонецФункции

//*******************************************
Процедура Сформировать()
Перем Имя,Путь;
Если ФС.ВыбратьФайл(0,Имя,Путь,"","Файлы офиса|*.ods;*.xls;*.odt;*.doc","*")=0 Тогда
Возврат;
КонецЕсли;
ОпенОфис(Путь+Имя);
КонецПроцедуры

//