Алгоритм разбивки длинных фраз и предложений на строчки

Сама процедура выглядит так:

Процедура РазбивкаСтроки(СтруктураСтрок, ИсходнаяСтрока)
Если ИсходнаяСтрока = "" Тогда
Для К = 1 По СтруктураСтрок.Количество() Цикл
СтрТек = "Строка" + К;
СтруктураСтрок[СтрТек] = "";
КонецЦикла;
Возврат;
КонецЕсли;
КоличествоРазбСтрок = СтруктураСтрок.Количество();
СтрокаРазбивки = ИсходнаяСтрока;
ДлинаРазрешения = 0;
НаборСлов = "";
Для П=1 По КоличествоРазбСтрок Цикл
Если СтрокаРазбивки = "" Тогда
Прервать;
КонецЕсли;
СтрТек = "Строка" + П;
Попытка
ДлинаРазрешения = Число(СтруктураСтрок[СтрТек]);
Исключение
Сообщить("Неверно указанны параметры для разбивки!", СтатусСообщения.Внимание);
Возврат;
КонецПопытки;
ПервыйПробел = 0;
Пока СтрДлина(НаборСлов) < ДлинаРазрешения Цикл
ПервыйПробел = Найти(СтрокаРазбивки, " ");
Если ПервыйПробел > ДлинаРазрешения Тогда
Прервать;
КонецЕсли;
Если ПервыйПробел = 0 И НаборСлов <> "" Тогда
НаборСлов = НаборСлов + " " + СокрЛП(СтрокаРазбивки);
СтруктураСтрок[СтрТек] = НаборСлов;
СтрокаРазбивки = "";
Прервать;
КонецЕсли;
НаборСлов = НаборСлов + " " + СокрЛП(Лев(СтрокаРазбивки, ПервыйПробел));
Если СтрДлина(НаборСлов) > ДлинаРазрешения ИЛИ СтрДлина(СокрЛП(СтрокаРазбивки)) = 0 Тогда
СтруктураСтрок[СтрТек] = НаборСлов;
НаборСлов = "";
СтрокаРазбивки = СокрЛП(СтрЗаменить(СтрокаРазбивки, Лев(СтрокаРазбивки, ПервыйПробел), ""));
Прервать;
КонецЕсли;
СтрокаРазбивки = СокрЛП(СтрЗаменить(СтрокаРазбивки, Лев(СтрокаРазбивки, ПервыйПробел), ""));
КонецЦикла;
КонецЦикла;
Для Т=1 По КоличествоРазбСтрок Цикл
СтрТек = "Строка" + Т;
Попытка
ЕстьЧис = Число(СтруктураСтрок[СтрТек]);
Если ЕстьЧис Тогда
СтруктураСтрок[СтрТек] = "";
КонецЕсли;
Исключение
КонецПопытки;
КонецЦикла;
КонецПроцедуры

Параметры: [СтруктураСтрок] Тип Структура, где ключ это имя строки для разбивки, а значение это количество символов предела вхождения строки во вставляемое поле в виде строки. Пример для разбивки на 2 строки с разным местом размещения:

СтруктураСтроки = Структура Новый Структура;
СтруктураСтроки.Вставить("Строка1", "30");
СтруктураСтроки.Вставить("Строка2", "100");

Для разбивки на три строки:

СтруктураСтроки = Структура Новый Структура;
СтруктураСтроки.Вставить("Строка1", "30");
СтруктураСтроки.Вставить("Строка2", "100");
СтруктураСтроки.Вставить("Строка2", "80");

И так далее. Второй параметр: [ИсходнаяСтрока] Тип строка. Собственно сама строка которую надо разбить. После прохождения процедуры СтруктураСтрок формирует значение для каждого ключа соответсвенно «Строка1», «Строка2″…. «СтрокаN». Значение в каждом ключе это кусок разбитого предложения.

А вот и сам пример работы алгоритма:

Есть печатная форма, заявления например, где в четко установленной форме надо разбить название специальности.

Само название специальности : «230105.65 Программное обеспечение вычислительной техники и автоматизированных систем»

Ее нам и нужно уместить в заявлении на 2-х строчках.

Тут 2 параметра и в каждый из них соответсвенно требуется вставить разбитое название. Перед помещением в параметры значение мы получаем сначало разбивку таким образом.

СтруктураСтрок = Новый Структура;
СтруктураСтрок.Вставить("Строка1", "25");
СтруктураСтрок.Вставить("Строка2", "80");

Далее получаем искомую строку для разбивки и отправляем в «процедурную» 🙂

СтрокаРазбивки = Специальность.Наименование;
РазбивкаСтроки(СтруктураСтрок, СтрокаРазбивки);

После обработки получаем измененную структуру где для каждого ключа уже есть часть предложения.

Вот их и вставляем в наши параметры.

ОбластьПечати.Параметры.СтрокаСпециальности1 = СтруктураСтрок.Строка1;
ОбластьПечати.Параметры.СтрокаСпециальности2 = СтруктураСтрок.Строка2;

На выходе имеем такое:

 

Собственно вариантов разбивки длинных фраз и предложений для переноса в печатных формы довольно много. Есть еще 1 способ разбивки, придуманной тоже мной, для случаев когда заранее неизвестно сколько строк может получится. То есть бить строку до бесконечности пока не кончатся символы 🙂 Чуть позже я ее опубликую.