П р и м е р.

ОРГАНИЗАЦИЯ ТЕКСТОВОГО ФАЙЛА

Процедуры и функции обработки текстовых файлов

Var

Текстовые файлы.

End.

ОПРЕДЕЛЕНИЕ ТИПА:

Текстовый файл - это файл, состоящий из компонентов, являющимися строками. Длина строки может изменяться от 0 до 255. Каждая строка завершается маркером конца строки Enter, файл - маркером конца файла Ctrl-Z.

Для описания файловых переменных текстового типа используется стандартный идентификатор Text.

Формат:

< идентификатора>: Text;

Для работы с текстовыми файлами предназначены следующие процедуры и функции:

Assign (FV, Str) - присваивание имени текстовому файлу.

Rewrite (FV) - открытие для создания нового текстового файла.

Reset (FV) - открытие уже существующего текстового файла.

Close (FY) - закрытие текстового файла.

Read (FV, Ch) - считывание символа в Ch из текстового файла FV.

Write (FV, Ch) - занесение символьной переменной Ch в файл FV.

Readln (FV, Str) - чтение из файла FV строки Str.

Частный случай записи процедуры: readln(FV); При этом пропускаются все символы, включая пробелы и маркер конца строки, т.е. происходит переход на новую строку. Такой вид записи процедуры может использоваться для подсчета количества компонентов в файле:

Writeln (FV, Str) - запись в файл FV строки Str.

Append (FV) - открыть файл и установить указатель на маркер конца файла.

Используется только для добавления новых компонентов в текстовые файлы.

` Eoln FV) - функция возвращает булевское значение True, если указатель файла достиг маркера конца строки. В противном случае возвращает значение False.

SeekEoln (FV) - функция, аналогичная предыдущей, но указатель файла переходит все пробелы и знаки табуляции. Возвращает значение True при достижении маркера конца строки.

SeekEof (FV) - функция возвращает значение True, если указатель файла находится на маркере конца файла.

Для организации текстового файла прежде всего надо объявить файловую переменную в качестве текстовой. Затем последовательно выполнить следующие шаги:

Ø присвоить файлу имя (процедура Assign);

Ø открыть файл для записи (процедура Rewrite);

Ø подготовить строку для записи (например, ввести с клавиатуры);

Ø записать строку в файл (процедура Writeln);

Ø закрыть файл (процедура Close).

Создать текстовый файл с произвольным именем и типом. Файл содержит строки делового письма. Каждая строка состоит не более чем из 60 символов. Если значение строки равно ‘zzz’ , то прекратить запись строк в файл. Имя процедуры создания Sozdt. Текст процедуры сохранить на диске под именем TSozdt.

Program DemoTextFiles;

Type

Dlina = string [60];

Var

Stro : Text;

File Name : string[14];

S : Dlina;

Rej : char;

Procedure Sozdt;

begin

Write ('Дайте имя текстового файла: ');

Readln (FileName);

Assign( Stro, Fi1eName);

Rewrite(Stro);

while True do

begin

readln (S);

if S = 'zzz’ then

begin

Close(Stro);

Exit

end;

writeln (Stro,S) {запись в файл}

end

end;