Статья: Обработка последовательных файлов в программе

Rewrite (< ф.п.>);

Для чтения данных из файла используются процедуры READLN, READ, BLOCKREAD.

Формат:

Readln (< ф.п.>, <переменная>);

Для записи данных в файл используются процедуры WRITELN, WRITE, BLOCKWRITE.

Формат:

Writeln (< ф.п.>, <переменная>);

После завершения работы с файлом , его необходимо "закрыть" оператором Close.

Формат: Close (< ф.п.>);

Уничтожить ненужный файл оператором Erase (< ф.п.>), а переименовать файл – оператором Rename (< ф.п.>,<строка>), где строка представляет новое имя файла.

Текстовый файл трактуется в Турбо Паскале как совокупность строк переменной длины. Доступ к каждой строке последовательный, начиная с первой. В конце каждой строки ставится маркер EOLN (End Of Line - конец строки) , а в конце всего файла маркер EOF (End Of File – конец файла).

Рассмотрим работу с файлами на примерах.

Пример 1.

На диске а: записан файл posl.txt, в каждой строке которого записана пословица. Определить сколько букв в каждой пословице и вывести результат вычисления на экран.

program texst;

var f: text; {* файловая переменная *}

s: integer; {* число букв *}

sim: char; {* символ *}

begin

Assign (f, 'a:\posl.txt');

reset (f); {* открытие файла *}

while not eof (f) do {* проверка конца файла *}

begin

s:=0;

while not eoln (f) do {* проверка конца строки *}

begin

read(f, sim);

if (sim<>' ') or (sim<>',') then s:=s+1;

end;