Получение дерева элементов обычной формы путем анализа системного представления формы (ЗначениеВСтрокуВнутр). Альтернатива деструктивному анализу

14.04.15

Разработка - Механизмы платформы 1С

В публикации рассмотрен вариант получения дерева элементов обычной формы с учетом принадлежности элементов панелям и страницам панелей.

Основным проблемным местом в получении дерева является определение, какой панели и странице панели принадлежит элемент формы. Единственный известный мне способ, который решает данную задачу, это  - декструктивный анализ формы. Ниже приведен набор процедур/функций, решающий задачу другим способом. Идею взял из публикации //infostart.ru/public/57431/, функцию, преобразующую внутреннее представление формы в формат xml из этого сообщения.

Тестировал на 8.1, 8.2, 8.3 (8.3.9 включительно)

P.S. получение дерева кнопок командной панели не рассмотрено, т.к. не представляет трудности.


Функция ПолучитьДеревоЭлементовФормы(Форма)

   
СтрокаФормы = ЗначениеВСтрокуВнутр(Форма);
   
XMLСтрокаФормы = СтрокаВнутрВХМЛТело(СтрокаФормы);
   
ЧтениеXML = Новый ЧтениеXML;
   
ЧтениеXML.УстановитьСтроку(XMLСтрокаФормы);
   
ПостроительDOM = Новый ПостроительDOM;
   
ДокументDOM = ПостроительDOM.Прочитать(ЧтениеXML);

   
РазыменовательПИ = Новый РазыменовательПространствИменDOM(ДокументDOM);
   
СтрокаXPath = "/elem/elem/elem[1]/elem[2]/elem[2]";
   
РезультатXPath = ДокументDOM.ВычислитьВыражениеXPath(СтрокаXPath, ДокументDOM,
   
РазыменовательПИ, ТипРезультатаDOMXPath.НеупорядоченныйИтераторУзлов);
   
ДЗ = Новый ДеревоЗначений;
   
ДЗ.Колонки.Добавить("ЭлементФормы");
   
Узел = РезультатXPath.ПолучитьСледующий();
   
СтрокаДЗ = ДЗ.Строки.Добавить();
   
СтрокаДЗ.ЭлементФормы = Форма.Панель;
    Если
Узел <> Неопределено Тогда
       
ОбойтиУзел(Форма, Узел, СтрокаДЗ);
    КонецЕсли;

    Возврат
ДЗ;

КонецФункции


Процедура
ОбойтиУзел(Форма, Узел, СтрокаДЗ)

    Для каждого
УзелЭлФормы Из Узел.ДочерниеУзлы Цикл
        Если
УзелЭлФормы.ИмяУзла = "data" Тогда
            Для каждого
Страница Из СтрокаДЗ.ЭлементФормы.Страницы Цикл
               
СтрокаСтраница = СтрокаДЗ.Строки.Добавить();
               
СтрокаСтраница.ЭлементФормы = Страница;
            КонецЦикла;
        Иначе
           
СвойстваЭлФормы = УзелЭлФормы.ДочерниеУзлы;Если ТипЗнч(УзелЭлФормы.ПоследнийДочерний) = Тип("ТекстDOM") Тогда
                УзелЭлФормы.УдалитьДочерний(УзелЭлФормы.ПоследнийДочерний);
            КонецЕсли;
            ЭтоПанель = СвойстваЭлФормы[СвойстваЭлФормы.Количество() - 1].ТекстовоеСодержимое <> "0";
           
СвойстваЭлФормыСИменем = СвойстваЭлФормы[СвойстваЭлФормы.Количество() - 2].ДочерниеУзлы;
           
СвойстваЭлФормыСИндексом = СвойстваЭлФормы[СвойстваЭлФормы.Количество() - 3].ДочерниеУзлы;
           
ИндексСтраницы = Число(СвойстваЭлФормыСИндексом[СвойстваЭлФормыСИндексом.Количество() - 5].ТекстовоеСодержимое);
           
НовСтрокаДЗ = СтрокаДЗ.Строки[ИндексСтраницы].Строки.Добавить();
           
НовСтрокаДЗ.ЭлементФормы = Форма.ЭлементыФормы[СтрЗаменить(СвойстваЭлФормыСИменем[1].ТекстовоеСодержимое, """", "")];
            Если
ЭтоПанель Тогда
               
ОбойтиУзел(Форма, СвойстваЭлФормы[СвойстваЭлФормы.Количество() - 1], НовСтрокаДЗ);
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;

КонецПроцедуры

Функция
СтрокаВнутрВХМЛТело(вхСтрока) Экспорт

  
выхХМЛТело = СтрЗаменить(вхСтрока,Символы.ПС,"");
  
выхХМЛТело = СтрЗаменить(выхХМЛТело,Символы.ВК,"");

  
выхХМЛТело = СтрЗаменить(выхХМЛТело,"&","&amp;");
  
выхХМЛТело = СтрЗаменить(выхХМЛТело,"<","&lt;");
  
выхХМЛТело = СтрЗаменить(выхХМЛТело,">","&gt;");

  
выхХМЛТело = СтрЗаменить(выхХМЛТело,",","</data><data>");
  
выхХМЛТело = СтрЗаменить(выхХМЛТело,"{","<elem><data>");
  
выхХМЛТело = СтрЗаменить(выхХМЛТело,"}","</data></elem>");

  
выхХМЛТело = СтрЗаменить(выхХМЛТело,"<data><elem>","<elem>");
  
выхХМЛТело = СтрЗаменить(выхХМЛТело,"</elem></data>","</elem>");

  
выхХМЛТело = СтрЗаменить(выхХМЛТело,"</elem>","</elem>" + Символы.ПС);
  
выхХМЛТело = СтрЗаменить(выхХМЛТело,"</data>","</data>" + Символы.ПС);

   Возврат
выхХМЛТело;

КонецФункции

 Пример

Дерево элементы форма принадлежность принадлежит панель страница панели ЗначениеВСтрокуВнутр

См. также

Поинтегрируем: сервисы интеграции – новый стандарт или просто коннектор?

Обмен между базами 1C Администрирование СУБД Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

В платформе 8.3.17 появился замечательный механизм «Сервисы интеграции». Многие считают, что это просто коннектор 1С:Шины. Так ли это?

11.03.2024    4498    dsdred    53    

71

Как готовить и есть массивы

Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Все мы используем массивы в своем коде. Это один из первых объектов, который дают ученикам при прохождении обучения программированию. Но умеем ли мы ими пользоваться? В этой статье я хочу показать все методы массива, а также некоторые фишки в работе с массивами.

24.01.2024    5286    YA_418728146    25    

63

Планы обмена VS История данных

Обмен между базами 1C Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Вы все еще регистрируете изменения только на Планах обмена и Регистрах сведений?

11.12.2023    6405    dsdred    36    

111

1С-ная магия

Механизмы платформы 1С Бесплатно (free)

Язык программирования 1С содержит много нюансов и особенностей, которые могут приводить к неожиданным для разработчика результатам. Сталкиваясь с ними, программист начинает лучше понимать логику платформы, а значит, быстрее выявлять ошибки и видеть потенциальные узкие места своего кода там, где позже можно было бы ещё долго медитировать с отладчиком в поисках источника проблемы. Мы рассмотрим разные примеры поведения кода 1С. Разберём результаты выполнения и ответим на вопросы «Почему?», «Как же так?» и «Зачем нам это знать?». 

06.10.2023    18469    SeiOkami    46    

118

Дефрагментация и реиндексация после перехода на платформу 8.3.22

Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Начиная с версии платформы 8.3.22 1С снимает стандартные блокировки БД на уровне страниц. Делаем рабочий скрипт, как раньше.

14.09.2023    12086    human_new    27    

74

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8811    YA_418728146    6    

141

Внешние компоненты Native API на языке Rust - Просто!

Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Внешние компоненты для 1С можно разработывать очень просто, пользуясь всеми преимуществами языка Rust - от безопасности и кроссплатформенности до удобного менеджера библиотек.

20.08.2023    6275    sebekerga    54    

94

Все скопируем и вставим! (Буфер обмена в 1С 8.3.24)

Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Рассмотрим новую возможность 8.3.24 и как её можно эффективно использовать

27.06.2023    15980    SeiOkami    31    

103
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. tormozit 7136 14.04.15 07:26 Сейчас в теме
На каком количестве форм протестировано минимально для каждого издания (8.X) платформы?
2. Alexey_ 26 14.04.15 10:19 Сейчас в теме
(1) tormozit, по 400 форм на каждое
3. Evil Beaver 8107 14.04.15 16:50 Сейчас в теме
Имхо, все уже украдено до нас: http://infostart.ru/public/106310
По ссылке выше - рабочий инструмент, а у автора - исследовательская работа. Надо бы объединить научные изыскания с прикладной полезностью в рамках одного продукта.
4. kiruha 388 08.09.15 14:44 Сейчас в теме
(3) Evil Beaver, у автора легко взять/доработать/внедрить практически, V8Reader- это не для всех.
tormozit; +1 Ответить
5. Evil Beaver 8107 08.09.15 17:09 Сейчас в теме
(4) kiruha, зато он разбирает все подряд, а не только формы. И качественно. А так, я ж не против статьи, в ней все хорошо :)
6. e.kogan 1892 12.03.20 19:38 Сейчас в теме
Большое спасибо, очень пригодилось.
Оставьте свое сообщение