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

Работа с данными

End Sub

DriveListBox - список дисков.

End Sub

При этом для списка каталогов Path указывает выбранный каталог, а для списка файлов - каталог, файлы которого отражаются в списке.

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

Таблица 3.5 Основные свойства Списка дисков

Свойство	Содержание
Drive	Определяет текущий диск
ListCount	Кол. членов списка дисков
ListIndex	Индекс массива дисков
List	Массив членов списка дисков
Parent	Для доступа к свойствам, событиям и методам родительской формы данного элемента

Таблица 3.6 События Списка дисков

События	Описание
KeyUp, KeyDawn, KeyPress	Нажатие на клавишу
DragDrop, DragOver	Перетаскивание объекта
GotFocus, LostFocus	Передача фокуса
Change	Изменение в списке дисков

Основным свойством является свойство Drive, которое используется для получения и установки имени текущего диска. Это свойство используется для синхронизации работы списка дисков и списка каталогов. Например:

Private Sub drvBox_Change ()

dirBox. Path = drvBox. Drive

Ch Drive drvBox. Drive ‘ Если нужно изменить текущий диск ОС

Файлы последовательного доступа используются когда:

а) в них относительно редко вносятся изменения;

б) информация в файле обрабатывается от начала до конца;

в) если нужно добавлять информацию в конец файла.

Для совершения операции чтения или записи с файлом его нужно открыть командой Open. После Open следует имя файла, строковая переменная или строка в двойных кавычках. Если файл не в текущем каталоге, нужно указать путь к нему.

Запись информации в файл:

Open “имя файла” for Output As # идентификатор файла

Идентификатор файла - число от 1 до 255 с символом #. Максимальное число одновременно открытых файлов может быть задано параметром в файле Config.sys.

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

Close # идентификатор файла.

Команда Close сбрасывает информацию на диск и очищает буфер. Для сброса содержимого буфера на диск (в критических ситуациях) используется команда Reset. Для ввода информации в файл можно использовать команду

Print # идентификатор файла, выражение или список переменных

Если в текущем каталоге есть файл с таким именем, то этой командой он будет уничтожен.

Пример 1. Запись в файл строки символов 1 2 3 4 5:

Open “File1” For Output As #1

Print #1, “1 2 3 4 5 ”

Close #1

Пример 2. Запись в файл содержимого текстового поля:

Open “File1” For Output As #1

Print #1, txtDisplay.Text

Close #1

Close без параметров закрывает все файлы.

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

LOF (идентификатор файла)

Например:

Open “File1” For Output As #1

Print #1, “1 2 3 4 5 ”

Print LOF(1)

Вместо Print можно использовать команду

Write # идентификатор файла, список переменных.

Чтение из файла:

Вначале файл открывается на вывод:

Open ”имя файла” For Input As # идентификатор файла

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

Например:

FileNumber % = FreeFile

Open “имя файла” For Input As [ #] FileNumber %

После этого можно использовать оператор Line Input # для построчного чтения информации из файла (если запись в файл осуществлялась с помощью оператора Print):

Open “File1” For Input As #1

Line Input #1, A$ ‘принимает в строку A$ всю информацию до” Enter”.

Print A$

Close #1

Либо, если запись в файл осуществлялась с помощью команды Write:

Input # идентификатор файла, список переменных

Если файл сложной структуры, состоит из полей и записей, то файл будет читаться целыми записями командой Line Input, либо можно информацию читать из отдельных полей командой Input #.

Например, чтение записей из файла Spisok в массив:

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