Удалить пустые строки из реквизита формы с типом Строка

[skillful]

Удалить пустые строки из реквизита формы с типом Строка (Многострочный режим).

Вот пример:

Код Выделить Развернуть

Распустился ландыш в мае


В самый праздник — в первый день.

Май цветами провожая,

Распускается сирень.

Сегодня солнышко печёт.

Сегодня праздник — Май.


Влезай, сынишка, на плечо
И флаг свой поднимай!
А через год пойдёшь пешком

С красным праздничным флажком.

После выполнения обработки в этом же реквизите

Код Выделить Развернуть

Распустился ландыш в мае
В самый праздник — в первый день.
Май цветами провожая,
Распускается сирень.
Сегодня солнышко печёт.
Сегодня праздник — Май.
Влезай, сынишка, на плечо
И флаг свой поднимай!
А через год пойдёшь пешком
С красным праздничным флажком.

[bsn-chita]

Может есть что лучше, но я бы так сделал. МногострочнаяСтрока - это реквизит строка в многострочном режиме.

Код Выделить Развернуть


СимволПереносаСтроки = Символы.ПС;
ДваСимволаПереносаСтрокиСподряд = СимволПереносаСтроки + СимволПереносаСтроки;
Пока СтрНайти(МногострочнаяСтрока,ДваСимволаПереносаСтрокиСподряд) > 0 Цикл
МногострочнаяСтрока = СтрЗаменить(МногострочнаяСтрока,ДваСимволаПереносаСтрокиСподряд,СимволПереносаСтроки);
КонецЦикла;


[skillful]

Может есть что лучше, но я бы так сделал. МногострочнаяСтрока - это реквизит строка в многострочном режиме.

Код Выделить Развернуть


СимволПереносаСтроки = Символы.ПС;
ДваСимволаПереносаСтрокиСподряд = СимволПереносаСтроки + СимволПереносаСтроки;
Пока СтрНайти(МногострочнаяСтрока,ДваСимволаПереносаСтрокиСподряд) > 0 Цикл
МногострочнаяСтрока = СтрЗаменить(МногострочнаяСтрока,ДваСимволаПереносаСтрокиСподряд,СимволПереносаСтроки);
КонецЦикла;


Спасибо. Получилось.