HEX轉(zhuǎn)BIN的小軟件(附源程序代碼) :在項(xiàng)目開(kāi)發(fā)過(guò)程中，有時(shí)候軟件編譯生成的HEX文件會(huì)比較大，這樣的話就得考慮存儲(chǔ)空間比較大的控制器，那樣會(huì)增加成本，BIN文件相比HEX文件來(lái)說(shuō)會(huì)小很多，所以有這樣一個(gè)轉(zhuǎn)化軟件還是很不錯(cuò)的，呵呵。

給大家發(fā)一個(gè)HEX文件轉(zhuǎn)BIN文件的軟件，希望對(duì)大家有用。用VB6.0編寫(xiě)的。

??????? 同時(shí)附上源碼，有興趣的朋友可以自己寫(xiě)來(lái)試試。

??????? 在此感謝軟件的原創(chuàng)者yy945提供源碼，由于是在論壇找到的，也沒(méi)法知道作者真名，所以得更加感謝，呵呵。

源碼如下：

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 "請(qǐng)選擇源文件路徑！", vbInformation + vbOKOnly, "提示"
??? Exit Sub
End If

Path = Text2.Text
If Path = "" Then
??? MsgBox "請(qǐng)選擇目標(biāo)文件存儲(chǔ)路徑！", 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 "轉(zhuǎn)換完成！", vbInformation + vbOKOnly, "提示"
End Sub