使用vb写一个hex file转bin file程序

以下是使用VB语言编写的Hex File转Bin File程序：

Sub HexFileToBinFile(ByVal HexFilePath As String, ByVal BinFilePath As String)
    Dim HexFileNum As Integer
    Dim BinFileNum As Integer
    Dim HexLine As String
    Dim HexData As String
    Dim BinData As String
    Dim DataLen As Integer
    Dim i As Integer
    
    ' 打开Hex文件
    HexFileNum = FreeFile()
    Open HexFilePath For Input As #HexFileNum
    
    ' 打开Bin文件
    BinFileNum = FreeFile()
    Open BinFilePath For Output As #BinFileNum
    
    ' 逐行读取Hex文件
    Do While Not EOF(HexFileNum)
        Line Input #HexFileNum, HexLine
        If Left(HexLine, 1) = ":" Then ' 判断是否是Hex文件的数据行
            ' 解析Hex文件的数据
            DataLen = Val("&H" & Mid(HexLine, 2, 2)) ' 数据长度
            HexData = Mid(HexLine, 9, DataLen * 2) ' 数据部分
            ' 将Hex数据转换为Bin数据
            BinData = ""
            For i = 1 To Len(HexData) Step 2
                BinData = BinData & Chr(Val("&H" & Mid(HexData, i, 2)))
            Next i
            ' 写入Bin文件
            Put #BinFileNum, , BinData
        End If
    Loop
    
    ' 关闭文件
    Close HexFileNum
    Close BinFileNum
End Sub

使用方法：

Dim HexFilePath As String
Dim BinFilePath As String
' 输入Hex文件路径和Bin文件路径
HexFilePath = "C:\test.hex"
BinFilePath = "C:\test.bin"
' 调用函数转换文件格式
HexFileToBinFile HexFilePath, BinFilePath
' 显示结果
MsgBox "转换完成！"