Програмирование на Visual Basic
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
?еляют допустимые операции над фаилом для друшх пользователей сеги (только для сетевых приложении)
имя_фа1иа имя файла (символьная константа или переменная) или путь
Номер файла - целочисленное выражение, значение которого должно лежать между 1 и 255 Другие операторы ввода-вывода используют номер открытого файла
Len определяет длину записи в байтах (по умолчанию длина записи устанавливается в 128 бант)
Длина записи определяется информацией, хранимой в файле, и задается целочисленным выражением и должна быть меньше 32767 байт (см ниже) Все записи одного файла прямого доступа имеют одинаковую длину (записи одного файла последовательного доступа Moiyr иметь разные длины)
Несушес1вующии файл создается при выполнении оператора Open Примеры:
Open “TESTFILE” For Random As#l Len=Len (Cl ien CWame) открывается файл “TESTFILE” прямого доступа с номером 1, длина записи
определяется с помощью встроенной функции Len (определение длины строки)
Open “MYFILE.TXT” For Random As #5 Len = 256
Для файлов прямого доступа можно открыть файл с другим номером, не закрывая файл
Файл прямого доступа закрывается оператором
Close #номер файла где номер фалла - указанный при открытии номер
Для ввода и вывода в файлах прямого доступа используются соответственно операторы
Get #номер файла, [номер записи], имя_переменной
Put #номер файла, [номер записи], имя_переменной где Get, Put - ключевые слова (Get ввод. Put вывод).
номер записи - арифметическое выражение, значение которого должно лежать в диапазоне от 1 до 2247483647, и которое определяет номер читаемой записи при вводе и номер записи, в которую выводится переменная
Если номер записи отсутствует, то ввод вывод начинается со следующей от текущеи записи (используемый номер в последнем из предыдущих операторов Get и Put) Обратите внимание, что запятые должны присутствовать при отсутствии номера записи (Get #4„FileBufTer)
Имя^переменной имя любой переменной, кроме имени массива (отдельный элемент массива может быть) и имени объекта, значение которой записывается в файл при выводе и значение которой считывается из файла при вводе
Примеры
Put #3, 4, Massiv(5)выводится значение 5-го элемента массива Massiv в 4-ю запись J-го файла.
Get #fileNum, I, RecVar ич 1-й -записи файла с номером liieNun считывается значение переменной RecVar.
Пример программы.
Создадим форму с двумя командными кнопками и две процедуры обработки событии “Click” для каждой кнопки По щелчку кнопки “Ввод” выводится окно для последовательного ввода пяти символьных строк и их записи в фаил прямого доступа (рис 3 26) По щелчку кнопки “Вывод” выводится окно для ввода номера требуемои записи фаила и запись, соответствующая введенному номеру, выводится в окне вывода (рис 3 27)
Текст процедур обработки событии
Private Sub Commandl_C-Lick ()
i^im PEREMLN Ач String * 15
Open “Prirrb^le” For Random As 5 Len - 15
For I - 1 ^r b PEREMEN = InputBox(“Введите запись” + Str(I))
Put #1-, T, PEPEMEN
Next r
Close ^ End Sub
Private Sub Commcind2 Click ()
Dim PEREMEN As String * 15
Open “Primflie” For Random As 5 Len = 15 К = InputBox(“Введите номер записи для вывода”)
Get #5, К, PEREMEN
MsgBox Str(K) + “-ая запись” + “ “ + PEREMEN
Close #5
Kill “PrimFile” End Sub
Еще одним преимуществом файлов прямого доступа является возможность использования индексов записеи Если для реорганизации фаила последовательного доступа (добавление, удаление, перестановка записей) необходимо сначала его прочитать, затем реорганизовать данные, а потом переписать фаил на диск в соответствии с новой реорганизациеи, то используя индекс, можно реорганизовывать индекс без реорганизации самого фаила Это значительно увеличивает скорость обработки больших объемов информации
Чтобы создать индекс, вначале создается массив целых чисел, в котором каждый элемент содержит один (свой) номер записи фаила прямого доступа Этот массив используется для определения номера записи, к которой нужно обратиться Такая
организация хранения записи файла называется индексированием записи. Записи одного файла могут иметь несколько разных индексов для организации различных алгоритмов работы с одним и тем же файлом.
Для массива индексов Index () оператор ввода для связанного с этим индексом файла имеет вид
Get ftFiieNiim. Imlex(l), RecVar
Первоначально каждый элемент массива Index () содержит свой собственный номер:
Index (1) = 1
Index (2) = 2 “., Index (3) = 3
Результат использования такого массива для доступа к записям файла идентичен прямому доступу к этому файлу. Для того чтобы переставить местами, например, вторую и третью запись, вместо реальной перестановки записей достаточно изменить значения индексов следующим образом:
Index (I) = 1
Index (2) = 3
Index (3) = 2
Пример программы.
Добавим к предыдущей программе процедуру обработки события щелчка мыши по форме.
Private Sub Form_C]-ick ( )
Dim PEREMEN As String * 15, PEREMEN1 As String *15 Static thelndex(l To 5) As Integer Open “PrimFile” For Random As 5 Len = 15 For I = 1 To 5 thelndex(l) = I Next I
11 = Val(InputBox(“Введите номер 1-й записидля
перестановки”))
Get #5, thelndex(ll), PEREMEN
12 = InputBox(“Введите номер 2-й записи для перестановки”)
Get #5, thelndex(12), PEREMEN1 Print Str(thelndex(ll)) + “-ая запись “ + PEREMEN Print Str(thelndex(12)) + “-ая запись “ + PEREMEN1 thelndex(ll) = 12 thelndex(12) = II Get #5, thelndex(ll), PEREMEN Get #5, thelndex(12), PEREMEN1 Print Str(Il) + “-ая запись “ + PEREMEN Print Str(I2) + “-ая запись “ + PEREMEN1 Close #5
Kill “PrimFile” End Sub
В процедуре вводится массив thelndex для задания индексов записей использу