helpf.pro
  Регистрация
Все категории » Текстовый документ Текстовый документ 
 0 
 
 
Распечатать

Пример выгрузки данных в Текстовый файл, документ

Код 1C v 8.х
 Режим = РежимДиалогаВыбораФайла.Сохранение; 
ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим); 
ДиалогСохраненияФайла.ПолноеИмяФайла = "Выгрузка_"+Формат(ПериодРегистрации,"ДФ=M_yy"); 
Фильтр = "Текст(*.txt)|*.txt";                 
ДиалогСохраненияФайла.Фильтр = Фильтр; 
ДиалогСохраненияФайла.МножественныйВыбор = Ложь; 
ДиалогСохраненияФайла.Заголовок = "Выберите файл"; 
Если ДиалогСохраненияФайла.Выбрать() Тогда 
	ПутьКФайлу = ДиалогСохраненияФайла.ПолноеИмяФайла; 
	// выбрали файл, сохраняем в него Проводки
	ТекДок = Новый ТекстовыйДокумент;
	Для Каждого Стр Из Проводки Цикл
		Состояние("Выгружаю строку: "+Строка(Стр.НомерСтроки));
		ТекДок.ДобавитьСтроку(Строка(стр.СчетДт)+"~"+Строка(стр.СчетКт)+"~"+Строка(стр.Физлицо.Код)+"~"+Формат(стр.СуммаВыгр,"ЧГ=0"));
	КонецЦикла;	
КонецЕсли;	
ТекДок.Записать(ПутьКФайлу);


В результате получается файл вида:
70~76.95~000000056~888,64
70~76.95~000000127~2938,18
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 39691
 0 
 
 
Распечатать
Возможно, вас также заинтересует
10060 (0x0000274C): Попытка установить соединение была безуспешной  24
  Установили новый терминальный сервер, на нем подняли 1С, терминальные пользователе неописуемо довольны, все просто летает :) И вот же надо было такому случиться, главному бухгалтеру не понравилось работать через терминал, а еще у нее свой ноутбук и
1C и Google Maps  21
 была поставлена задача отображения на географической карте медицинских учреждений. После обзора предлагаемых решений был выбран сервис google. Но так же подобного рода подход будет работать и с картами сервиса yandex. Во время решения задачи было реш
1C: Enterprise Development Tools  52
  И вот случилось долгожданное: Вышел 1C: Enterprise Development Tools - это среда для разработки конфигурации в IDE Eclipse. С сайта 1С: « 1C:Enterprise Development Tools » – это инструмент нового поколения для разработчиков бизнес-приложений систем
1Cv8.1CD - Файл данных достиг максимального размера!  9
 1С выдает предупреждение " Файл данных достиг максимального размера" . Подскажите из - за чего это и как можно решить ? Превышен размер файла, обычно это сообщение возникает, когда размер файла 1Cv8.1CD приближается к 10 гигабайтам или размер ка
Cклонения по падежам  6
  НаКлиенте Процедура Команда1(Команда) ФИО = " Иванов Иван Иванович" ; Падеж = 2; Пол = 1; Результат = СклонениеФИО(ФИО, Падеж, пол); Сообщить(Результат); КонецПроцедуры НаСервере Функция СклонениеФИО(ФИО, Падеж, пол) Результат = " " ;
Посмотреть все результаты поиска похожих
Комментарии
Dymok
28.07.2010 17:14Комментарий: 1
Dymok
Я бы рекомендовал в случае больших объемов выгрузки использовать не ТекстовыйДокумент а ЗаписьТекста, иначе возможна ошибка "нехватка памяти". ЗаписьТекста сразу пишет на диск, а ТекстовыйДокумент пишет только в конце!
Как-то так:

Код 1C v 8.х
 НовыйФайл=Новый ЗаписьТекста(ИмяФайлаДанных, КодировкаТекста.UTF8, Символы.ПС);
Запрос=Новый Запрос;
Запрос.Текст= "..." ;
Результат= Запрос.Выполнить().Выбрать();

Пока Результат.Следующий() Цикл
			
	СтрокаЗаписи = "" +Результат. ...;
	НовыйФайл.ЗаписатьСтроку(СтрокаЗаписи);
	Состояние(Результат. ...);
	ОбработкаПрерыванияПользователя();
КонецЦикла;	

НовыйФайл.Закрыть();
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.
Загрузка... Дождитесь завершения!