Имя: Пароль:
1C
 
Как программно создать текстовый файл?
0 chessmaster
 
08.05.05
07:21
Не .dbf, а именно текстовый.
Юзер вписывает произвольную строчку типа C:\text.txt, и надо создать этот файл, если его не существует.
Такое в принципе возможно?
1 Guk
 
08.05.05
07:56
Я восьмерку плохо знаю, но файлы у меня там создавались. А в чём проблема то?...
2 Незнайка 1С
 
08.05.05
08:45
Ищи в СП по текстовый документ
3 chessmaster
 
08.05.05
09:18
(1)В нехватке опыта
(2)Спасибо
4 kant
 
08.05.05
09:27
(0) ТекстовыйДокумент = Новый ТекстовыйДокумент;
...
ТекстовыйДокумент.Записать(ИмяФайла)
5 gr13
 
08.05.05
14:35
(4) правильно и работает, счас открою посмотрю
6 gr13
 
08.05.05
14:43
(0)
//1. проверим существование файла

ФайлВыгрузки = "d:\index.txt"; //К примеру, у мя это элемент формы

ФайлTXT = Новый Файл(ФайлВыгрузки);
Если ФайлTXT.Существует() Тогда
   Ответ = Вопрос("Указанный файл существует. Удалить Файл?", РежимДиалогаВопрос.ОКОтмена);
   Если Ответ = КодВозвратаДиалога.ОК Тогда
       УдалитьФайлы(ФайлВыгрузки);
   Иначе
       Предупреждение("Измените имя файла, или имя каталога");
       Возврат;
   КонецЕсли;
КонецЕсли;
//Теперь создаем новый файл

Текст = Новый ТекстовыйДокумент;
// сдесь опустим, момент добавления информации в него
СтрокаТХТ = ""; // К примеру
СтрокаТХТ = СтрокаТХТ + Разделитель + КотрКод;
Текст.ДобавитьСтроку(СтрокаТХТ); // добавляем нужную строку в текст
// КонецДобавления информации

Текст.Записать(ФайлВыгрузки,КодировкаТекста.ANSI); // и вот мы его создали

______

Так понятно? Сам только вчера - позавчера с этим разбирался
после того как не пошла выгрузка через ОЛЮ и ДБФ
7 gr13
 
08.05.05
14:55
Текст.Записать(ФайлВыгрузки,КодировкаТекста.ANSI);

Прошу заметить
КодировкаТекста.ANSI

Как понятно из выражения Здесь выбирается кодировка вызгурки. По умолчанию кодировка будет UTP8. Здесь устанавливается кодировка виндоуз для того, чтобы не заморачиваться с перекодированием в 7.7, иначе выводятся крякозябры
8 chessmaster
 
08.05.05
16:42
(6)Да, спасибо, все понятно.
(7)Только с такой кодировкой и работаю :)