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

Публикация № 147731

Программирование - Работа с интерфейсом

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

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

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


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

19

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

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

См. также

Специальные предложения

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

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

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

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


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