Private Sub Coriurtandl_Click ()

Text3.SetFocus Open “Filel” For Output As #5

Text3.Text = “” End Sub

Private Sub Command2_Click() Dim Filedata, Filedatal As String Dim NPoz, NProbel As Integer Close #5 Open “Filel” For Input As tt5 Open “File2” For Out-put As #6 Do While Not EOF(5) Line Input #5, Filedata Filedatal = “” 1=1 Do While InStrfI, Filedata, “*”) > 0 NPoz = InStr(I, Filedata, “*”) Filedatal = Filedatal + Mid$(Filedata, 1, NPoz - I) NProbel = Val (Mid$ (Filedata, NPoz +1, 1); Fiiedatal = Filedatal + String$(NProbel, “ I .= NPoz + 2 Loop Filedatal = Filedatal + Mid$(Filedata, I) Write #6, Filedatal Loop Close #5 Close ft6 End Sub Private Sub Command3_Click() Dim Filedata As String Close #5 Text2.Text = “” Open “Filel” For Input As ft5 Do While Not EOF(5) 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 () содержит свой собственный номер: