Коднянко В.А. |
17. Файлы Файлом называется область данных на внешнем носителе – жестком диске, дискете и пр. Всякий файл имеет имя, представляющее собой строку символов. Различают обычное имя (или просто имя) и полное имя. Под полным именем понимается абсолютный адрес файла, состоящий из пути и имени файла. Например, строка 'C:\Program Files\Folder1\Students.dat' является полным именем. Оно состоит из пути 'C:\Program Files\Folder1' к файлу и собственно имени файла 'Students.dat'. Это означает, что файл 'Students.dat' расположен на диске C в папке (директории) Program Files непосредственно в подпапке (субдиректории) Folder1.Ранее упоминалось, что в языке Object Pascal существует три типа файлов:<имя> = TextFile; {текстовые файлы} <имя> = File; {файлы без типа} <имя> = File of <тип даных>; {файлы с типом} 17.1. Файловая переменная Для того чтобы получить доступ к файлу, его необходимо сначала открыть. Открытие файла выполняется посредством связывания файла с особой переменной, называемой файловой переменной. Именно файловая переменная и характеризует тип файла. Связывание файла с файловой переменной еще не означает открытия этого файла. Открытие файла производится специальными процедурами, о которых будет упомянуто ниже. Связывание файла с файловой переменной производится с помощью стандартной процедуры AssignFile, которая имеет заголовок:AssignFile(<файловая переменная >, <имя файла>); Например, фрагментVar f1: TextFile; cодержит объявление файловой переменной f1 текстового типа и строки FullPath, которые затем используются в исполнительной части для указания полного имени файла и связывания его с файловой переменной f1. 17.2. Текстовые файлы Текстовой файл – это последовательность символьных строк перемен-ной длины. Всякая строка завершается маркером конца строки, всякий текстовой файл завершается маркером конца файла . Такие файлы можно обрабатывать только последовательно. Один и тот же текстовой файл не может быть открыт одновременно для ввода и вывода. Файловая переменная этого файла имеет тип TextFile или просто Text.Для текстовых файлов есть две стандартные файловые переменные – Input и Output, которые не нужно объявлять отдельно.17.2.1. Процедуры и функции для работы с текстовым файлом
Связывает файловую переменную f с дисковым файлом FileName.Открывает существующий файл для добавления строк в конец файла. При отсутствии файла возникает ошибка ввода/вывода. Создает новый файл и открывает его для вывода. Если файл существует, то он уничтожается и создается как новый. Когда новый текстовой файл закрывается, к нему автоматически добавляется маркер конца файла. Открывает существующий файл для чтения и устанавливает указатель на первую строку файла. При его отсутствии возникает ошибка ввода/вывода.Читает данные из файла и заносит их в переменные v1, v2, …, vN. Переменные могут иметь символьный, строчный или арифметические типы. Читает данные из файла целыми строками и заносит их в переменные v1, v2, …, vN. Если список переменных пуст, то происходит перемещение указателя на следующую строку. Записывает данные из переменных v1, v2, …, vN в файл в символьном виде.Устанавливает буфер чтения текстового файла. Процедура должна быть вызвана после AssignFile, но до первого вызова процедур чтения. Буфер используется для чтения больших фрагментов файла, включая символы конца строк. Если размер буфера не указан, то по умолчанию он принимается равным 128.Закрывает текстовой файл .Выводит содержимое внутреннего буфера в файл .Возвращает True, если достигнут конец файла. Возвращает True, если достигнут конец текущей строки. Возвращает статус конца файла. Возвращает статус конца строки. Пример :Var F1, F2: TextFile; Ch: Char; St: String[255]; Buf: array[1..4096] of Char; { текстовой буфер размером 4K} begin while not
Eof(F1) do {пока не
достигнут конец файла – выполнять} CloseFile(F1); {файл F1
закрыт}
while not
Eof(F1) do {пока не
достигнут конец файла – выполнять} CloseFile(F1); {файл F1
закрыт} Приведенный фрагмент модуля является демонстрационным и предназначен для копирования файла 'T1.TXT' в файл 'WOOF.DOG' . В первом цикле While – do копирование ведется посимвольно, во втором цикле – построчно. Пример процедуры, записывающей в конец текстового файла строку символов:
Procedure
AddStrToTextFile(nF, St:String); Begin If not FileExists(nF) then
Rewrite(f) {не существует, создать и открыть} Writeln(f, St); {записать
строку } К процедуре можно обратиться, например, так: Var S1: String[58]; 17.3. Файлы с типом Файл состоит из любых однотипных компонент. Доступ к данным осуществляется через файловую переменную. В отличие от текстового файла в таком файле допустим прямой доступ к любой записи, причем в рамках открытого файла допустимо как записывать, так и читать записи. Примеры объявления файловой переменной для файлов с типом: Var После каждого чтения или вывода записи указатель автоматически устанавливается на следующую запись. 17.3.1. Процедуры и функции для работы с типизированным файлом
Связывает файловую переменную f с дисковым файлом FileName.Создает новый файл и открывает его. Если файл существует, то он уничтожается и создается как новый. Открывает существующий файл и устанавливает указатель на первую запись. При отсутствии файла возникает ошибка ввода/вывода.Читает записи из файла и заносит их в переменные v1, v2, …, vN. Чтение начинается с той записи, на которую установлен указатель. Типы файла и переменных должны быть одинаковы. Записывает данные из переменных v1, v2, …, vN в файл. Вывод данных начинается с той записи, на которую установлен указатель. Если указатель установлен на существующую запись, то при выводе она будет замещена новой записью. Если одновременно выводится несколько записей, то будет замещено такое же количество существующих записей. Типы файла и переменных должны быть одинаковы.Перемещает указатель на запись с номером N. Первая запись имеет порядковый номер 0. Возвращает номер записи, на которую установлен указатель. Закрывает файл .Возвращает True, если достигнут конец файла. Возвращает количество записей в файле. Например, Seek(f, FileSize(f)) установит указатель в конец файла (после последней записи).Уничтожает (отрубает) конец файла начиная с записи, на которую установлен указатель. 17.4. Файлы без типа Файл состоит из компонент одинакового размера. Тип данных не имеет значения. Доступ к данным осуществляется через файловую переменную. Как и в файлах с типом , в таком файле допустим прямой доступ к любой записи, причем в рамках открытого файла допустимо как писать, так и читать записи.Файловая переменная может быть объявлена так :
После каждого чтения или вывода записи указатель автоматически устанавливается на следующую запись. Отсутствие типа записи позволяет выполнять обработку файлов различных типов с помощью универсальных процедур и функций. 17.4.1. Процедуры и функции для работы с файлом без типа
Связывает файловую переменную f с дисковым файлом FileName.Создает новый файл и открывает его. Если файл существует, то он уничтожается и создается как новый. Открывает существующий файл и устанавливает указатель на первую запись. При отсутствии файла возникает ошибка ввода/вывода. Параметр Size указывает размер записи открываемого файла. При его отсутствии размер записи по умолчанию равен 1.Читает из файла Count записей в переменную Buf. Result – реально прочитанное количество записей.Пишет в файл первых Count записей из переменной Buf. Result – реально записанное количество записей.Перемещает указатель на запись с номером N. Первая запись имеет порядковый номер 0. Возвращает номер записи, на которую установлен указатель. Закрывает файл .Возвращает True, если достигнут конец файла. Возвращает количество записей в файле. Например, Seek(f, FileSize(f)) установит указатель в конец файла (после последней записи).
Язык Object Pascal не накладывает никаких ограничений на длину записи (теоретически она может иметь размер до 2 Гб).Пример описания и обращения к функции ReadFromFile, читающей из файла nF в позиции Pos запись r размером Sz.function ReadFromFile(nF: String; Pos: Word; Var r; Sz: Word): boolean; Var Begin Assign(g, nF); try Seek(g, Pos); {установить
указатель на запись} finally end; end {ReadFromFile}; … Type tStud = Record Var Stud: tStud; … if ReadFromFile('base2.ff1', 12,
Stud, SizeOf(Stud)) Приведем еще пример. В директории 'c:\Bases\SdudBase' находится файл 'AllStuds.bs', в котором хранятся данные о студентах в виде записей типа
Ниже приведена универсальная процедура, которая копирует из этого файла в другой файл данные только о тех студентах, которые имеют заданный год рождения :Procedure StudsCopy(nF1, nF2: ShortString; BornYear: byte; Var Count: Word; Var: Ind: ShortInt); {nF1 – файл-источник, nF2 –
файл-приёмник, Var g: tStud; Begin Count:= 0; {инициализация
счетчика} If (K > 0) then
{если в файле-источнике есть записи } try For j:=1 to K do Case i of 1: {запись прочитана} 0: begin Ind:= -1;
Break; end; {запись не
прочитана, сразу выход из цикла} end; {цикла For} finally End {If }; End {StudsCopy}; Операторы, реализующие копирование требуемых данных в файл '1979.bs': StudsCopy ('AllStuds.bs', '1979.bs', 1979, Count1979, Ind1979);
В этом примере использована внешняя процедура KdnFileSize {количество записей в файле }. Приведем ее текст:
17.5. Процедуры и функции для работы с файлами Эти подпрограммы предназначены для работы с файлами, папками (директориями) и дисками. Делает папку Dir текущей. Пример: ChDir('c:\');Возвращает текущую папку на заданном устройстве. ( D= 0 – текущий диск, 1 – диск А, 2 – диск B и т.д.). Пример: GetDir(0, s);Уничтожает заданную папку. Папка не должна содержать вложенных папок или файлов. Пример: RmDir('Folder66');Удаляет файл, связанный с файловой переменной f. Файл должен быть закрыт.Переименовывает файл , связанный с файловой переменной f. Файл должен быть закрыт. Пример: Rename(g, 'studs.txt');Возвращает количество свободной памяти в байтах на устройстве D. Код драйвера задается так же, как в процедуре GetDir. Если код указан неверно, то возвращает -1.Возвращает количество свободной памяти в байтах на устройстве D. Код драйвера задается так же, как в процедуре GetDir. Если код указан неверно, то возвращает -1.var F: TSearchRec): Integer; Находит имя первого файла с заданными атрибутами Attr в папке Path. Результат поиска выводит в переменную F. Если поиск успешен, то функция вернет 0, иначе вернет код ошибки Widows. К FindFirst можно обращаться не только как к функции, но и как к процедуре.
Тип, характеризующий найденный файл, представляет запись вида : type TSearchRec = Record Пример: Var SR: TSearchRec; В данном примере процедура FindFirst ищет первый файл по маске '*.*' (все файлы) в папке 'c:\Program Files\delphi4\bin'. Атрибут faAnyFile означает, что поиск производится по всем видам файлов, под которыми понимаются папки (директории), '.', '..' – ссылки на текущую и родительскую папку, внутренние папки и собственно файлы. Последние в терминологии файловой атрибутики называются архивами. Далее, если найденный файл есть архив, т е. файл в общепринятой терминологии, то в строку S будет помещено сообщение. Например, если найденный файл имеет имя Ig.ttg и его размер равен 15899, то S= 'Файл Ig.ttg имеет размер 15889 байтов'.Находит следующий файл, атрибуты которого указаны в FindFirst.Закрывает действие FindFirst/FindNext.Удаляет файл по имени. Если файл не может быть удален или не существует – возвращает False.Создает новую папку. Возвращает текущую папку. Возвращает текущую папку. Установка новой текущей папки. Удаление папки. Перед удалением папка должна быть пустой. Выделяет из полного имени файла FileName папку, в которой содержится это файл.Выделяет из полного имени файла FileName путь до файла.Возвращает расширение файла FileName.Возвращает имя файла FileName (без расширения). Проверяет существование директории . Пример:if DirectoryExists('C:\APPS\SALES\LOCAL') then ; Проверяет существование файла . Примеры: B:= FileExists('C:\APPS\SALES\LOCAL\Fort.pas'); {полное имя}B:= FileExists('Fort.pas'); {указано усеченное имя файла, проверка его существования только в текущей директории} Создает новую директорию. П р и м е ч а н и е. К моменту обращения к процедуре директории APPS и SALES должны существовать. Пример процедуры удаления данных из текущей директории, включая файлы и вложенные папки. ProcedureDelInsideDir(FullDir: tPathStr); VarL: Integer; Sr: TSearchRec; dr, q: tPathStr; begin if ExistDir(FullDir) then {такая директория есть} beginGetDir(0,dr); {запомнить текущую директорию} ChDir(FullDir); {текущей становится удаляемая директория} L:=FindFirst(Slash(FullDir)+'*.*',faAnyFile,Sr);{поиск первого файла}tryWhile(L = 0) do begin {пока файлы находятся}CaseSr.Attr offaDirectory:{найденный файл – внутренняя директория}if(Sr.Name<>'.') and (Sr.Name<>'..') then {это не ссылка, директория}begin{удаление внутреннего содержимого директории} DelInsideDir(Slash(FullDir)+Sr.Name); q:= Slash(FullDir)+Sr.Name; ChDir(ExtractFilePath(q)); {удаление самой директории (можно, т. к. она теперь пуста)} if NotEmpStr(ExtractFileName(q)) then RmDir(ExtractFileName(q));end;faArchive: DeleteFile(Sr.Name); {это файл, удаляется}end; {Конец Case-оператора}L:= FindNext(Sr); {следующий файл директории}end; {цикла While}finallyFindClose(Sr); {закрыть поиск файлов}end; {try – finally – end}ChDir(dr); {вернуться в текущую директорию}end;{if} end;{процедуры} Например, если необходимо стереть данные с дискеты, то это можно сделать с помощью оператора : DelInsideDir('A:\');
|