Обработка текстовых файлов

Для обработки текстовых файлов используются те же процедуры и функции, что и для обработки обычных ти­пизированных файлов. Для связывания файловой перемен­ной с файлом на диске употребляется процедура Assign. Текстовые файлы могут быть открыты для чтения про­цедурой Reset или для записи процедурой Rewrite.

Для чтения данных применяется процедура Read. Если необходимо после чтения данных перейти на сле­дующую строку, то используется процедура Readln. Если необходимо просто перейти к следующей строке, то можно использовать процедуру

Readln (<имя фай­ловой переменной

текстового файла>),

кото­рая устанавливает файловый указатель на первый эле­мент следующей строки.

Процедура Write записывает данные в текущую строку. Если надо записать данные и перейти к следу­ющей строке, то можно использовать процедуру Writeln. Если требуется только перейти для записи на новую строку, то применяется процедура

Writeln (<имя файловой переменной

тексто­вого файла>),

которая записывает в файл признак конца строки и устанавливает файловый указатель на начало следующей строки.

Так как в строках может быть разное количество символов, имеется логическая функция

Еоln (<имя файловой переменной

текстового файла>),

ко­торая принимает значение True, если достигнут конец строки.

Кроме перечисленных процедур и функций, к текс­товым файлам применяется процедура

Арреnd (<имя файловой переменной

текстового файла>).

Она открывает файл для "дозаписи", помещая файловый ука­затель в конец файла.

Пример 1

Дан текстовый файл, содержащий только целые чис­ла, в каждой строке может быть несколько чисел, кото­рые разделяются пробелами. Вывести на экран все числа с учетом разбиения на строки и подсчитать количество элементов в каждой строке.

Решение

Пусть в файле содержится следующая информация:

-32	16	0	8	7
4	5	9	13	11	-5	-8
6	-8	0	-12
5	4	3	2	1	12
1	2
-1	-2	-4
-1	-2	4

Этот файл можно создать в среде Турбо Паскаль следующим образом:

• создайте новый файл посредством команды New меню File;

• запишите все числа, разделяя их пробелами, и разбейте на строки, как указано в задании;

• сохраните файл, например, под именем INT1.DAT. Этот файл используется в программе, которая при­ведена ниже.

Program Example_85;

Var F: Text;

х, k: Integer;

Begin

Assign(F, 'INT1.DAT'); {Связываем

файловую переменную с файлом на диске}

Reset(F); {Открываем файл для чтения}

While Not Eof (F) Do

{Пока не достигнут конец файла}

Begin

k:=0; {Счетчик элементов строки}

While Not Eoln(F) Do

{Пока не достигнут конец строки}

Begin

Read(F, x);

{Считываем очередное число}

Write(х, ' ');

{Выводим его на экран}

Inc(k); {Увеличиваем счетчик }

End;

Writeln('В строке ', k,' элементов');

Readln(F); {Переходим к следующей строке файла}

End;

Close(F); {Закрываем файл}

Readln;

End.