среда, 30 сентября 2015 г.

Преобразовать строку в массив 1С

//##########################################
//https://rusanovdevlog.blogspot.ru/ - Разработка 1С (примеры кода)
//Rusanov M. (c)
//###########################################
//Функция осуществляется разбор строки вида "02050401;02050402;02050403;02050404" в массив, знак разделения ";"
Функция РазобратьСтрокуВМассив(РазбиваемаяСтрока, ЗнакРазбива = ";",УдалятьПробелы = Истина)
                Если УдалятьПробелы Тогда
                               РазбиваемаяСтрока = СтрЗаменить(РазбиваемаяСтрока," ","");                      
                КонецЕсли;
                РазбиваемаяСтрока = СтрЗаменить(РазбиваемаяСтрока,ЗнакРазбива,Символы.ПС); //заменить знакои разбива на перенос строки    
                МассивРезультат = Новый Массив;
                Попытка
                               Для Сч = 1 По СтрЧислоСтрок(РазбиваемаяСтрока) Цикл
                                               МассивРезультат.Добавить(СтрПолучитьСтроку(РазбиваемаяСтрока,Сч));
                               КонецЦикла;
                Исключение
                               Сообщить("Информация для разработчика: ошибка при разборе строки: " + ОписаниеОшибки());
                КонецПопытки;
                Возврат МассивРезультат;
КонецФункции

//использование
МассивX = РазобратьСтрокуВМассив(РазбираемаяСтрока, ";");


Комментариев нет:

Отправить комментарий