module1.vb

来自「Visual.Basic.NET实用编程百例-47.6M.zip」· VB 代码 · 共 36 行

Imports System.IO '添加对System.IO命名空间的引用

Module Module1
    Sub WriteData() '写入二进制数据
        Dim FileS As FileStream
        FileS = New FileStream("e:\fangwen.txt", FileMode.OpenOrCreate)
        Dim BW As BinaryWriter = New BinaryWriter(FileS)
        Dim i As Integer
        For i = 1 To 15
            BW.Write(i)
        Next
        BW.Seek(0, SeekOrigin.Begin)
        BW.Close()
        FileS.Close()
    End Sub

    Sub ReadData() '读取二进制数据
        Dim FileS As FileStream
        FileS = New FileStream("e:\fangwen.txt", FileMode.OpenOrCreate)
        Dim BR As BinaryReader = New BinaryReader(FileS)
        BR.BaseStream.Seek(0, SeekOrigin.Begin)
        Dim i As Integer
        For i = 1 To 15
            Console.WriteLine(CStr(BR.ReadInt32()))
        Next
        BR.Close()
        FileS.Close()
    End Sub

    Sub Main()
        WriteData()
        ReadData()
        Console.Read()
    End Sub
End Module