Рейтинг блогов

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

дата добавления: 01 июня 2003 / 21:17, просмотров: 9586, комментариев: 1
Еще одна старая "статейка" на тему работы с файлами в Visual Basic 6.0. Статейка получилась не лучше чем первая, но что поделаешь, это вроде как история :)

В прошлый раз я рассказывал о работе с текстовыми файлами средствами Visual Basic ("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".

Комментарии (всего: 1)

Добавить комментарий rss
Автор: Прог @ 11 апреля 2008, 11:58   ·   ссылка
Спосибо ребята, помогло....

Добавить комментарий

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учётная запись на этом сайте, пройдите процудуру авторизации.
В противном случае, зарегистрируйтесь на сайте.