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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Пример 1

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