Пример объединения двух файлов

Из двух отсортированных в убывающем порядке файлов целых чисел IN1.DAT и IN2.DAT получается новый файл OUT.DAT, отсортированный в том же порядке.

Program Merge;

{ Учебный пример:

Создание файла OUT.DAT, отсортированного в убывающем порядке, объединенного из файлов IN1.DAT и IN2.DAT, так же отсортированных }

Var In1,In2,Out: File of integer;

x1,x2: integer; { вспомогательные переменные - элементы файлов }

Begin

{ Ставим в соответствие внутреннее и внешнее имя файлов }

Assign(In1,'IN1.DAT');

Assign(In2,'IN2.DAT');

Assign(Out,'OUT.DAT');

{$I-} { Запрет контроля ошибок в среде ОС }

{ Открываем и контролируем открытие файлов }

Reset(In1);

If IOResult <>0 Then Begin

Writeln ('Ошибка файла IN1.DAT');

Exit; End;

Reset(In2);

If IOResult <>0 Then Begin

Writeln ('Ошибка файла IN2.DAT');

Exit; End;

Rewrite(Out);

If IOResult <>0 Then Begin

Writeln ('Ошибка создания файла OUT.DAT');

Exit; End;

{$I+} { Обязательно восстанавливаем контроль за ошибками }

{ в цикле While обрабатываются элементы файлов }

While not (EOF(In1) or EOF(In2)) do

Begin

{ Читаем элемент файла, но указатель не перемещаем, иначе будет пропущен последний элемент }

Read(In1,x1); Seek(In1,FilePos(In1)-1);

Read(In2,x2); Seek(In2,FilePos(In2)-1);

If x1<x2 Then Begin

Write(Out,x2);

Seek(In2,FilePos(In2)+1)

end

else Begin

Write(Out,x1);

Seek(In1,FilePos(In1)+1)

end;

end;

{ Чтение одного из входных файлов закончено – переписываем конец незаконченного файла в выходной }

While not EOF(In1) do

Begin

Read(In1,x1);

Write(Out,x1);

end;

While not EOF(In2) do

Begin

Read(In2,x2);

Write(Out,x2);

end;

{ Закрытие использованных файлов – хороший стиль программирования}

Close (In1);

Close (In2);

Close (Out);

end.

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

На персональных компьютерах значительное количество информации обрабатывается в виде текстов, хранящихся в текстовых файлах. Их структура отличается от структуры обычных файлов тем, что содержимое текстового файла рассматривается как последовательность символьных строк переменной длины, разделенных комбинацией символов, называемой «конец строки». Эти файлы завершаются специальным кодом «конец файла».

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

Файлы, имеющие такую структуру, имеют стандартный тип:

Type <имя_типа> = text;

Var < имя_файловой_переменной >: text;

и имеют в своем составе элементы литерного типа, которые включают управляющие символы.

Набор операций, применимых к текстовым файлам, содержит, кроме операций для обычных файлов, следующие. К начальным операциям добавлена процедура

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

предназначенная для записи информации в файл. Ее действие аналогично Rewrite, но при наличии файла она не очищает файл, а ставит указатель файла на его конец. Таким образом, процедура Append используется, когда необходимо добавить новые строки в конец уже существующего файла.

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

В операциях, связанных с вводом-выводом, помимо процедур Read и Write, имеются две их модификации:

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

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

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

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

EOLn (< имя_файловой_переменной>).

Таким образом, типовая схема обработки текстового файла включает в себя двойной цикл. При чтении файла:

...

Assign (< имя_файловой_переменной >,

<внешнее_имя_файла >);

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

{ Возможна обработка особых ситуаций }

While not EOF (<имя_файловой_переменной >) do

Begin

While not EOLn (<имя_файловой_переменной >) do

Begin

Read (< имя_файловой_переменной >,

< символьная переменная >);

< операторы обработки символа >;

end;

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

end;

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

...

При создании файла:

...

Assign (<имя_файловой_переменной >,

<внешнее_имя_файла >);

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

{ Возможна обработка особых ситуаций }

While < признак_окончания_файла > do

Begin

While <признак_окончания_строки> do

Begin

Write (<имя_файловой_переменной >,

< символьная переменная >);

< операторы формирования символа >;

end;

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

end;

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

...