Кроме описанных выше файлов в 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): bolean;

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

SeekEof(var F: Text): boolean;

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

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

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

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

1. Организовать текстовый файл состоящий из N строк. Определить среднее количество символов в строке данного файла.
2. Организовать текстовый файл состоящий из N строк. Определить максимальный и минимальный размер строки в файле.
3. Организовать текстовый файл f состоящий из N строк. После этого организовать файлы h и g. В файл h записать строки файла f занимающие нечётные позиции, в файл g чётные.
4. Организовать текстовый файл состоящий из N строк. Вывести на экран строки, размер которых больше среднего размера строки в файле.
5. Организовать текстовый файл f, состоящий из N строк. После этого создать текстовый файл g, содержащий строки текстового файла f в обратном порядке.
6. Написать программу которая выводит сообщение о своих возможностях:
   F1 - создать текстовый файл.
   F2 - вывести текстовый файл на экран монитора.
   F3 - переписать текстовый файл.
   F4 - дописать текстовый файл.
   F10 - ВЫХОД.
7. Организовать текстовый файл, состоящий из N строк. Заменить в файле все маленькие латинские буквы на большие.
8. Организовать текстовый файл f, состоящий из N строк. Организовать замену символов в файле. "Старый" символ и "новый" символ запрашиваются и вводятся с клавиатуры.
9. Организовать текстовый файл состоящий из N строк. Преобразовать файл, удалив в каждой его строке лишние пробелы.
10. Организовать текстовый файл состоящий из N строк. Заменить в нем одну из строк новой строкой. Номер заменяемой строки и содержимое новой строки запрашивается и вводится с клавиатуры.

НАЗАД