gifts2017

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

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

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

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

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


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

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

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

См. также

Подписаться Добавить вознаграждение

Комментарии

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

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

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

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


Алгоритм претендует на костыль, если автор предложит что-то более правильно буду благодаоен.
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа