Типы доступа к файлам

В VBпредусмотрены три типа доступа к файлам:

последовательный доступ (Sequential)– для чтения и записи текстовых файлов, которых могут состоять из записей переменной длины;

произвольный доступ (Random)– для чтения и записи файлов с записями, которые могут быть только одинаковой длины;

двоичный доступ (Binary) – для чтения и записи отдельных байтов файла.

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

Последовательный доступ

Последовательный доступ используется главным образом при работе с текстовыми файлами. Текстовый файл может содержать коды символов, признак перевода строки ( vbCrLfилиChr(13) &Chr(10)), признак табуляции (vbTabилиChr(10)) и признак конца файла. Здесь записи – это строки переменной длины, отделенные друг от друга символом перевода строки.

Файл последовательного доступа должен быть открыт инструкцией Open:

Open ИмяФайла For [Input / Output / Append] As НомерФайла

Ключевое слово	Описание
Input	Открытие только для чтения из файла
Output	Открытие для записи в файл
Append	Открытие для добавления к файлу

Если файл не существует и открывается для чтения (Input), тоVBвыдает сообщение об ошибке, а если для записи или добавления (OutputилиAppend), то создается новый файл. Если файл с указанным именем существует, то в режимеOutputего содержимое удаляется, а в режимеAppendфайл открывается для добавления:

В конце строки указывается номер файла НомерФайла.

Пример.

Open "С:\Readme.txt" For Append As fh1

Инструкция Close #НомерФайлапредназначена для закрытия открытого файла. Если номер файла указан, то закрывается соответствующий файл, если нет, то закрываются все открытые файлы. Примеры:

Close #fh 'закрывает файл, описываемый номером fh;

Close fh 'использование # необязательно;

Close 'Закрывает все файлы, открытые приложением

Чтение из файла последовательного доступа

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

1. Инструкция Line Input # считывает одну запись.

Line Input #НомерФайла, ИмяПеременной

где LineInput– ключевое слово;

НомерФайла – это номер файла;

ИмяПеременной – имя переменной типаStringилиVariant, которая принимает значение записи файла.

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

2. Инструкция Input$ - считывает заданное количество символов (байтов).

Может применяться как инструкция и как функция, например:

Строка = Input$ (КоличествоБайтов, НомерФайла)

Прочитать всю информацию из файла можно несколькими способами:

Private Sub Form_Click()

Dim S As String, T As String

Dim fh As Integer

fh = FreeFile

Open “c:\ReadMe.txt” For Input As fh

‘ 1-ый вариант

Do Until EOF(fh)

Line Input #fh, S

T = T & S & vbLf

Loop

‘ 2-ой вариант

‘ T = Input$(LOF(fh),fh)

Close #fh

Print T

End Sub

Оба варианта приводят к одинаковому результату. В первом варианте инструкция Input: выполняется в цикле, пока не будет достигнут конец файла. ФункцияEOF(сокращениеEndOfFile) возвращает значениеTrueпри достижении конца файла. При этом на каждом шаге цикла считывается отдельная строка и к ней добавляется символ конца строки, который отбрасывается инструкциейLineInput.

Во втором варианте весь файл считывается функцией Input$. ФункцияLOF(сокращениеLengthOfFile) позволяет определить длину файла в байтах.

3. Инструкция Input #- применяется для чтения файлов, записанных инструкциейWrite #.