VB.NET 操作16进制文件

最新推荐文章于 2021-08-24 22:41:29 发布

weixin_30326515

最新推荐文章于 2021-08-24 22:41:29 发布

阅读量494

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/jmpep/archive/2013/05/20/4486294.html

本文介绍了一个使用Visual Basic .NET从二进制文件中读取特定数据的例子。通过使用System.IO命名空间下的FileStream和BinaryReader类，演示了如何逐项读取文件头中的各个字段。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

' 用到System.IO.Stream类

Imports System.IO          '导入引用类
 
        Dim fs As FileStream
        Dim br As BinaryReader
        fs = New FileStream(“1.dat”, FileMode.Open, FileAccess.Read)
        br = New BinaryReader(fs)
        Dim sw As StreamWriter
        sw = New StreamWriter(“1.txt”)
 
        Dim header_ID As Char() = br.ReadChars(10)                  '10 bytes
        Dim header_card_type As Short = br.ReadInt16                '2 bytes
        Dim header_num_of_channel As Short = br.ReadInt16           '2 bytes
        Dim header_channel_no As Byte = br.ReadByte                 '1 bytes
        Dim header_num_of_scan As Long = br.ReadUInt32              '4 bytes
        Dim header_data_width As Short = br.ReadInt16               '2 bytes
        Dim header_channel_order As Short = br.ReadInt16            '2 bytes
        Dim header_ad_range As Short = br.ReadInt16                 '2 bytes
        Dim header_ad_rate As Double = br.ReadDouble                '8 bytes
        Dim header_num_of_channel_range As Short = br.ReadInt16     '2 bytes
        Dim header_start_data As Char() = br.ReadChars(8)           '8 bytes
        Dim header_start_time As Char() = br.ReadChars(8)           '8 bytes
        Dim header_start_millisec As Char() = br.ReadChars(3)       '3 bytes
        Dim header_reserved As Char() = br.ReadChars(6)             '6 bytes
         
        sw.Write(vbCrLf)
         
        sw.Close()
        fs.Close()
        br.Close()