HEX轉BIN的小軟件(附源程序代碼)

HEX轉BIN的小軟件(附源程序代碼) :在項目開發(fā)過程中，有時候軟件編譯生成的HEX文件會比較大，這樣的話就得考慮存儲空間比較大的控制器，那樣會增加成本，BIN文件相比HEX文件來說會小很多，所以有這樣一個轉化軟件還是很不錯的，呵呵。

給大家發(fā)一個HEX文件轉BIN文件的軟件，希望對大家有用。用VB6.0編寫的。

??????? 同時附上源碼，有興趣的朋友可以自己寫來試試。

??????? 在此感謝軟件的原創(chuàng)者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