Раскрашивание кода 1C:Предприятия 8.2 (управляемое приложение)

Опубликовал Сергей Чигирь (Kserken) в раздел Программирование - Работа с интерфейсом

Раскрашивание кода в 1С:Предприятии теперь и для управляемого приложения!

Раскрашивание кода, написанного на встроенном языке 1С:Предприятие 8.2 (управляемое приложение).

Обработка состоит из одной формы, в которой находятся два элемента управления: ПолеТекстовогоДокумента и ПолеHTMLДокумента. В обработку в ПолеТекстовогоДокумента помещается код на встроенном языке и после нажатия на кнопку «Раскрасить» в ПолеHTMLДокумента выводится результат раскрашивания. Результат можно сохранить в файле *.html.


Теперь добавлена конфигурация с примером реализации раскрашивания кода! В архиве лежит *.cf и *.dt файл.

Скачать файлы

Наименование Файл Версия Размер
РаскрашиваниеКода.epf
.epf 10,01Kb
18.08.12
72
.epf 10,01Kb 72 Скачать
КонфигурацияРаскрашиваниеКода
.rar 37,57Kb
12.10.12
14
.rar 37,57Kb 14 Скачать

См. также

Добавить вознаграждение
Комментарии
1. Андрей Акулов (DrAku1a) 1186 16.08.12 09:19 Сейчас в теме
2. Дмитрий Иванов (STivO) 55 17.08.12 17:08 Сейчас в теме
Всё хорошо, только директивы &НаСервере, &НаКлиенте не раскрашиваются.
3. kserken (Kserken) 19.08.12 11:12 Сейчас в теме
(2) STivO, спасибо что заметили. Уже исправил.
4. Кирилл kirillkr (kirillkr) 26 21.08.12 17:48 Сейчас в теме
Жалко что нет подсветки прямо в редакторе кода :(
5. Владимир Чепурной (91197ch) 26 30.11.12 16:21 Сейчас в теме
6. Сергей Концеропятов (skyp) 34 30.12.12 17:03 Сейчас в теме
Полезная вещь!
Самому всё недосуг было, а тут - очень удобная реализация. спасибо!
7. Олег (olbu) 27.01.15 09:45 Сейчас в теме
А как ее мона использовать, например вставлять раскрашенный код в какое либо сообщение форума?
8. Andrey Kubrik (Malfarion) 97 23.12.15 01:34 Сейчас в теме
Спасибо за алгоритм.
Есть небольшая проблема когда встречаются строки со спец символами, например если строка будет содержать текст ....<h1>Текст<h1>... Поле интерпритирует его как тег и выведет "Текст" заголовком с новой строки, и любые другие малоприятные баги.
В качестве решения для себя сделал вот такую манипуляцию перед раскраской :

&НаКлиенте
Функция ЗаменитьСпецСИмволы(Знач Текст);
Текст=СтрЗаменить(Текст,"<",Символ(852));
Текст=СтрЗаменить(Текст,">",Символ(853));
ВОзврат Текст;
КонецФункции

Добавил символы 853 и 853 в функция опеределия спец символов, далее после раскраски возвращаю назад в прежний вид

&НаКлиенте
Функция ЗаменитьСпецСИмволыНазад(Знач Текст);
Текст=СтрЗаменить(Текст,Символ(852),"<");
Текст=СтрЗаменить(Текст,Символ(853),">");
ВОзврат Текст;
КонецФункции


Алгоритм претендует на костыль, если автор предложит что-то более правильно буду благодаоен.