VB.Net二進位檔

BinaryReader和BinaryWriter類用於讀取和寫入二進位檔。

BinaryReader類

BinaryReader類用於從檔中讀取二進位數據。BinaryReader對象是通過將FileStream對象傳遞給其構造函數來創建的。

下表顯示了BinaryReader類的一些常用方法。

BinaryWriter類

BinaryWriter類用於將二進位數據寫入流。BinaryWriter對象是通過將FileStream對象傳遞給它的構造函數來創建的。

下表顯示了BinaryWriter類的一些常用方法。

有關完整的方法列表，請訪問Microsoft的文檔。

示例

以下示例演示讀取和寫入二進位數據：

Imports System.IO
Module BinaryReadWrite
   Sub Main()
      Dim bw As BinaryWriter
      Dim br As BinaryReader
      Dim i As Integer = 25
      Dim d As Double = 3.14157
      Dim b As Boolean = True
      Dim s As String = "I am happy"
      'create the file '
      Try
          bw = New BinaryWriter(New FileStream("mydata", FileMode.Create))
      Catch e As IOException
          Console.WriteLine(e.Message + "\n Cannot create file.")
          Return
      End Try
      'writing into the file '
      Try
          bw.Write(i)
          bw.Write(d)
          bw.Write(b)
          bw.Write(s)
      Catch e As IOException
          Console.WriteLine(e.Message + "\n Cannot write to file.")
          Return
      End Try
      bw.Close()
      'reading from the file '
      Try
          br = New BinaryReader(New FileStream("mydata", FileMode.Open))
      Catch e As IOException
          Console.WriteLine(e.Message + "\n Cannot open file.")
          Return
      End Try
      Try
           i = br.ReadInt32()
          Console.WriteLine("Integer data: {0}", i)
          d = br.ReadDouble()
          Console.WriteLine("Double data: {0}", d)
          b = br.ReadBoolean()
          Console.WriteLine("Boolean data: {0}", b)
          s = br.ReadString()
          Console.WriteLine("String data: {0}", s)
      Catch e As IOException
          Console.WriteLine(e.Message + "\n Cannot read from file.")
          Return
      End Try
      br.Close()
      Console.ReadKey()
   End Sub
End Module

執行上面示例代碼，得到以下結果 -

F:\worksp\vb.net\filehandle>vbc BinaryReadWrite.vb
Microsoft (R) Visual Basic Compiler version 14.0.1038
for Visual Basic 2012
Copyright (c) Microsoft Corporation.  All rights reserved.
......
F:\worksp\vb.net\filehandle>BinaryReadWrite.exe
Integer data: 25
Double data: 3.14157
Boolean data: True
String data: I am happy