Команды для текстовых файлов

 

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

Read (f, x); - чтение из файла одного символа в переменную x.

Read (f, x1, x2, x3,..xn); - чтение из файла нескольких символов в переменные.

Readln (f, S); - чтение из текстового файла одной строки в переменную S типа String.

Append (f); -открытие текстового файла для добавления информации в конец файла.

Writeln (f, S); - запись в текстовый файл строки S.

 

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

Задача 12.

Из двух текстовых файлов создать третий, в котором чередуются одна строка из первого файла и по три строки из второго файла, причем в строках из первого файла точки заменить на *.

Решение: создадим в редакторе два текстовых файла: 1.txt и 2.txt и занесем в каждый из них произвольные строки, например:

Содержимое файла 1.txt

1. В чем измеряется длина файла?

 

2. Какой вид файла позволяет

обратиться к любой компоненте?

 

Содержимое файла 2.txt

В сантиметрах.

В байтах.

В битах.

Типизированный.

Текстовый. Нетипизированный.

Текст программы к задаче 12. Схема программы к задаче 12.

Program Ex_10;

Uses Crt;

Var f1, f2, f3: text;

i, j: integer;

Begin

ClrScr;

Assign(f1, ‘g: \sum\1.txt’);

Assign(f2, ‘g: \sum\2.txt’);

Assign(f3, ‘g: \sum\3.txt’);

Reset(f1);

Reset(f2);

Rewrite(f3);

While not Eof (f1) do begin

Readln (f1, x);

Readln(f2, y1);

Readln(f2, y2);

Readln(f2, y3);

For i: =1 to Length(x) do

If x[i]=’.’ then x[i]: =’*’;

Writeln(f3, x);

Writeln(f3, y1);

Writeln(f3, y2);

Writeln(f3, y3);

End;

Writeln(‘Результирующий файл: ’);

Reset(f3);

While not Eof(f3) do begin

Readln(f3, x);

Writeln(x);

End;

Close(f3);

Readln;

End.

Лабораторная работа № 13.