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

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

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.

ProgramEx_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

Ifx[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.

Дата добавления: 2015-06-30; просмотров: 278; Нарушение авторских прав

Мы поможем в написании ваших работ!