Файлы

файлы
Примеры решения задач обработки файлов
Содержание

правило, во внешней памяти:
на дискетах,
винчестере,
CD или других устройствах

Определение

255 символов, нельзя \ / : * ? ”

персональное имя

расширение
(«фамилия»)

дисках, последние должны быть специальным образом размечены (форматированы). Разметка осуществляется

12.03.2007 25
Примеры.doc

номер начального блока (кластера) на диске

размер

дата изменения

самый простой вариант

все файлы «в куче», сложно разбираться
ограниченный объем каталога (512 записей)

Файловая система – это порядок размещения файлов на диске.

Кузя.avi
Винни-Пух.wmv
2006
Я.jpg
Шарик.jpg
2007
Ку.jpg
Зя.jpg
Корневой каталог

Вложенная папка (подкаталог) – это папка, расположенная внутри другой папки.

Папка (каталог) – объединяет файлы и вложенные папки

файлы

файлы

Файлы в корневом каталоге

папка

в данный момент работает пользователь.

имя файла


Путь к файлу – это перечисление папок (каталогов),

любых символов
? – один любой символ
Примеры:
*.*
*.doc
все файлы
все файлы с расширением

a*.?

имя файла начинается с «a», расширение из 1 символа

*x*.??*

имя файла содержит «x», расширение не менее 2 символов

*z.a?

имя файла заканчивается на «z», расширение начинается «a», всего 2 символа

Z: винчестер, CD, DVD, флэш-диск,

дисковод

типу:
файл записей,
файл целых чисел,
файл строк
и т.

вводе. (Крайним является случай, когда входные или выходные данные заведомо

Когда нужно использовать файлы

< 32)
ACSII (1 байт на символ)
UNICODE (2 байта на символ)
*.txt,

могут содержать любые символы кодовой таблицы

*.doc, *.exe,
*.bmp, *.jpg,
*.wav, *.mp3,
*.avi, *.mpg

Текстовые

Бинарные

Папки (каталоги)

возможно создавать, просматривать и редактировать "вручную" - в любом текстовом редакторе; при считывании данных не требуется заботиться об преобразовании

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

данные строго определенного типа. Обычно такие файлы представляются собой наборы

Разновидности файлов

ввода-вывода, такими как дисплей, клавиатура и т.п.
Логические устройства имеют

Логические устройства

осуществляют только последовательно, так как
при выполнении операций вывода данные

Логические устройства

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

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

Организация файла

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

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

быть задана константой.

В зависимости от способа представления информации различают

Описание файлов

переменной> = file оf ;
где - любой

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

переменной> = text;
Текстовые файлы используют для работы с текстами, представленными

переменной> = file;
Нетипизированные файлы применяют для организации скоростного обмена между

описана в инструкции объявления переменных.
Например:
Описание файлов
Var F1: file of

или с предварительным объявлением типа:

Туре FF = file of integer;
Var F1: FF;

Однако следует помнить, что с этой целью можно использовать только

Описание файлов

Туре FF = file of integer;

Procedure Print (Var F1:FF);

переменной с файлом;
открытие файла – подготовку файла для выполнения операций

переменной устанавливается специальной процедурой.
Процедура
Инициализация файловой переменной
инициализирует файловую переменную f,

Assign (Var f; st:string)

(fl, 'T1.dat'); {связывание файловой переменной с файлом в

можно открыть
для чтения
и для записи.

Текстовый файл можно открыть

Открытие файла

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

ReSet(Var f)

выполнения, а функция lOResult типа Word возвращает значение, отличное от

Открытие файла

Var f: file of char;
Begin
Assign(f, 'a.dat'); {инициализация файловой переменной}
{$ I- } {отмена контроля ошибок ввода-вывода}
ReSet (f); {открытие файла для чтения}
{$ I+ } {включение контроля ошибок}
if IOResult <>0 then
WriteLn ('Файл не существует');
else WriteLn('Файл существует');

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

ReWrite(Var f)

строк.

При открытии для добавления строк указатель файла устанавливается на конец

AppEnd(Var f: text)

два файла со стандартными файловыми переменными:
INPUT – чтение со стандартного

Открытие файла

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

Обработка компонентов файла

f)
При этом вновь созданный файл регистрируется в каталоге.
!
Поскольку любое

файл (сделать его активным, приготовить к работе)

assign(f, 'qq.txt');
reset(f); {для чтения}
rewrite(f);

II этап: работа с файлом

Переменная типа «текстовый файл»: var f: text;

III этап: закрыть файл

close(f);

read ( f, n ); { ввести значение n }

write ( f, n ); { записать значение n }
writeln ( f, n );{c переходом на нов.строку }

к файлу идет через файловую переменную
файл, который открывается на чтение,

которые применимы к файлам любых типов.
Стандартные процедуры и функции обслуживания

переменной f. Новое имя файла задается параметром name.

Если в

ReName(Var f; name: string)

в процессе формирования файла.

Перед уничтожением файл должен быть закрыт,

Erase(Var f)

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

EOF(Var f):boolean

ввода/вывода.
Если ошибок не зафиксировано, то функция возвращает 0.

Информация

IOResult(Var f): word

того, на который ссылается указатель файла (кроме текстовых файлов).
Truncate(Var f)

каталог, указанный параметром path.
ChDir(path: string)

текущего каталога на указанном устройстве, где устройство drive:
0 –

GetDir(drive: word; Var dir: string)

определяет путь и новое имя.
MkDir(dir: string)

в переменной dir.
Каталог должен быть пустым.
RmDir(dir: string)

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

в конец.
Файл, открытый для записи, не может использоваться для

строк,
символьных массивов.
Логические и числовые данные при записи в

входном текстовом файле достигнут маркер конца строки.
При отсутствии файловой

EOLn( Var f): boolean

и чисел.
Список ввода представляет собой последовательность из одной или

Read( Var f: text; vl, v2,..., vn)

типа CHAR выполняется чтение одного символа из файла, считанное значение

типа STRING количество считанных процедурой и помещенных в строку символов

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

Стандартные процедуры и функции обслуживания текстовых файлов: Read

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

Стандартные процедуры и функции обслуживания текстовых файлов: Read

строк и чисел.
Процедура использует те же правила ввода, что и

ReadLn( Var f; vl, v2,..., vn)

Тогда операция чтения осуществляется из стандартного файла INPUT.
Использование процедуры

Стандартные процедуры и функции обслуживания текстовых файлов

той позиции, где стоит курсор
после чтения курсор сдвигается на первый

12 5 45 67 56●

конец файла
(end of file, EOF)

12 5 45 67 56●

assign ( f, 'qq.txt' );
reset ( f );

read ( f, x );

reset ( f ); { начать с начала }
readln

12 5 45¤ 36 67¤ 56●

конец строки
(end of line, EOL)

текстовый файл или передачу их на логическое устройство.
Список вывода

Write( Var f; vl, v2,..., vn)

функции обслуживания текстовых файлов
где и интерпретируются в соответствии

<параметр> [: <целое1> [: < целое2> ]],

текстовый файл или ее передачу на логическое устройство вывода.
При отсутствии

WriteLn( Var f; vl, v2,..., vn)

знаки табуляции до маркера конца строки или до первого значащего

SeekEOLn( Var f ):boolean

табуляции и маркеры конца строки до маркера конца файла или

SeekEOF( Var f ):boolean

случайное количество соответствующих прописных букв латинского алфавита.
Например:
ААААА
ВВВВВ
С
DDDDDDDDDDDDDDDDDDDDD
ЕЕЕЕЕЕЕЕЕЕЕЕЕЕ
и т.д.
Пример 1

файла}
а:char; n,i:integer;
fname,st:string[30];
Begin
WriteLn('Введите имя файла');
ReadLn(fname);
Assign(f,

{формируем строки}
n:=Random(30)+l;
st:='';
for i:=l to n do
st:=st+a:
WriteLn(f, st);

последовательная их обработка (запись, чтение и поиск).
Любой вид модификации

не содержащие символов,
и строки, содержащие только пробелы и знаки

Пример 2

name: string;
Begin
WriteLn('Введите имя файла:');
ReadLn(name);
Assign(f1, name);

файла}
if SeekEOLn(f1) then ReadLn(f1, St) {если строка пустая, то

их – неизвестно. Записать в файл output.txt их сумму.
Алгоритм:
Открыть файл

цикл с условием «пока есть данные»

assign(f, 'input.txt');
reset(f);
s := 0;

while not eof(f) do begin
readln(f, x);
s := s + x;
end;

f: text;

eof(f)

логическая функция, возвращает True, если достигнут конец файла

assign(f, 'output.txt');
rewrite(f);
writeln(f, 'Сумма чисел ', s);
close(f);

запись результата в файл output.txt

Найти среднее арифметическое всех чисел и записать его в файл

столбик), сколько их – неизвестно, но не более 100. Переставить

f: text;
function ReadArray: integer;
var i: integer;
begin

Глобальные переменные:

Функция: ввод массива, возвращает число элементов

while (not eof(f)) and (i < 100) do begin
i := i + 1;
readln(f, A[i]);
end;

ReadArray := i;

цикл заканчивается, если достигнут конец файла или прочитали 100 чисел

N, i: integer;
Begin
N := ReadArray;

function ReadArray: integer;
...
end;

assign(f, 'output.txt');
rewrite(f);
for i:=1 to N do
writeln(f, A[i]);
close(f);

вывод отсортированного массива в файл

не более 100.
«4»: Отсортировать массив по убыванию последней цифры

в которых есть слово-паразит «короче». Очистить текст от мусора и

короче," (Pos, Delete).
Записать строку в другой файл.
Перейти к

пока не кончились данные

repeat
i := Pos(', короче,', s);
if i <> 0 then Delete(s, i, 9);
until i = 0;

искать «, короче,»

удалить 9 символов

Пример 5: обработка текстовых данных

i: integer;
fIn, fOut: text;
begin

fIn, fOut: text;

файловые переменные

открыть файл для чтения

открыть файл для записи

readln(fIn, s);
writeln(fOut, s);
end;

пока не достигнут конец файла

обработка строки

запись «очищенной» строки

Заменить все слова «короче» на «в общем» и записать результат

одного типа, заданного при объявлении файловой переменной.
Компоненты файла хранятся

можно распознать только символьную информацию, на месте же чисел в

типизированного файла.
Список переменных ввода содержит одну или несколько переменных

Read(Var f; с1, с2, ...,сn)

типизированный файл.
Список вывода содержит одно или более выражений того

Write(Var f; с1, с2, ...,сn)

(переход) на компонент файла с номером numcomp.
Seek(Var f; numcomp: word)
Например,
Seek(f,

осуществляет переход к десятой записи в файле f.

указанного файловой переменной.
Может использоваться для установки на конец файла

FileSize(Var f): longint

Seek(f, FileSize(f));
Seek(f, FileSize(f)-1);

который будет обрабатываться следующей операцией ввода-вывода.
FilePos(Var f): longint

в его начале и указывает на первый компонент, имеющий номер

Обработка типизированного файла

этого указатель файла устанавливается на его конец (как показано выше),

Обработка типизированного файла

клавиатуры. Затем эта программа должна
изменять символы, записанные в файл,

Пример 6

файловые переменные}
ch, i: char;
j: longint;

{пока не введено CTRL-Z с клавиатуры}
begin
ReadLn(ch); {вводим символ с

while not EOF(f) do {пока не достигнут конец файла}

{открываем файл для чтения}
j:=0; {устанавливаем номер компонента равным 0}

нового файла с тем же именем}
Close(f); {закрываем файл}
ReName(f,

файл для чтения}
while not EOF(f1) do begin
Read(f1, Ch); {читаем

рождения. Осуществить поиск в этом файле даты рождения по заданной

Пример 7

ff: string[20]; {фамилия}
year: word; {год рождения}

введено CTRL-Z}
ReadLn(fb.ff, fb.year, fb.month, fb.day); {вводим данные по полям,

не обнаружен конец файла и не найдена запись}
Read(f, fb); {читаем

Track = record
Name: string[50]; {Название дорожки}
Hours: 0..3; {Часы}
Minutes: 0..59;

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

string[20]; {Автор}
Title: string[50]; {Название}
Year: integer; {Год}
Kind: string[10]; {Жанр}
case Tracks: byte

Track);
Var hh, mm, sa: string[2];
Timing: string[8];
begin
with TrackData

файла с данными о музыкальных дисках:');
Readln (FName) ;
Assign(F, FName);
{$ I-}
Reset(F);
{$

' дисках: ');
Seek(F, 0); {Перемещаемся к первой записи}

Readln(num);
Seek(F, num-1); {Перемещаемся к указанной записи}

');
Readln(с);
until с in ['N', 'n', 'Н', 'н'];
Close(F);
end.

не в массиве, а в файле прямого доступа (типизированном файле).

Пример 9

name: string;
{Поиск элемента х в упорядоченном файле целых

i1;
seek(f, s); Read(f, as);
if as=x then begin
searchf

поиска }
procedure elements;
var x, i, n: integer;
begin
Writeln('Введите

файла:');
ReadLn(name);
assign(f, name);
{$I-} {проверяем существование

типизированный файл с компонентами типа CHAR. В этом случае необходимо

Пример 10

файл}
Var f: ff; {файловая переменная типа файл символов}
a: char;

(а#13) and not EOF(f) do begin
{до маркера конца строки или