VB怎样从文件的x字节开始读取，读y个字节

2025-02-28 04:03:04

推荐回答（1个）

回答1：

Private Sub Form_Click()
Dim b() As Byte, x As Integer, y As Integer, i As Integer
x = 10 '从第10个字节开始读取
y = 20 '总共读取20个字节
ReDim b(1 To y) '声明一个20个元素的字节数组
Open "d:\tmp\123.exe" For Binary As #1 '以二进制方式打开文件
Get #1, x, b  '从指定位置读取数据到数组b中
Close #1
For i = 1 To y  '把数组b中的数据以16进制的方式显示出来
    Print Right("0" & Hex(b(i)), 2) & " "; '不足两位数的补0
    If i Mod 5 = 0 Then Print '每显示5个就换行
Next
End Sub