Запись в текстовый файл

Чтение из текстового файла

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

Read (< имя файловой переменной >, < список ввода >);

Переменные в списке ввода должны иметь тип Char.
Процедура Readln работает так же, как и для ввода информации с клавиатуры, т.е. после ввода всех переменных, указанных в списке, непрочитанные данные в текущей строке игнорируются и последующее чтение осуществляется с новой строки. Эта процедура может использоваться без списка ввода для перехода к первому символу следующей строки:

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

Очевидно, что действие процедуры

Readln (< имя файловой переменной >, < список ввода >);

эквивалентно действию двух процедур:

Read (< имя файловой переменной >, < список ввода >);
Readln (< имя файловой переменной >);

Чтения констант из текстового файла осуществляется также процедурами:

Read (< имя файловой переменной >, < список ввода >);

Readln (< имя файловой переменной >, < список ввода >);

Список ввода может содержать переменные целого и вещественного типа. В этом случае значения переменных в файле отделяются символами-разделителями, в качестве которых используются: символы пробела, табуляции или конца строки. При вводе очередной числовой переменной пропускаются символы-разделители и выделяется подстрока, являющаяся символьным представлением числовой константы соответствующего типа. Эта подстрока преобразуется в числовое значение и присваивается переменной.
Если в списке ввода указана переменная типа Char, то при вводе ей присваивается очередной символ. Этим символом может быть и символ-разделитель.
Чтение констант из текстового файла поясним на примере. Пусть текстовый файл 'file1.txt' содержит следующую последовательность символов:

49 A 56 3.5

Тогда в результате выполнения следующего фрагмента:

...
var
F: text;
I, J: integer;
C1, C2: char;
R: real;
...
assign (F, 'file1.txt');
reset (F);
read (F, I, C1, C2, J, R);
...

переменные получат следующие значения:

I = 49, C1 = ' ', C2 = 'A', J = 56, R = 3.5.

Напомним, что стандартный файл INPUT является текстовым. При его использовании можно опускать имя файловой переменной в процедурах Read, Readln и в функциях Eoln, Eof.

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

Write (< имя файловой переменной >, < список вывода >);

Процедура

Writeln (< имя файловой переменной >, < список вывода >);

после значений списка вывода добавляет в файл символ "конец строки".
Процедура Writeln (< имя ф.переменной >, < список вывода >) эквивалентна по своему действию двум процедурам:

Write (< имя файловой переменной >, < список вывода >);
{запись символа "конец строки"}
Writeln (<имя файловой переменной>);

Для записи в текстовый файл констант целого, вещественного, символьного или булевского типа можно использовать процедуру Write со списком вывода, который содержит имена переменных и форматы вывода. В результате вывода в текстовый файл записываются последовательности символов, являющиеся изображением констант - значений переменных из списка вывода.
Поясним операцию записи констант в текстовый файл 'prim.txt' на примере:

...
var
F: text;
I, J: integer;
C1: char;
R: real;
B: boolean;
begin
assign (F,'prim.txt');
rewrite (F);
I:= 49; C1:= 'A'; J:= 56;
R:= 3.5; B:= TRUE;
writeln (F, I:2, C1:2, J:2, R:5:2, B:5);
...

В результате в файле 'prim.txt' будет записана следующая последовательность символов:

49 A56 3.50 TRUE

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

Дата добавления: 2014-01-06