Запись в файл побитно!!!

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
CORBA
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 179
Зарегистрирован: 22.11.2003 (Сб) 13:41
Откуда: Ukraine-Crimea-Feodosia

Запись в файл побитно!!!

Сообщение CORBA » 22.11.2003 (Сб) 13:44

Помогите советом как организовать запись в файл по-битно :?:

Vitaly1
Брехман
Брехман
 
Сообщения: 1578
Зарегистрирован: 30.12.2002 (Пн) 16:35
Откуда: Russia, Mosсow

Сообщение Vitaly1 » 22.11.2003 (Сб) 15:57

'файл надо объявить как как двоичный
Open "Имя" For Binary Access Write As #1

n=0
k=0
.
.
.
.
'Копишь биты в байтовую переменную
n=n+бит*2^k
if k=7 then
'запись очередного байта
Put #1, ,N
n=0
k=0
end if



'в конце программы
if k<>0 then
'запись последнего байта
Put #1, ,N
end if


ну вот примерно так :wink:

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 4159
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Сообщение Mikle » 23.11.2003 (Вс) 11:45

Или для доступа к произвольному биту:

Код: Выделить всё
sub PutBit (nf as integer, adrByte as long, adrBit as integer, Value as boolean)
dim d as byte
  get#nf,adrByte,d
  if Value then
    d=d or 2^adrBit
  else
    d=d and (255 xor 2^adrBit)
  end if
  put#nf,adrByte,d
end sub


Sorry, если где-то ошибся - проверить не на чем.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9

    TopList