Билет 14 . Вопрос 1 .

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

Файлы.

В ТП имеется 3 категории файлов: текстовые (тип Text), типизированные (File of <тип>) и файлы без типов (File). Работа с этими категориями файлов несколько отличается друг от друга.

Обычно все файлы считаются файлами последовательного доступа. Однако для типизированных файлов и файлов без типа с помощью процедуры SEEK можно установить режим произвольного доступа. При этом нумерация компонент файла начинается с нуля.

После работы с файлом он, как правило, должен быть закрыт процедурой CLOSE. Это правило обязательно должно соблюдаться для файла, в который производилась запись.

При работе с файлами автоматически проверяются ошибки ввода-вывода. Если проверка ошибки включена (по умолчанию или с помощью ключа компилятора {$I+}), то при возникновении ошибки выполнение программы автоматически завершается, если же проверка ошибки отключена ( с помощью ключа {$I -}), программа продолжает выполняться и можно проверить результат ввода-вывода с помощью функции IORESULT.

Текстовые файлы.

Текстовый файл – это файл, состоящий из компонентов, являющихся строками. Длина строки может изменяться от 0 до 255. Для описания файловых переменных текстового типа используется стандартный идентификатор text .

Формат:

var <идентификатор>: text ;

Пример:

Var document : text ;

Текстовый файл представляет собой совокупность символов, разделённых на строки, причём в конце каждой строки стоит признак конца строки. Особенностью работы с текстовыми файлами является то, что параметры, значения которых вводятся и выводятся с помощью процедур Read и Write , могут быть необязательно типа Char или String , а и других простых типов (целых, вещественных типов при вводе; целых, вещественных типов, типа Boolean – при выводе).

Имеется две стандартные файловые переменные для текстового файла: Input и Output . Переменная Input по умолчанию связана с клавиатурой, а Output – с экраном дисплея. Если при работе с файлами типа Text в процедуре или функции не указана файловая переменная, считается, что используется переменная Input или Output .

Файл типа Text может быть открыт для чтения процедурой Reset или для записи процедурой Rewrite или Append .

Процедуры для текстовых файлов.

Append ( F ) – открытие файла для добавления в конец информации. Открывается существующий файл, с которым связана файловая переменная F , и указатель текущей компоненты файла настраивается на конец файла.

Flush ( F ) – освобождается буфер выходного файла. Информация из буфера записывается в файл, с которым связана файловая переменная F .

Read ( F , <список ввода>) – чтение информации из файла. Из файла, с которым связана файловая переменная F , читаются значения для одной или нескольких переменных списка ввода.

Readln ( F , <список ввода>) – чтение строки из файла. То же, что и Read , но непрочитанная часть строки, включая признак конца строки, пропускается.

Write ( F , <список ввода>) – запись информации в файл. В файл, с которым связана файловая переменная F , записываются значения выражений списка вывода.

Writeln ( F , <список ввода>) – запись строки в файл. То же, что и Write , но выводимая информация завершается признаком конца строки.

Функции для текстовых файлов.

Eoln ( F ) – конец строки файла.

SeekEof ( F ) – конец файла. Отличается от Eof ( F ) тем, что стоящие в конце файла символы пробела и табуляции пропускаются.

SeekEoln ( F ) – конец строки файла. Отличается от Eoln ( F ) тем, что стоящие в конце строки символы пробела и табуляции пропускаются.

Процедуры для любых типов файлов.

Assign(F,Name) - связь файловой переменной с внешним файлом.

СhDir(Pash) - изменить текущую директорию.

Сlose(F) - закрытие открытого файла.

Erase(F) - уничтожение внешнего файла.

GetDir(N,S) - получение текущего каталога накопителя.

MkDir(Pash) - создание каталога.

Rename(F,NewName) - переименование внешнего файла.

Reset(F[,Size]) - открытие существующего файла.

Rewrite(F[,Size]) - открытие нового файла.

RmDir(Path) - удаление пустого каталога.

Функции для любых типов файлов.

Eof(F) - конец файла.

IOResult - результат последней операции ввода-вывода.

В ТП при выводе информации в текстовый файл по умолчанию отводится количество позиций, равное размеру этой информации.

Изменить стандартную форму вывода можно используя систему форматов языка ТП. Например:

Write ( F , Expression : M : N );

где M и N – форматы.

Пример задачи работы с текстовыми файлами: Считать файл ONE, удвоив каждый его элемент через пробел.

PROGRAM DDD;

VAR F1,F2: TEXT;

X: CHAR;

BEGIN

ASSIGN(F1,'H:\ONE');

RESET(F1);

ASSIGN(F2,' ‘);

REWRITE(F2);

WHILE NOT EOF(F1) DO

BEGIN

READ(F1,X);

WRITE(F2,X+' ‘+X)

END;

WRITELN;

CLOSE(F1);

CLOSE(F2);

END.