VB - работа
с файлами 2
В прошлый раз я рассказывал о работе с текстовыми файлами средствами
Visual Basic (ver.
05'2003 "VB
- работа с файлами"), я продолжу эту тему, но на этот раз
речь пойдет о бинарных файлах.
Теория
Доступ к бинарным файлам, в отличии от текстовых, происходит к
отдельному байту в нутрии любого файла.
Прежде чем начать работу с бинарным файлом, его надо открыть, делается
это при помощи оператора Open:
Open ("имя_файла") For
Binary As #Номер_файла
Считывание данных из бинарного файла производится оператором Get:
Get #Номер_файла, Байт, Переменная
Запись данных в бинарный файл производится оператором Put:
Put #Номер_файла, Байт, Переменная
Практика
Для примера создадим на диске C:\ новый файл
mybf.txt, в который занесем данные из переменной usr:
Dim MyFile
Dim usr As String
usr = "Hello!"
MyFile = FreeFile
Open ("C:\mybf.txt") For
Binary As #MyFile
После выполнения этого кода на диске C:\
должен появится файл mybf.txt, открым
который вы увидите строку "Hello!".
Теперь, давайте, в операторе Put изменим 1
на 10:
Dim MyFile
Dim usr As String
usr = "Hello!"
MyFile = FreeFile
Open ("C:\mybf.txt") For
Binary As #MyFile
Put #MyFile, 10, usr
Close #MyFile
После этого, открыв файл mybf.txt,
вы увидите нечто вроде этого "Щ Ђ Ё Hello!".
Как вы видите, слово "Hello!"
начинается с 10 символа, а поскольку
в файле было 0 символов, то автоматически
были добавлены еще символы в начале файла.
А теперь, давайте, из файла mybf.txt
занесем 12 байт в переменную usr:
Dim MyFile
Dim usr As String
* 1
MyFile = FreeFile
Open ("C:\mybf.txt") For
Binary As #MyFile
Get #MyFile, 12, usr
Close #MyFile
MsgBox usr
После выполнения этого кода, должно появится сообщение "l".
Как вы видите, в коде, после объявления типа переменной usr стоит
"*1", это значит, что переменная
usr может иметь только один символ, попробуйте 1
изменить на 3, и в сообщение уже будет
не "l", а "llo".
Автор статьи: Немиро Алексей
|