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