Считать файл EXCEL в таблицу значений

(0) Эх, молодость-зеленость, мой гений тебе дарит:




Функция ЗагрузитьТаблицуЗначенийИзФайла(ИмяФайла, Параметры = Неопределено) Экспорт

    //2021-01-19

    ТД = Новый ТабличныйДокумент();

    ТД.Прочитать(ИмяФайла, СпособЧтенияЗначенийТабличногоДокумента.Текст);

    ПараметрСтрокаШапки = 1;

    ОбязательныеПоля = Новый Массив();

    Если Параметры <> Неопределено Тогда

        Если Параметры.Свойство("СтрокаШапки") Тогда

            ПараметрСтрокаШапки = Параметры.СтрокаШапки;

        КонецЕсли;

        Если Параметры.Свойство("ОбязательныеПоля") Тогда

            ПараметрОбязательныеПоля = Параметры.ОбязательныеПоля;

        Иначе

            ПараметрОбязательныеПоля = Новый Массив();

        КонецЕсли;

    КонецЕсли;

    МассивКолонок = Новый Массив();

    МассивОбязательныхКолонок = Новый Массив();

    ТЗ = Новый ТаблицаЗначений();

    Для ИндКол = 1 ПО ТД.ШиринаТаблицы Цикл

        Текст = Сокрлп(ТД.Область(ПараметрСтрокаШапки, ИндКол).Текст);

        Если Текст = "" Тогда

            Продолжить;

        КонецЕсли;

        МассивКолонок.Добавить(ИндКол);

        ИмяКолонки = ОставитьДопустимыеДляКлючаСтруктурыСимволы(Текст, "_");

        ТЗ.Колонки.Добавить(ИмяКолонки);

        Для Каждого Эл ИЗ ПараметрОбязательныеПоля Цикл

            Если Эл = ИмяКолонки Тогда

                МассивОбязательныхКолонок.Добавить(ИндКол);

            КонецЕсли;

        КонецЦикла;

    КонецЦикла;

    

    Для ИндСтр = ПараметрСтрокаШапки + 1 По ТД.ВысотаТаблицы Цикл

        

        ЕстьЗаполненные = ложь;

        

        Для Каждого ИндКол ИЗ МассивОбязательныхКолонок Цикл

            Текст = Сокрлп(ТД.Область(ИндСтр, ИндКол).Текст);

            Если Текст <> "" Тогда

                ЕстьЗаполненные = истина;

                Прервать;

            КонецЕсли;

        КонецЦикла;

        

        Если НЕ ЕстьЗаполненные Тогда //Пропускаем строку

            Продолжить;

        КонецЕсли;

        

        НСтр = ТЗ.Добавить();

        Для СчКолонки = 0 По МассивКолонок.Количество() -1 Цикл

            ИндКол = МассивКолонок[СчКолонки];

            Текст = Сокрлп(ТД.Область(ИндСтр, ИндКол).Текст);

            НСтр[СчКолонки] = Текст;

        КонецЦикла;

    КонецЦикла;

    

    Возврат ТЗ;

    

КонецФункции





Функция ОставитьДопустимыеДляКлючаСтруктурыСимволы(Ключ, ЗаменятьНедопустимыеНа = "")

    ДопустимаяСтрока = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_";

    Рез = "";

    Для Инд = 1 По СтрДлина(Ключ) Цикл

        Симв = Сред(Ключ, Инд, 1);

        Если Найти(ДопустимаяСтрока, ВРег(Симв)) = 0 Тогда

            Рез = Рез + ЗаменятьНедопустимыеНа;

        Иначе

            Рез = Рез + Симв;

        КонецЕсли;

    КонецЦикла;

    Возврат Рез;

КонецФункции







&НаКлиенте

Процедура Загрузить(Команда)

    Ф = Новый Файл(ФайлЗагрузки);

    ДД = Новый ДвоичныеДанные(ФайлЗагрузки);



&НаСервере

Функция ЗагрузитьНаСервере(ДД, Расширение, Ссылка)        

    Результат = Новый Структура(

    "ОК, Ошибки" , ложь, "");

    ИмяФайла = ПолучитьИмяВременногоФайла(Расширение);

    ДД.Записать(ИмяФайла);



    ПараметрыТЗ = Новый Структура();

    ОбязательныеПоля = Новый Массив(); ОбязательныеПоля.Добавить("Номенклатура");

    ПараметрыТЗ.Вставить("ОбязательныеПоля", ОбязательныеПоля);

    ТЗ = ЗагрузитьТаблицуЗначенийИзФайла(ИмяФайла, ПараметрыТЗ);