Функция РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель)
МассивСтрок = Новый Массив();
ДлинаРазделителя = СтрДлина(Разделитель);
Пока Истина Цикл
Поз = Найти(Стр,Разделитель);
Если Поз=0 Тогда
МассивСтрок.Добавить(Стр);
Возврат МассивСтрок;
КонецЕсли;
НовСтр = СокрЛП(Лев(Стр,Поз-1));
Если НовСтр "" Тогда
МассивСтрок.Добавить(НовСтр);
Стр = Сред(Стр,Поз+ДлинаРазделителя);
Иначе
Стр = Сред(Стр,Поз+ДлинаРазделителя);
КонецЕсли;
КонецЦикла;
Возврат МассивСтрок;
КонецФункции
Процедура ПрочитатьСтроку()
Для і = 1 По ТекстДок.КоличествоСтрок() Цикл
Стр = СокрЛП(ТекстДок.ПолучитьСтроку(і));
Если Стр = "" Тогда
Продолжить;
КонецЕсли;
Массив = РазложитьСтрокуВМассивПодстрок(Стр,",");
КонецЦикла;
КонецПроцедуры
! | Правила, п.3,9 |