Перейти на главную страницу

ver. 06'2003

Intro

Кодинг

VB - работа с файлами 2

VB - работа с буфером обмена Windows

Computer

Настройка MS Outlook Express

Сказка о Windows, реестре и коварном юзере

Справочники

Типы данных VB 6.0

Users

Вопрос - Ответ

ё-Mail

Trash

Реклама

Словарь компьютерного жаргона

Полезные программы

Хемарой

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".

 

Автор статьи: Немиро Алексей

Production by Underground Workshop company || Copyright © Nemiro Alexey Spring-Summer'2003