Считывание .csv файла, создание на его основе таблицы, и её программное отображение на форме

&НаКлиенте
Процедура ОткрытьФайл(Команда)
    ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    ДиалогВыбора.Заголовок = "Выберите файл таблицы";
 
    Если ДиалогВыбора.Выбрать() Тогда
        ИмяФайла = ДиалогВыбора.ПолноеИмяФайла;
    КонецЕсли;
    
    Чтение(ИмяФайла);
КонецПроцедуры

&НаСервере
Процедура Чтение(ИмяФайла)
 
    ПутьФайла=ИмяФайла;
    
    ТабВКоде = новый ТаблицаЗначений;
    
    // чтение
    ЗагружаемыйФайл = Новый ТекстовыйДокумент;
    ЗагружаемыйФайл.Прочитать(ИмяФайла);
    
    //Формируем шапку таблицы. 
    Шапка = ЗагружаемыйФайл.ПолучитьСтроку(1);
 
    //раскладываем стрoку в массив Разделителем колонок в данном случае является точка с запятой
    МассивКол = РазложитьСтрокуВМассивПодстрок(Шапка, ";");
 
    //генерируем столбцы
    Для Каждого ИмяСтолбца Из МассивКол Цикл
        ИмяБезПробелов = СтрЗаменить(ИмяСтолбца," ",""); // убираем из имени пробелы
        ТабВКоде.Колонки.Добавить(ИмяБезПробелов,,ИмяСтолбца);
    КонецЦикла;
 
    Для НомерСтроки=2 по ЗагружаемыйФайл.КоличествоСтрок() Цикл
        // получить стрoку с указанным номером и преобразуем её в массив
        Строка = ЗагружаемыйФайл.ПолучитьСтроку(НомерСтроки);
        МассивКол = РазложитьСтрокуВМассивПодстрок(Строка,";");
        НоваяСтрочка= ТабВКоде.Добавить();
 
        Для НомерСтолбца= 1 по МассивКол.Количество() Цикл //заполняем строчку значениями
            ТекущееЗначение = МассивКол[НомерСтолбца-1];
            ИмяКолонки = ТабВКоде.Колонки[НомерСтолбца-1].Имя;
            НоваяСтрочка[ИмяКолонки] = ТекущееЗначение;
        КонецЦикла;
    КонецЦикла;
    
    
    ТабНаФорме = Элементы.ТабНаФорме;
    
    // 1. добавляем колонки из ТабВкоде в реквизит ТабРеквизит
 
    НовыеРеквизиты = Новый Массив;
 
    Для Каждого Колонка Из ТабВКоде.Колонки Цикл
         НовыеРеквизиты.Добавить(
            Новый РеквизитФормы(
                Колонка.Имя, Колонка.ТипЗначения,
                ТабРеквизит
            )
         );
     КонецЦикла;
 
    ИзменитьРеквизиты(НовыеРеквизиты, );
 
    // 2. добавляем колонки из ТабВКоде в элемент ТабНаФорме
 
    Для Каждого Колонка Из ТабВКоде.Колонки Цикл
 
        НовыйЭлемент = Элементы.Добавить(
            ТабРеквизит + "_" + Колонка.Имя, Тип("ПолеФормы"), Элементы[ТабНаФорме]
        );
        НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода;
        НовыйЭлемент.ПутьКДанным = ТабРеквизит + "." + Колонка.Имя;
    КонецЦикла;
 
    // 3. передаём данные из ТабВКоде в ТабРеквизит
 
    ЗначениеВРеквизитФормы(ТабВКоде, ТабРеквизит);
 
КонецПроцедуры

* * Для сч=1 Из МассивКол.Количество() Цикл
* * * * ТабВКоде.Колонки.Добавить("Колонка"+Формат(сч,"ЧГ="),,МассивКол[сч]);
* * КонецЦикла;