Содержание:
1. Что такое CSV Comma-Separated Values?
2. Как загрузить данные из файла CSV в систему программы 1С: Предприятие?
1. Что такое CSV Comma-Separated Values?
CSV «Comma-Separated Values» — значения разделённые запятыми, это текстовый формат CSV, предназначенный для представления табличных данных. Строка таблицы соответствует строке текста, которая содержит одно или несколько полей, CSV разделенных запятыми.
Зачастую разработчикам ставят задачу загрузки данных в 1С в каком-либо формате, таких как XLS, DOC, TXT, CSV, DBF, XML и т.д. К примеру для разового переноса системы нормативно-справочной информации при переходе с других программ, загрузки 1С контактной информации и дополнительных справочников с сайтов и т.д.
Так как CSV это текстовый формат, то идентичным формату TXT будет и код загрузки в 1С.
В качестве задания нужно будет выгрузить в табличную часть обработки идентичные данные из файла example.txt и example.csv, в строке указано три поля через разделитель «;» (см.рис 1)
2. Как загрузить данные из файла CSV в систему программы 1С: Предприятие?
Для начала в режиме конфигуратор 1С создадим обработку в которой добавим в шапку два реквизита и табличную часть с тремя реквизитами (колонками) куда будем загружать данные из файла данных формата CSV: (см.рис .2)
Реквизиты шапки
1. ПутьКФайлу тип Строка длина 256
2. ФорматФайла тип Строка длина 3
Реквизиты табличной части
1.Наименование тип Строка длина 150
2.ПолноеНаименование тип Строка длина 256
3.Артикул тип Строка длина 10
Реквизиты
Далее создаем форму и настраиваем расположение элементов, добавляем и перетаскиваем на форму команду ПрочитатьФайл (см.рис.3)
ПрочитатьФайл
Затем в модуле формы пишем или размещаем данный код. (см.рис.4)
&НаКлиенте
Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) //Выбор Файла
Проводник = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Проводник.Заголовок = "Выберите нужный файл";
Если Объект.ФорматФайла = "TXT" Тогда
Фильтр = "Тектовый документ (*.txt)|*.txt";
ИначеЕсли Объект.ФорматФайла = "CSV" Тогда
Фильтр = "Тектовый документ (*.csv)|*.csv";
Иначе
Возврат;
КонецЕсли;
Проводник.Фильтр = Фильтр;
Оповещение = Новый ОписаниеОповещения("ПослеВыбораФайла",ЭтотОбъект);
Проводник.Показать(Оповещение);
КонецПроцедуры
&НаКлиенте
Процедура ПослеВыбораФайла(ВыбранныеФайлы,ДополнительныеПараметры)Экспорт // После выбора файла
Если ВыбранныеФайлы = Неопределено Тогда
Возврат;
КонецЕсли;
Объект.ПутьКФайлу = ВыбранныеФайлы[0];
КонецПроцедуры
&НаКлиенте
Процедура ПрочитатьФайл(Команда) Объект.ДанныеФайла.Очистить(); //Очищаем табличную часть
Если Объект.ФорматФайла = "TXT" ИЛИ Объект.ФорматФайла = "CSV" Тогда
ПрочитатьФайл_TXT_CSV();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПрочитатьФайл_TXT_CSV() // Читаем файл
ПоследовательноеЧтение = Истина;
Если ПоследовательноеЧтение Тогда
Текст = Новый ЧтениеТекста;
Текст.Открыть(Объект.ПутьКФайлу,КодировкаТекста.UTF8);
ТекСтрока = Текст.ПрочитатьСтроку();
Пока ТекСтрока <> Неопределено Цикл
МассивСлов = СтрРазделить(ТекСтрока, ";"); //определеяем разделитель ";"
Если МассивСлов.Количество()< 3 Тогда //если в строке меньше 3 полей то пропускаем
Продолжить;
КонецЕсли;
НоваяСтрока = Объект.ДанныеФайла.Добавить();
НоваяСтрока.Наименование = МассивСлов[0];
НоваяСтрока.ПолноеНаименование = МассивСлов[1];
НоваяСтрока.Артикул = МассивСлов[2];
ТекСтрока = Текст.ПрочитатьСтроку();
КонецЦикла;
Иначе
Текст = Новый ТекстовыйДокумент ;
Текст.Прочитать(Объект.ПутьКФайлу,КодировкаТекста.UTF8);
Для НомерСтроки=1 По Текст.КоличествоСтрок()Цикл
ТекСтрока = Текст.ПолучитьСтроку(НомерСтроки);
МассивСлов = СтрРазделить(ТекСтрока, ";"); //определеяем разделитель ";"
Если МассивСлов.Количество()< 3 Тогда //если в строке меньше 3 полей то пропускаем
Продолжить;
КонецЕсли;
НоваяСтрока = Объект.ДанныеФайла.Добавить();
НоваяСтрока.Наименование = МассивСлов[0];
НоваяСтрока.ПолноеНаименование = МассивСлов[1];
НоваяСтрока.Артикул = МассивСлов[2];
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Процедура
Определяем обработку данных в 1С к какой-нибудь подсистеме. (см.рис.5)
Обработка
Запускаем приложение в режиме запуска «1С Предприятие» и проверяем функциональность обработки, как видим мы добились желаемого результата в обоих случаях выгрузки. (см.рис.6)
Загрузка данных из файла
Практически во всех типовых конфигурациях 1С уже присутствуют аналогичные по функционалу обработки.
Пример 1С Бухгалтерия предприятия 3.0 в подсистеме Администрирование – Загрузка данных из файла. (см.рис.7 и 8)
Загрузка данных из файла
Открываем обработку (см.рис.8)
Загрузка данных в справочник
Специалист компании "Кодерлайн"
Пётр Быков
