Лабораторная работа 14 «Текстовые файлы»

Цель работы:

Изучение принципов работы с текстовыми файлами.

Порядок выполнения работы:

1. Изучить теоретическую часть работы;

2. Ответить на контрольные вопросы и разобрать примеры;

3. Выполнить все задачи для самостоятельного выполнения.

Кроме описанных выше файлов, в Turbo Pascal 7.0 применяется специальный вид файлов, предназначенный в основном для работы с текстовой информацией. Этот тип файлов объявляется с помощью служебного слова text, например

Var

t: text;

Работа с текстовыми файлами немного отличается от работы с обычными файлами. Информация в таких файлах хранится построчно. Компонентами текстовых файлов являются строки различной длины, разделённых между собой специальным признаком конца строки. Компоненты текстовых файлов не индексируются, поэтому произвольный доступ к ним невозможен.

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

Append(var F: Text) Открывает существующий текстовый файл для добавления в конец информации.

Readln(var F: Text; V1, [V2, V3,... Vn]) Читает информацию из текстового файла. V1, V2,... Vn – переменные целого, вещественного или строкового типа в которые помещается прочитанная информация.

Writeln(var F: Text; V1, [V2, V3,... Vn]) Записывает информацию в текстовый файл и вводит в файл признак конца строки. V1, V2,... Vn - переменные целого, вещественного или строкового типа, содержащие информацию помещаемую в файл.

Процедуры Readln и Writeln осуществляют те же действия, что и процедуры Write и Readln, но после операций чтения и записи производят переход к следующей строке текстового файла. Процедура Read переходит к следующей строке только в случае исчерпания текущей строки. Процедура Readln позволяет совершить этот переход не дожидаясь конца строки.

Eoln(var F: Text) Функция определения конца строки. Возвращает значение true, если текущий указатель находится за последней компонентой строки, false в противном случае.

SeekEoln(var F: Text): boolean Производит поиск конца текущей строки файла. Перемещает указатель к следующему значению в строке. Если достигнут конец строки возвращается true.

SeekEof(var F: Text): boolean Производит поиск конца файла. Перемещает указатель к следующему значению. Если достигнут конец файла возвращается true.

Контрольные вопросы:

1. Какой файл называют текстовым?

2. Назовите процедуры и функции для работы с текстовыми файлами.

Задания для самостоятельного выполнения

1. Организовать текстовый файл состоящий из N строк. Определить количество символов в данном файле.

2. Организовать текстовый файл состоящий из N строк. Преобразовать файл, удалив в каждой его строке лишние пробелы.