如何在vb中打开hex文件,把里面的内容读入数组中
*.hex 文件就是通过单片机编译软件生成的,里面是16进制数
串口下载程序需要用这个程序
如何在vb中打开hex文件,把里面的内容读入数组中
答案:3 悬赏:40
解决时间 2021-04-21 10:07
- 提问者网友:夜微涼
- 2021-04-20 09:58
最佳答案
- 二级知识专家网友:瘾与深巷
- 2021-04-20 11:24
我这个就是 以16进制打开看的。
如果不是你要的就算了
用 16进制 打开?
下面代码 通过了。VB
需要 1个textbox, 设置Mulitline True
Private Sub Form_Load()
Dim fillen As Long
Dim Btmp As Byte
Open "c:\DiskCrc.txt" For Binary As #1
fillen = FileLen("c:\DiskCrc.txt")
For i = 1 To fillen
Get #1, , Btmp
If Len(Hex(Btmp)) = 1 Then
Text1.Text = Text1.Text & Hex(Btmp) & " "
Else
Text1.Text = Text1.Text & Hex(Btmp) & " "
End If
If i Mod 10 = 0 Then
Text1.Text = Text1.Text & vbCrLf
End If
Next i
End Sub
如果不是你要的就算了
用 16进制 打开?
下面代码 通过了。VB
需要 1个textbox, 设置Mulitline True
Private Sub Form_Load()
Dim fillen As Long
Dim Btmp As Byte
Open "c:\DiskCrc.txt" For Binary As #1
fillen = FileLen("c:\DiskCrc.txt")
For i = 1 To fillen
Get #1, , Btmp
If Len(Hex(Btmp)) = 1 Then
Text1.Text = Text1.Text & Hex(Btmp) & " "
Else
Text1.Text = Text1.Text & Hex(Btmp) & " "
End If
If i Mod 10 = 0 Then
Text1.Text = Text1.Text & vbCrLf
End If
Next i
End Sub
全部回答
- 1楼网友:花一样艳美的陌生人
- 2021-04-20 12:48
open "文件路径.hex" for input as #3
input #3,
close #3
哈哈,最近看了文件基础
- 2楼网友:一池湖水
- 2021-04-20 12:19
你好!
Hex文件,你是指16进制字符串形式?
打字不易,采纳哦!
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯