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

[CORBA]

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

[Vitaly1]

'файл надо объявить как как двоичный
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


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

[Mikle]

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

Код: Выделить всё

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, если где-то ошибся - проверить не на чем.