是否有可能使用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