是否有可能使用VB.Net BinaryWriter从文件中存储/检索位数据？

Question

好吧，我需要从3.268.760位长的数据表中存储/检索一个位。

Using w As New BinaryWriter(File.Open("test.bin", FileMode.Create)) 
    for x = 1 to 3268760 
     For i = 1 To 3268760 
      w.Write(countBits(bitLikeness(u(i), u(x))) > 10) 
     Next 
    Next 
End Using 

的w.write(?)存储布尔值，这意味着0/1的假/真值，但Vb.net似乎使用全字节来存储这些数据这是我的表（3.268.760^2太贵）

有没有一种实用的方法来存储/检索使用vb.net文件的单个位？ （尽可能少地转换为其他类型）。

Answer 1

包装BinaryReader/Writer可能是您最好的选择。

Public Class BitWriter 

    Private ReadOnly mBinaryWriter As BinaryWriter 

    Private mBuffer As Integer 
    Private mBufferCount As Integer 

    Public Sub New(binaryWriter As BinaryWriter) 
     mBinaryWriter = binaryWriter 
    End Sub 

    Public Sub WriteBit(bit As Boolean) 

     If mBufferCount = 32 Then 

      mBinaryWriter.Write(mBuffer) 

      mBuffer = 0 
      mBufferCount = 0 

     End If 

     If bit Then mBuffer = mBuffer Or (1 << mBufferCount) 

     mBufferCount += 1 

    End Sub 

    Public Sub Flush() 

     mBinaryWriter.Write(mBuffer) 

     mBuffer = 0 
     mBufferCount = 0 

    End Sub 

End Class 

，并读取位背

Public Class BitReader 

    Private ReadOnly mBinaryReader As BinaryReader 

    Private mBuffer As Integer 
    Private mBufferCount As Integer 

    Public Sub New(binaryReader As BinaryReader) 
     mBinaryReader = binaryReader 
     mBuffer = -1 
    End Sub 

    Public Function ReadBit() As Boolean 

     If mBuffer = -1 OrElse mBufferCount = 8 Then 

      mBuffer = mBinaryReader.ReadInt32() 
      mBufferCount = 0 

     End If 

     Dim toReturn As Boolean = ((mBuffer >> mBufferCount) And 1) = 1 

     mBufferCount += 1 

     Return toReturn 

    End Function 

End Class