Байты

[Stas]

У меня такая проблема:
мне надо из файла *.* прочитать бит с десятичным адресом 34 (в HEX это 22) так чтобы в переменную read1 было занесено шеснадцатиричное значение этого бита, а потом значение string переменной write1 мне надо записать в этот бит. Помогите пожалуйста. Зарание спасибо

[GSerg]

Так бит или байт???

[corgi]

шеснадцатиричное значение этого бита

сильно сказано бит это ведь 0 или 1
ps тебе просто нужно считать 5-ый байт и сделать так cint(mybyte/2) если значение четное то у тебя 0 если нечетное то 1

[skiperski]

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

Option Explicit

Public Function test()
   
    Dim iFF As Long
    Dim read1 As Byte
    Dim write1 As String
   
    write1 = "q"
   
    iFF = FreeFile()
    Open "d:\1\test.txt" For Binary As #iFF
    Get #iFF, 34, read1
    Put #iFF, 34, write1
    Close #iFF
   
    Debug.Print Chr$(read1), Hex$(read1), read1
   
End Function

[Stas]

Это я не правильно написал не бит а байт.

Спасибо за код.

Но есть ещё проблема если я пишу после Get IFF,34,read1
MsgBox read1 то выдается пустота, хотя этот байт содержит код символа D. И ещё если я записую после всех Dim`ов write1 = 0F то функция put ничего не записывает.

[OutSider]

если я записую после всех Dim`ов write1 = 0F то функция put ничего не записывает.

Если ты хочешь записать во write1 шестнадцатиричное значение 0F, то надо писать write1=&h0F&, а если строку - то write1="0F".

[Stas]

Спасибо всем теперь всё работает.