Как пользоваться:
Выбираете аннотацию, заполняете префикс.
В поле на странице "Текст до изменения" вставляете текст, который нужно изменить.
Нажимаете Поменять.
Обработка отработает, переместит Вас на страницу "Текст после изменения", откуда вы можете скопировать код модуля, предназначенный для расширения.
Готово, вы восхитительны!
Сам код обработки:
&НаКлиенте
Процедура Поменять(Команда)
ОчиститьСообщения();
Если Не ПроверитьЗаполнение() Тогда
Возврат;
КонецЕсли;
л_МодульПосле = МодульДо;
ПоменятьТекст(л_МодульПосле, "Процедура ");
ПоменятьТекст(л_МодульПосле, "Функция ");
МодульПосле = л_МодульПосле;
Элементы.Страницы.ТекущаяСтраница = Элементы.СтраницаПосле;
Сообщить("Готово");
КонецПроцедуры
&НаКлиенте
Процедура ПоменятьТекст(ТекстКИзменению, ТекстПоискаИЗамены)
Если Аннотация = 1 Тогда
АннотацияТекст = "&Вместо(""";
Иначе
АннотацияТекст = "&ИзменениеИКонтроль(""";
КонецЕсли;
НеУчитываемыеСимволы = "./";
ШаблонТекста = АннотацияТекст+"%1"")"+Символы.ПС+ТекстПоискаИЗамены+ДобавляемыйПрефикс+"%2"+"(";
ДлинаСтрокиПоиска = СтрДлина(ТекстПоискаИЗамены);
ЧислоВхождений = СтрЧислоВхождений(ТекстКИзменению, ТекстПоискаИЗамены);
Для Счетчик = 1 По ЧислоВхождений Цикл
НайденныйСимвол = СтрНайти(ТекстКИзменению, ТекстПоискаИЗамены,,, Счетчик);
СчетчикОбратный = 1;
НеМенять = Ложь;
Пока Истина Цикл
Символ = Сред(ТекстКИзменению, НайденныйСимвол-СчетчикОбратный, 1);
Если Символ = " " ИЛИ Символ = Символ(160) Тогда
СчетчикОбратный = СчетчикОбратный+1;
Продолжить;
КонецЕсли;
Если Символ = Символы.ПС Тогда
Прервать;
КонецЕсли;
Если СтрНайти(НеУчитываемыеСимволы, Символ) Тогда
НеМенять = Истина;
Прервать;
КонецЕсли;
СчетчикОбратный = СчетчикОбратный+1;
КонецЦикла;
Если НеМенять Тогда
Продолжить;
КонецЕсли;
НайденныйСимвол = НайденныйСимвол+ДлинаСтрокиПоиска;
НаименованиеПроцедуры = "";
Пока Истина Цикл
Символ = Сред(ТекстКИзменению, НайденныйСимвол, 1);
Если Символ = "(" Тогда
Прервать;
КонецЕсли;
НайденныйСимвол = НайденныйСимвол+1;
НаименованиеПроцедуры = НаименованиеПроцедуры+Символ;
КонецЦикла;
ТекстЗамены = СтрШаблон(ШаблонТекста, НаименованиеПроцедуры, НаименованиеПроцедуры);
ТекстКИзменению = СтрЗаменить(ТекстКИзменению, ТекстПоискаИЗамены+НаименованиеПроцедуры+"(", ТекстЗамены);
КонецЦикла;
КонецПроцедуры
Фото реквизитов обработки:
Аннотация - это список выбора на форме.
Тестирование проводилось на платформе 1С:Предприятие 8.3 (8.3.20.1590), но должно работать на любой версии 8.3.
Конфигурация пустая.
Вступайте в нашу телеграмм-группу Инфостарт
