С Новым годом! Форум программистов, компьютерный форум, киберфорум
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/25: Рейтинг темы: голосов - 25, средняя оценка - 4.80
3031 / 1584 / 576
Регистрация: 16.01.2015
Сообщений: 6,739
1
1C 8.x

Макет Ворд. Вставить таблицу в xml

14.08.2018, 21:52. Показов 5175. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
На днях узнал, наверное, всем давно известную информацию - что такое формат docx. Оказывается - просто zip упакованный xml. Сразу задался вопросом как это можно использовать в 1с, в частности, заполнение макета Ворд в договорах. Т.е. брать файл xml из распаковки и без всяких OLE заполнять его, а может и не xml а просто текст. Оказалось-таки, что все умное давно придумано до нас и такое и реализовано и материалов в инете достаточно. Сделал. Договор заполняется в два-три раза быстрей (не замерял, но даже на взгляд - ЗНАЧИТЕЛЬНО быстрее). Но! Столкнулся с нерешаемой для своих знаний задачей. Все параметры макета ищутся и заполняются на ура, кроме таблиц.
Принцип работы: Вместо закладок Ворд указываю просто легко отличимые и невстречающиеся в обычном тексте значения (например, ААОрганизацияАА, ААКонтрагентАА и т.п.) Потом ищу в xml файле как в строке эти параметры и меняю на нужное.
Примерно так:
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
СписокПараметров = Новый Структура;
СписокПараметров.Вставить("ААНомерАА",Сред(форма.Объект.Номер,3));
СписокПараметров.Вставить("ААДатаАА",Формат(форма.Объект.Дата,"ДЛФ=DD"));
СписокПараметров.Вставить("ААЮридическоеНазваниеАА",форма.Объект.Контрагент);
Текст = Новый ЧтениеТекста(ВременнаяПапка + "\word\document.xml", КодировкаТекста.UTF8);
Стр = Текст.Прочитать();
Пока Стр <> Неопределено Цикл
Для каждого Элемент Из СписокПараметров Цикл
Стр = СтрЗаменить(Стр,Элемент.Ключ,Элемент.Значение);
КонецЦикла;
РезТекст.Записать(Стр);
Стр = Текст.Прочитать();
КонецЦикла;
Текст.Закрыть();
После всех замен, обратно упаковать и сохранить.
Все легко и просто для обычного параметра, а вот с таблицами засада
Одну строку заполняет, а как добавить остальные? Шаманство с Символы.ПС и подобное в файле xml смотрится как многострочный текст, а вот в ворд выводится все в кучу (скрин)
Может у кого есть предложения/знания КАК вставить в текст таблицу или как ее же впихнуть в xml, но в определенное место или может еще есть какие-то способы. Два дня бьюсь, ничего не получается
Миниатюры
Макет Ворд. Вставить таблицу в xml  
0
IT_Exp
Эксперт
8794 / 1073 / 104
Регистрация: 17.06.2006
Сообщений: 12,602
Блог
14.08.2018, 21:52
Ответы с готовыми решениями:

Макет Active Document. Вывод таблицы в ворд
Всем привет! Люди, кто знает как вывести программно созданную таблицу в нужном месте ворда....

Вставить параметр в макет
Доброго времени суток. Работаю в конфигураторе 1с8. Мне нужно вставить в макет значение реквезита...

Как Вставить Изображение В Макет Документа
Доброго времени суток. Дали задание написать макет, макет написан от души. Вот только клиент...

Макет отчета. Не получается Вывод данных о сумме в макет
Не могу разобраться с применением метода Присоединить к ТабДоку. В частности с выводом данных...

6
3031 / 1584 / 576
Регистрация: 16.01.2015
Сообщений: 6,739
14.08.2018, 21:54  [ТС] 2
Пример как пытался заполнить таблицу (то что на скрине)
1C
1
2
3
4
5
6
7
8
9
10
11
Выборка = РезультатЗапроса.Выбрать();
    Наименование = "";
    ЕдИзм = "";
    Пока Выборка.Следующий() Цикл
    Если Выборка.ЕдиницаИзмерения = "Усл" Тогда
    Наименование = Наименование + Строка(Выборка.Номенклатура) + Символы.ВК;
    ЕдИзм = ЕдИзм + Строка(Выборка.ЕдиницаИзмерения) + Символы.ВК;
    КонецЕсли;     
    КонецЦикла;
    СписокПараметров.Вставить("ААНаименованиеАА",Наименование);
    СписокПараметров.Вставить("ААРКоличествоРАА",ЕдИзм);
0
Модератор
2296 / 839 / 244
Регистрация: 22.04.2013
Сообщений: 6,164
Записей в блоге: 1
15.08.2018, 07:51 3
я бы попробовал вставить два тега - закрывающий строку таблицы и открывающий вместо символы.вк
ибо, кмк, в одну строку - значит нет разделения на строки. а строки чем разделяются ? если есть возможноть посмотреть хмель, то посмотри и попробуй вставить такой же
0
3031 / 1584 / 576
Регистрация: 16.01.2015
Сообщений: 6,739
15.08.2018, 09:01  [ТС] 4
Yulunga, Так вопрос именно в этом. КАК? Как вставить строку. Ни черта не понимаю в схеме xml Просто обозначить тэгами выдает тот же результат. Вернее, то КАК я обозначаю тэгами:
Цитата Сообщение от polax Посмотреть сообщение
в файле xml смотрится как многострочный текст
на скрине. Результат тот же, все в кучу
Миниатюры
Макет Ворд. Вставить таблицу в xml   Макет Ворд. Вставить таблицу в xml  
0
Модератор
2296 / 839 / 244
Регистрация: 22.04.2013
Сообщений: 6,164
Записей в блоге: 1
15.08.2018, 12:29 5
я имел в виду как-то по типу
СписокПараметров.Вставить("ААЮридическоеНазваниеАА</OfStroka><OfStroka>",форма.Объект.Контрагент);
применительно к названию твоих таблиц и строк в них.
0
3031 / 1584 / 576
Регистрация: 16.01.2015
Сообщений: 6,739
16.08.2018, 11:04  [ТС] 6
В общем справился. Покопался в тегах xml и нашел как оформить там таблицу.
Для сведения, договор (12 параметров, 2 таблицы, 3 страницы) на макете Ворд с использованием OLE формируется за 4-5 сек, тот же договор, но с распаковкой docx и работой с xml как с текстом, формируется менее 1 сек
0
Модератор
2296 / 839 / 244
Регистрация: 22.04.2013
Сообщений: 6,164
Записей в блоге: 1
16.08.2018, 12:04 7
зыка. потом спрошу как )
0
16.08.2018, 12:04
BasicMan
Эксперт
19315 / 2622 / 84
Регистрация: 17.02.2009
Сообщений: 10,364
Блог
16.08.2018, 12:04
Помогаю со студенческими работами здесь

Таблицу в ворд
Здравствуйте вывожу из бд данные и мне нужно их вывести в ворд в таблицу, все выводится все...

Вставить данные из ячейки в формулу ворд
Столкнулся с проблемой, необходимо вставить формулу ворд в место помеченное закладкой. Данные для...

Вывод данных в таблицу в ворд
Лаба по сис анализу на поиск минимума функции на отрезке разными методами. Сам поиск я сделал,...

Вставить документ Ворд с фотографиями в форму отчета на сайте
Господа, проблема такая: нужно вставить текст с фотографиями в форму отчета на туристическом сайте....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Блоги программистов
Обновление сайта www.historian.b­y
Reglage 05.01.2025
Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .
Как использовать GraphQL в C# с HotChocolate
Programming 05.01.2025
GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .
Модель полного двоичного суматора с помощью логических операций (python)
AlexSky-coder 04.01.2025
def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()
Это мы не проходили, это нам не задавали...(аси­­хронный счётчик с управляющим сигналом задержки).
Hrethgir 04.01.2025
Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .
Руководство по созданию бота для Телеграм на Python
IT_Exp 04.01.2025
Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .
Применение компонентов PrimeVue в Vue.js 3 на TypeScript
BasicMan 04.01.2025
Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer
cpp_developer 04.01.2025
В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .
Что известно о дате выхода Windows 12 и чего от нее ждать
IT_Exp 04.01.2025
В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .
Что новенького в .NET Core 9
Programming 04.01.2025
Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .
Инструкция по установке python3.13.1 в Debian 12
AlexSky-coder 03.01.2025
sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .
Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов.
Hrethgir 03.01.2025
В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .
Python в помощь DevOps
IT_Exp 03.01.2025
Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru