资料下载
HEX转BIN的小软件(附源程序代码)
分享资料个
HEX转BIN的小软件(附源程序代码) :在项目开发过程中，有时候软件编译生成的HEX文件会比较大，这样的话就得考虑存储空间比较大的控制器，那样会增加成本，BIN文件相比HEX文件来说会小很多，所以有这样一个转化软件还是很不错的，呵呵。
给大家发一个HEX文件转BIN文件的软件，希望对大家有用。用VB6.0编写的。
同时附上源码，有兴趣的朋友可以自己写来试试。
在此感谢软件的原创者yy945提供源码，由于是在论坛找到的，也没法知道作者真名，所以得更加感谢，呵呵。
源码如下：
Private Sub CmdChange_Click()
Dim temp As String
Dim Path As String
Dim DatAddress As Integer
Dim DatNum As Integer
Dim i As Integer
Dim Buf As String
Dim HexBuf As Byte
Path = Text1.Text
If Path = "" Then
MsgBox "请选择源文件路径！", vbInformation + vbOKOnly, "提示"
Exit Sub
End If
Path = Text2.Text
If Path = "" Then
MsgBox "请选择目标文件存储路径！", vbInformation + vbOKOnly, "提示"
Exit Sub
End If
If Dir(Path) <> "" Then
Kill "down.bin"
End If
Open Text1.Text For Input As #1
Open Path For Binary As #2
Do
Line Input #1, temp
DatNum = CLng("&h" & Mid(temp, 2, 2))
DatAddress = CLng("&h" & Mid(temp, 4, 4)) + 1
For i = 10 To Len(temp) - 2 Step 2
Buf = Mid(temp, i, 2)
HexBuf = CLng("&h" & Buf)
Put #2, DatAddress, HexBuf
DatAddress = DatAddress + 1
Next
Loop Until EOF(1)
Close #1
Close #2
MsgBox "转换完成！", vbInformation + vbOKOnly, "提示"
End Sub
声明：本文内容及配图由入驻作者撰写或者入驻合作网站授权转载。文章观点仅代表作者本人，不代表电子发烧友网立场。文章及其配图仅供工程师学习之用，如有内容侵权或者其他违规问题，请联系本站处理。 举报投诉
-
tpengti
2011-09-28
0 回复 举报请求加为好友QQ：605498389 收起回复
- 相关下载
- 相关文章
