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

Текстовый файл представляет собой последовательность строк символов переменной длины. Каждая строка заканчивается символами перевода строки и возврата каретки (их коды — 13 и 10). Эти символы вставляются в физический файл при нажатии клавишиEnter. При чтении файла эти символы не вводятся в переменные в программе, а воспринимаются как разделитель.

Текстовый файл можно открыть не только для чтения или записи с помощью процедур reset и rewrite, но и для добавления информации в конец (процедура append ). Для чтения из текстового файла применяются процедуры read (f, список) и readln (f, [список]) . Они отличаются от процедур ввода с клавиатуры только наличием первого параметра — имени логического файла.

Процедуры записи в текстовый файл — write (f, список) и writeln (f, [список]) . При записи в текстовый файл происходит преобразование из внутренней формы представления выводимых величин в символьные строки. Чтение и запись выполняютсяпоследовательно, то есть записать или считать очередной символ можно только после предыдущего.

В Паскале есть несколько стандартных подпрограмм, которые предназначены только для работы с текстовыми файлами: flush, settextbuf, seekEof и seekEoln.

Бестиповые файлы

Бестиповые файлы предназначены для хранения участков оперативной памяти на внешних носителях. После описания файловой переменной

var имя : file;

ее требуется связать с физическим файлом с помощью процедуры assign. Чтение и запись производится через буфер 'порциями', равными размеру буфера. Размер буфера, отличающийся от стандартного (128 байт), можно задать с помощью второго параметра процедур reset и rewrite при открытии файла.

reset(var f : file; bufsize : word)

rewrite(var f : file; bufsize : word)

Размер буфера должен находиться в пределах от 1 байта до 64 Кбайт.

Собственно чтение и запись выполняются с помощью процедур blockread и blockwrite.

blockread(var f : file; var x; count : word; var num : word);

blockwrite(var f : file; var x; count : word; var num : word);

Процедура blockread считывает в переменную x количество блоков count. Длина блока равна размеру буфера. Значение count должно быть больше или равно 1, за одно обращение нельзя ввести больше 64 Кбайт. При вводе никаких преобразований данных не выполняется. Необязательный параметр num возвращает количество прочитанных блоков.

Процедура blockwrite записывает в файл количество блоков, равное count, начиная с адреса, заданного переменной x. Длина блока равна длине буфера. Необязательный параметр num возвращает число успешно записанных блоков.

Для бестиповых файлов применяется как последовательный, так и прямой доступ.

Пример. Программа выполняет ввод вещественных чисел из текстового файла и запись их в бестиповой файл блоками по четыре числа (пример 3.6).

program create_bfile;

var buf : array[1 .. 4] of real;

f_in : text;

f_out : file;

i, k : integer;

name_in, name_out : string;

begin

{$I–}

writeln('Введите имя входного файла'); readln(name_in);

assign(f_in, name_in); reset(f_in);

if IOResult <> 0 then begin

writeln('Файл ', name_in,' не найден'); exit end;

writeln('Введите имя выходного файла'); readln(name_out);

assign(f_out, name_out); rewrite(f_out, sizeof(real) * 4);

{$I+}

i := 0;

while not eof(f_in) do begin

inc(i);

read(f_in, buf[i]);

if i = 4 then begin

blockwrite(f_out, buf, 1); i := 0; end;

end;

if i <> 0 then begin

for k := i + 1 to 4 do buf[k] := 0;

blockwrite(f_out, buf, 1);

end;

close(f_in); close(f_out);

end.