Skip to content

Latest commit

 

History

History

pretty_code

Folders and files

NameName
Last commit message
Last commit date

parent directory

..
README.md
README.md
 
 
main.go
main.go
 
 

README.md

Пример использования парсера языка 1С

Имеем на входе код 1С в одну строку

Процедура УстановитьОтображениеЗаголовковГрупп(Форма, ИменаГрупп = "") Экспорт Если ВариантИнтерфейсаКлиентскогоПриложения= ВариантИнтерфейсаКлиентскогоПриложения.Версия8_2 Тогда ЖирныйШрифт = Новый Шрифт(,, Истина);     Если НЕ ЗначениеЗаполнено(ИменаГрупп) Тогда     Для Каждого Элемент Из Форма.Элементы Цикл         Если Тип(Элемент) = Тип("ГруппаФормы")          И Элемент.Вид = ВидГруппыФормы.ОбычнаяГруппа          И Элемент.ОтображатьЗаголовок = Истина           И (Элемент.Отображение = ОтображениеОбычнойГруппы.ОбычноеВыделение          Или Элемент.Отображение = ОтображениеОбычнойГруппы.Нет) Тогда             Элемент.ШрифтЗаголовка = ЖирныйШрифт;        КонецЕсли;      КонецЦикла;    Иначе      МассивЗаголовков = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ИменаГрупп,,, Истина);      Для Каждого ИмяЗаголовка Из МассивЗаголовков Цикл        Элемент = Форма.Элементы[ИмяЗаголовка];        Если Элемент.Отображение = ОтображениеОбычнойГруппы.ОбычноеВыделение ИЛИ Элемент.Отображение = ОтображениеОбычнойГруппы.Нет Тогда           Элемент.ШрифтЗаголовка = ЖирныйШрифт;        КонецЕсли;      КонецЦикла;    КонецЕсли;  КонецЕсли;КонецПроцедуры

После прогона через парсер получаем

Процедура УстановитьОтображениеЗаголовковГрупп(Форма, ИменаГрупп = "") Экспорт

    Если ВариантИнтерфейсаКлиентскогоПриложения = ВариантИнтерфейсаКлиентскогоПриложения.Версия8_2 Тогда
        ЖирныйШрифт = Новый Шрифт(, , Истина);
        Если Не ЗначениеЗаполнено(ИменаГрупп) Тогда
            Для Каждого Элемент Из Форма.Элементы Цикл
                Если Тип(Элемент) = Тип("ГруппаФормы") И Элемент.Вид = ВидГруппыФормы.ОбычнаяГруппа И Элемент.ОтображатьЗаголовок = Истина И Элемент.Отображение = ОтображениеОбычнойГруппы.ОбычноеВыделение ИЛИ Элемент.Отображе
ние = ОтображениеОбычнойГруппы.Нет Тогда
                    Элемент.ШрифтЗаголовка = ЖирныйШрифт;
                КонецЕсли;

            КонецЦикла;

        Иначе
            МассивЗаголовков = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ИменаГрупп, , , Истина);
            Для Каждого ИмяЗаголовка Из МассивЗаголовков Цикл
                Элемент = Форма.Элементы[ИмяЗаголовка];
                Если Элемент.Отображение = ОтображениеОбычнойГруппы.ОбычноеВыделение ИЛИ Элемент.Отображение = ОтображениеОбычнойГруппы.Нет Тогда
                    Элемент.ШрифтЗаголовка = ЖирныйШрифт;
                КонецЕсли;

            КонецЦикла;

        КонецЕсли;

    КонецЕсли;
КонецПроцедуры