怎样将文本中的16进制数据写入另一个16进制文件
现在有两个文件:一个文本文件,一个数据文件。文本文件(temp.txt)里的内容如下:
02 6D 00 00
02 6D 00 00
02 6D 00 00
02 6D 00 00
02 6D 00 00
02 6D 00 00
02 6D 00 00
.
.
.
.
.
.
数据文件(001.OB3635A-HSA002-1)里的内容为十六进制数据,
现在想把文本文件里的内容(已是16进制数据)逐条添加到数据文件最后,不知道这段程序怎么写。
我学着写文本文件方式写了一段,运行后好像不对,数据文件(001.OB3635A-HSA002-1)尾部并没有增加文本文件(temp2.txt)里的内容。
程序代码:
Private Sub Command2_Click() Dim tmp2 Open Dir1.Path & "\temp2.txt" For Input As #1 Do While Not EOF(1) Line Input #1, temp1 tmp2 = Split(temp1, " ") Open Dir1.Path & "001.OB3635A-HSA002-1" For Binary As #2 Put #2, , tmp2(0) Put #2, , tmp2(1) Put #2, , tmp2(2) Put #2, , tmp2(3) Close #2 Loop Close #1 End Sub
恳求各位大大给段程序。
文本文件和数据文件.rar
(13.9 KB)