Открытие файла для записи (вывода в файл)

Перед выводом в файл необходимо открыть файл. Если программа, формирующая выходной файл, уже использовалась, то возможно, что файл с результатами работы программы уже есть на диске. Поэтому программист должен решить, как поступить со старым файлом: заменить старые данные новыми или добавить новые данные к старым. Это определяется во время открытия файла.

Возможны следующие режимы (варианты) открытия файла для записи в него данных:

• Перезапись (запись нового файла поверх существующего или создание нового файла);

• Добавление в существующий файл.

Создание нового файла или замена существующего файла

Процедура rewrite. Чтобы открыть файл в режиме создания нового файла или замены существующего, необходимо вызвать процедуру rewrite, указав в качестве параметра файловую переменную. Процедуру Rewrite применяют, если при открытии файла старое его содержимое необходимо уничтожить, а на его место записать новое.

Пример: Открыть файл в режиме создания нового файла и записывает в него 5 раз слово Информатика.

Program new_fail;

var f : text; { текстовый файл }

i : integer;

Begin

assign (f,’test.txt’);

reset (f); { открыть в режиме записи }

For i:=1 to 5 do

Writeln (f, ' Информатика ', i ) ;

Close(f); { закрыть файл } end.

В результате выполнения программы на диске появляется файл test.txt. Распечатка файла test.txt. :

Информатика 1

Информатика 2

Информатика 3

Информатика 4

Информатика 5

Текст программы, которая открывает уже ранее существующий файл test.txt. и записывает в него две новые строки удаляя прежние.

Program replace_fail;

var f : text; { текстовый файл }

i : integer;

Begin

assign ( f, ’test.txt’);

rewrite (f); { открыть в режиме перезаписи }

For i:=6 to 7 do

Writeln (f, ' Информатика ', i ) ;

Close(f); { закрыть файл } end.

В результате выполнения программы содержимое файла test.txt изменяется. Распечатка файла:

Информатика 6

Информатика 7

Запись файла в режиме добавления

Процедура append. Чтобы открыть файл в режиме добавления информации в существующий файл, необходимо вызвать процедуру append, указав в качестве параметра файловую переменную (переменную типа text). этой процедурой следует пользоваться, если файл, подлежащий обработке, уже существует и данные, хранимые в нём, не должны быть утрачены.

Следующая программа, тоже, как и программа replace_fail, открывает файл test.txt, но уже в режиме добавления, и записывает в него две строки (дописывает в конец файла).

Program add_fail;

var f : text; { текстовый файл }

i : integer;

Begin

assign ( f, ’test.txt’);

append (f); { открыть в режиме добавления }

For i:=8 to 9 do

Writeln (f, ' Информатика ', i) ;

Close(f); { закрыть файл } end.

После выполнения приведенной программы содержимое файла test.txt опять меняется. Распечатка файла:

Информатика 6

Информатика 7

Информатика 8

Информатика 9