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

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

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

В 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 # НомерФайла, ИмяПеременной

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

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

ИмяПеременной–имя переменной типа 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 (сокращение End Of File) возвращает значение True при достижении конца файла. При этом на каждом шаге цикла считывается отдельная строка и к ней добавляется символ конца строки, который отбрасывается инструкцией Line Input.

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

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

Дата добавления: 2014-12-07