Перевести строку с заголовками (CSV) в массив из структур
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Функция ПреобразоватьCSVвМассив(CSV) Разделитель = Символы.Таб; ЗаголовкиCSV = СокрЛП(СтрПолучитьСтроку(CSV,1)); DATA = Новый Массив; Для НомерСтроки=2 По СтрЧислоСтрок(CSV) Цикл Строка = СтрПолучитьСтроку(CSV, НомерСтроки); МассивПодстрок = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Строка, Разделитель, Ложь, ); Структура = Новый Структура(СтрЗаменить(ЗаголовкиCSV, Разделитель, ",")); Инд = 0; Для Каждого КлючЗначение Из Структура Цикл Структура[КлючЗначение.Ключ] = МассивПодстрок[Инд]; Инд = Инд+1; КонецЦикла; DATA.Добавить(Структура); КонецЦикла; Возврат DATA; КонецФункции |