Програмирование на Visual Basic (стр. 22 из 30)
Line Input #5, Filedata
Text2.Text = Text2.Text + Filedata :hr$ (13) + Chr$(10)
Loop End Sub
‘Private Sub Command4 Click() Dim Filedata As String Open “File2” For Input As #6 Do While Not EOF(6) Line Input tt6, Filedata
Textl.Text = Textl.Text + Filedata + Chr$(13) ^ Chr$(10)
Loop Close #6 End Sub
Private Sub Command5_Click()
Kill “Filel”
Kill “File2”
End End Sub
Private Sub Text3_KeyPress(keyAscii As Integer) Dim Filedata As String If keyAscii = 13 Then Filedata = Text3.Text
Write tt5, Filedata Text3.Text •= “”
Описание используемых стандартных (функции для обработки строк
Stiing$(niimbei, chaiactci) возвращает проку одинаковых символов (chaiaciei) заданной длины (niimbel)
Mid$(stung, start|. length|) возвращает строку с заданным количеством символов (length) из cirokh (stung), начиная с заданной позиции (start) el in start больше количесгва символов в строке - возвращаечся прока нулевой длины Если отсутствуег параметр length, то воз праща клея симво1ы от заданной позиции до конца строки Если slung равно Null - возвращается Null
lnSti(|stait. |stiingl. stiing2) возвращает первую позицию, с которой одна строка (stiing2) вхолиг в другую (stimgl), как подстрока Start — арифмешческое выражение, значение которого задае! начальную позицию поиска в slungi (если параметр stait не задан, ю поиск иде1 с первой позиции)
Возвращаемое значение' если stiingi имеет нулевую длину — О если string! равно Null - Null если stiing2 имеет нулевую длину — start если stiing2 равно Null — Null если string2 не найдено — О если start > длины stimgl — О
3.7.2. Файлы прямого доступа
Для получения доступа к файлу для операции ввода-вывода используется оператор открыгия файла, синтаксис которого следующий
Open имя_фаша [For Random] [Access {Read] Write I Read
Write}]
[{Shared | Lock Read | Lock Read Write}] As [#] номер файла [Len =
длина записи}
где Foi Random, Access. Read, Wiite, Read Wiite, Shaied, Lock Read, Lock Wiite, Lock Read Wiite, Len - ключевые слова.
For Random определяет прямои доступ и принимается по умолчанию
Access определяет допустимые операции с файлом (Read — чтение фаипа (ввод). Write - вывод в файл. Read Write — допускается ввод и вывод)
Shared, Lock Read, Lock Write, Lock Read Write определяют допустимые операции над фаилом для друшх пользователей сеги (только для сетевых приложении)
имя_фа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 для задания индексов записей используемого файла. Первоначально значениям массива последовательно присваиваются значения от 1 до 5 (индекс записи совпадает с ее реальным номером’в файле). Далее вводятся значения двух номеров записей для их перестановки, записи Private Sub Commandl_Click()
Nzapisi = 1
Nzapisil = 1
Open “TestFile” For Random Access Read Write As #10 Len = 70
Text 1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text7.Enabled—True
Textl.SetFocus
Commandl.Enabled = False End Sub
Private Sub Command2_Click() Dim Peremen As Primer Textl.Text = “” Text2.Text = “” Text3.Text = “” Text4.Text = “” If Nzapisil < Nzapisi Then Get #10, Nzapisil, Peremen Textl.Text = Peremen.Familia Text2.Text = Peremen.Dolgnost Text3.Text = Peremen.Podrazdeienie Text4.Text = Peremen.Zarplata End If
Nzapisil = Nzapisil + 1 End Sub
Private Sub Command3_Click()
Textl.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text == “”
Text5.Enabled = True
Text6.Enabled = True
Text5.Text = “”
Text6.Text = “”
Text5.SetFocus End Sub
Private Sub Command4_Clicki’ Dim Peremen As Primer
Dim Zaprosi As String * 20, Zapros2 As String * 20, Sum As Single
Dim Pri As Integer, Pr2 As Integer, Kol As integer, Rez As Single
Pri = -1: Pr2 = -1: Nzapisil = 1: Kol = 0: Sum = 0
Zaprosi = Text5.Text: Zapros2 = Text6.Text Do While Nzapisil < Nzapisi Get #10, Nzapisil, Peremen If Peremen.Podrazdeienie - Zaprosi Then Pri = 1 End If
If Peremen.Doignost = Zapros2 Then Pr2 - 1 End If
If Peremen.Podrazdeienie = Zdprosi And Peremen.Doignost = Zapros2 Then
Kol -= Kol + 1: Sum = Sum + Val(Peremen.Zarplata): Rez = Sum / Kol End If
Nzapisil = Nzapisil + 1 Loop If Pri < 0 Then
• • MsgBox “Такого подразделения нет” Text5.Text = “”: GoTo Finish6 End If If Pr2 < 0 Then MsgBox “Такой должности нет”
Text6.Text = “”: GoTo Finish6 End If
Text7.Text = Str$(Rez) Command5.Enabled =- True Finish6:
End Sub
Private Sub Cun-iniand5_Ciick ()
Cl?Qse„#10
Kill “TeS-tFile”
End End Sub
.Private Sub Form_Load() ' Commandl.Enabled = True Command2.Enabled - False Command3.Enabled = False Command4.Enabled a False Хотя можно указать запись длиной 1 байт, компьютер на самом деле прочитает в буфер памяти один или более секторов. Когда программа читает данные из дискового файла, она читает их из буфера. Когда прочитывается весь буфер, компьютер читает в этот буфер следующие несколько секторов из файла. Аналогично данные записываются в дисковый файл: сначала они записываются в буфер памяти, а когда он заполняется, то записываются на диск.
Предположим, что размер дискового сектора 512 байтов, а длина записи файла 260 байтов. При такой длине записи большинство записей файла будут расположены в двух секторах (например, запись 2 использует байты с 261 по 512 первого сектора и с 1 по 8 байт второго сектора) и для чтения с диска такой записи потребуется прочесть два сектора. Использование вместо 260-байтных записей 256-байтных обеспечивает упаковку в один дисковый сектор двух полных записей и позволяет для ввода одной записи читать только один сектор.