1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Функция СформироватьТекстСообщения(Знач ТекстСообщения) Экспорт НачалоСлужебногоСообщения = Найти(ТекстСообщения, "{"); ОкончаниеСлужебногоСообщения = Найти(ТекстСообщения, "}:"); Если ОкончаниеСлужебногоСообщения > 0 И НачалоСлужебногоСообщения > 0 И НачалоСлужебногоСообщения < ОкончаниеСлужебногоСообщения Тогда ТекстСообщения = Лев(ТекстСообщения, (НачалоСлужебногоСообщения - 1)) + Сред(ТекстСообщения, (ОкончаниеСлужебногоСообщения + 2)); КонецЕсли; Возврат СокрЛП(ТекстСообщения); КонецФункции |