VB6实现从指定偏移位置读取二进制字节并写入另一文件同位置的需求

核心实现思路 #

在VB6中处理二进制文件，需使用Open语句以Binary模式打开文件，通过Seek函数定位到目标偏移位置，再用Get读取指定字节，最后用Put将数据写入目标文件的对应偏移处。

完整代码示例 #

Option Explicit

Private Sub CopyBinaryBytes()
    Dim srcFilePath As String
    Dim destFilePath As String
    Dim fileNumSrc As Integer
    Dim fileNumDest As Integer
    Dim readBytes(3) As Byte ' 存储4字节数据（偏移0x3E到0x41共4个字节）
    Dim offsetStart As Long
    
    ' 替换为实际的文件路径
    srcFilePath = "C:\YourPath\A1.bin"
    destFilePath = "C:\YourPath\B1.bin"
    
    ' 十六进制偏移0x3E转换为十进制是62
    offsetStart = &H3E
    
    On Error GoTo ErrorHandler
    
    ' 打开源文件（二进制模式）
    fileNumSrc = FreeFile
    Open srcFilePath For Binary Access Read As #fileNumSrc
    
    ' 定位到起始偏移位置
    Seek #fileNumSrc, offsetStart
    
    ' 读取4字节数据到数组
    Get #fileNumSrc, , readBytes
    
    ' 关闭源文件
    Close #fileNumSrc
    
    ' 打开目标文件（二进制模式，允许读写）
    fileNumDest = FreeFile
    Open destFilePath For Binary Access Write As #fileNumDest
    
    ' 定位到相同偏移位置
    Seek #fileNumDest, offsetStart
    
    ' 将读取的字节写入目标文件
    Put #fileNumDest, , readBytes
    
    ' 关闭目标文件
    Close #fileNumDest
    
    MsgBox "字节复制完成！", vbInformation
    Exit Sub
    
ErrorHandler:
    MsgBox "操作出错：" & Err.Description, vbCritical
    ' 确保文件被关闭
    If fileNumSrc > 0 Then Close #fileNumSrc
    If fileNumDest > 0 Then Close #fileNumDest
End Sub

关键说明 #

• 偏移转换：题目中的十六进制偏移0000 003E对应十进制的62，0000 0041对应65，两者相差4个字节，因此定义了长度为4的字节数组（索引0到3）。
• 文件模式：使用Binary模式打开文件是VB6处理二进制数据的标准方式，支持任意位置的读写操作。
• 错误处理：加入了错误捕获机制，确保在出现异常时能关闭已打开的文件，避免资源泄漏。

内容的提问来源于stack exchange，提问作者Harsh Shah