0
iva77ru
22.11.16
✎
14:25
|
Добрый день!
При выводе в текстовый файл вместо кириллицы знаки вопроса:
ТекстРезиденты = Новый ТекстовыйДокумент();
ТекстРезиденты.УстановитьТипФайла(КодировкаТекста.ANSI);
Для Каждого ЭлементМассива Из СтрокиРезиденты Цикл
ТекстСтроки = Строка(ЭлементМассива.НомерЛицевогоСчета)
+ Символы.Таб + Строка(ЭлементМассива.КодВалюты)
+ Символы.Таб + Формат(ЭлементМассива.СуммаОперации, "ЧДЦ=2; ЧРД=.; ЧГ=0")
+ Символы.Таб + Строка(ЭлементМассива.Фамилия)
+ Символы.Таб + Строка(ЭлементМассива.Имя)
+ Символы.Таб + Строка(ЭлементМассива.Отчество)
+ Символы.Таб + Строка(ЭлементМассива.ДокументКод)
+ Символы.Таб + Строка(ЭлементМассива.ДокументСерияНомер)
+ Символы.Таб + Строка(ЭлементМассива.ТабельныйНомер);
ТекстРезиденты.ДобавитьСтроку(ТекстСтроки);
КонецЦикла;
ИмяФайла = КаталогЭкспорта + "\" + СформироватьНаименованиеФайла(ДатаФормированияФайлов, ВидОперации, НомерФайлаЗаДеньТек) + ".txt";
ТекстРезиденты.Записать(ИмяФайла,КодировкаТекста.ANSI);
|
|