Консультант по 1С в Крыму. +7(978)857-2035

Помогу с 1С!

программист 1С Симферополь

Позвоните:
+7(978)857-2035

Экспорт данных из 1С в Текстовой файл TXT, CSV

/ Просмотров: 35317

//сохранение данных таблицы значений в текстовой файл

//аргументы: М - таблица значений

Процедура ВыполнитьЭкспорт(М)

     Т=СоздатьОбъект("Текст");

     //выборка

     М.ВыбратьСтроки();

     Пока М.ПолучитьСтроку()=1 Цикл

          Состояние("Экспорт: "+Цел(М.НомерСтроки/М.КоличествоСтрок()*100)+"%");

          тФирма=М.Фирма.ПолныйКод();

          тТовар=М.Товар.ПолныйКод();

          тСклад=М.Склад.ПолныйКод();

          тКоличество=М.Количество;

          тСумма=М.Сумма;

          Т.ДобавитьСтроку("Фирма="+ тФирма +";Товар="+ тТовар +";Склад="+ тСклад +";Количество="+ тКоличество +";Сумма="+ тСумма +";");    

     КонецЦикла;

     //файл

     Файл="export"+Формат(ДатаК,"Д ГГГГММДД")+".csv";

     Т.Записать(Файл);

     Сообщить("Файл с данными сохранен в каталоге экспортной БД: "+КаталогИБ()+Файл);

КонецПроцедуры

Комментариев: 1 RSS
Дмитрий1
2012-03-15 в 09:50:52

Спасибо, очень хороший код. Взял его за основу и все получилось.

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

grin LOL cheese smile wink smirk rolleyes confused surprised big surprise tongue laugh tongue rolleye tongue wink raspberry blank stare long face ohh grrr gulp oh oh downer red face sick shut eye hmmm mad angry zipper kiss shock cool smile cool smirk cool grin cool hmm cool mad cool cheese vampire snake excaim question

Используйте нормальные имена. Ваш комментарий будет опубликован после проверки.

Вы можете войти под своим логином или зарегистрироваться на сайте.

(обязательно)