Книга знаний

1С:Предприятие / Приемы программирования / Файловая система

Пример чтения и записи текстовых файлов (Scripting.FileSystemObject)

Автор статьи:
Последняя редакция №1 от 15.02.07
URL: http://kb.mista.ru/article.php?id=484

///////////////////////////////////////////////////////////////////////
Процедура СоздатьФайл()
    ИмяФайла=КаталогИБ()+"romix_test.txt";
    fso=СоздатьОбъект("Scripting.FileSystemObject");                                                          
    file=fso.CreateTextFile(ИмяФайла, -1, 0); //создать файл, перезаписывая существующий.
    file.WriteLine("Строка1"); 
    file.WriteLine("Строка2"); 
    file.WriteLine("Строка3"); 
    file.Close(); 
КонецПроцедуры

///////////////////////////////////////////////////////////////////////
Процедура ПрочитатьФайл()
    ИмяФайла=КаталогИБ()+"romix_test.txt";
    fso=СоздатьОбъект("Scripting.FileSystemObject");
    file=fso.OpenTextFile(ИмяФайла, 1, 0, 0); //Открываем файл в режиме "только чтение"           
    Пока file.AtEndOfStream=0 Цикл
      стр=file.ReadLine();
      Сообщить(стр);
    КонецЦикла; 
    file.Close(); 
КонецПроцедуры

Описание | Рубрикатор | Поиск | ТелепатБот | Захваченные статьи | Установки | Форум
© Станислав Митичкин (Волшебник), 2005-2025 | Mista.ru

Яндекс.Метрика