helpf.pro
Регистрация
 0 
Распечатать

Чтение RTF файлов через OpenOffice.

Для 8.х заменить СоздатьОбъект( на Новый COMОбъект(
Код 1C v 7.x
 // Пример от  Jaap Vduul 
// Пример чтения таблицы из OpenOffice:
// =====================================    
    ServiceManager     = СоздатьОбъект("com.sun.star.ServiceManager");
    Desktop             = ServiceManager.createInstance("com.sun.star.frame.Desktop");
    script             = СоздатьОбъект("ScriptControl");
    script.Language     = "vbs";
    script.AddCode
    (
        "Dim Parameters()
        |   
        |Sub InitParameters(Size)
        |     
        |    Erase Parameters
        |
        |    If Size > 0 Then 
        |        Redim Parameters(Size - 1) 
        |    End If
        |
        |End Sub
        |    
        |Sub SetParameter(ServiceManager, Name, Value, Index)
        |
        |    Set PropertyValue     = ServiceManager.Bridge_GetStruct(""com.sun.star.beans.PropertyValue"")
        |    PropertyValue.Name     = Name
        |    PropertyValue.Value     = Value
        |    
        |    Set Parameters(Index) = PropertyValue
        |
        |End Sub
        |    
        |Sub SetBooleanParameter(ServiceManager, Name, Value, Index)
        |    
        |    SetParameter ServiceManager, Name, Cbool(Value), Index
        |
        |End Sub
        |
        |Function LoadDocument(ComponentLoader, URL, TargetFrameName, SearchFlags)
        |   
        |    Set LoadDocument = ComponentLoader.loadComponentFromURL(URL, TargetFrameName, SearchFlags, Parameters)
        |
        |End Function
        |
        |Sub CloseDocument(Document)
        |
        |    Document.Close True
        |
        |End Sub"
    );
       
    script.Run("InitParameters", 2);
    script.Run("SetBooleanParameter", ServiceManager, "ReadOnly",     1, 0);
    script.Run("SetBooleanParameter", ServiceManager, "Hidden",         1, 1);

    URL = ПреобразоватьВURL(КаталогПриказов + НомерПриказа + ".rtf");
    Документ = script.Run("LoadDocument", Desktop, URL, "_blank", 0);
    Таблица = Документ.TextTables.getByIndex(0); // ссылка на первую таблицу

    ВсегоСтрок         = Таблица.getRows().getCount();
    ВсегоСтолбцов     = Таблица.getColumns().getCount();
     
    Для ИндексСтроки = 1 По (ВсегоСтрок - 1) Цикл // ИндексСтроки = 1, т.к. пропускаем заголовок
        Для ИндексСтолбца = 0 По (ВсегоСтолбцов - 1) Цикл
            Ячейка = Таблица.getCellByPosition(ИндексСтолбца, ИндексСтроки);
            ТекстЯчейки = Ячейка.getString();
        КонецЦикла;
    КонецЦикла;

    script.Run("CloseDocument", Документ);
Разместил:   Версии: | 7.x | 8.x |  Дата:   Прочитано: 16868
 0 
Распечатать
Возможно, вас также заинтересует
Как заполнить табличную часть формы программно? 8
Нужно по кнопке Заполнить - сформировать данные для заполнения табличных частей и заполнить их. Форма имеет вид: Рядом с кнопкой Записать и закрыть добавлена кнопка Заполнить документ , код ее команды: // Код заполнения ТЧ НаСервере П
10060 (0x0000274C): Попытка установить соединение была безуспешной 24
Установили новый терминальный сервер, на нем подняли 1С, терминальные пользователе неописуемо довольны, все просто летает :) И вот же надо было такому случиться, главному бухгалтеру не понравилось работать через терминал, а еще у нее свой ноутбук и
17 правил для составления оптимального ЗАПРОСа к данным базы 1С 53
Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос . Создается этот объект вызовом конструкции Новый Запрос . Запрос удобно использовать, когда требуется получ
1C и Google Maps 21
была поставлена задача отображения на географической карте медицинских учреждений. После обзора предлагаемых решений был выбран сервис google. Но так же подобного рода подход будет работать и с картами сервиса yandex. Во время решения задачи было реш
1C: Enterprise Development Tools 52
И вот случилось долгожданное: Вышел 1C: Enterprise Development Tools - это среда для разработки конфигурации в IDE Eclipse. С сайта 1С: « 1C:Enterprise Development Tools » – это инструмент нового поколения для разработчиков бизнес-приложений систем
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.
Загрузка... Дождитесь завершения!