现在有两个文件：一个文本文件，一个数据文件。

文本文件（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

恳求各位大大给段程序。

不是直接读进来就往数据文件里写的，必须将字符转换为16进制数，否则写入的还是asc字符。

谢谢xzlxzlxzl版主，
求具体写法。

同求各位路过的大大看看，帮忙告知这段程序怎么写，谢谢！

1、你的2号文件关闭位置有问题，应该在循环外
2、打开2号文件路径不对，缺少个\
参看下面程序
Private Sub Command1_Click()
  Dim temp1, tmp2
  Dim i
  Open App.Path & "\temp2.txt" For Input As #1
  Open App.Path & "\001.OB3635A-HSA002-1" For Binary As #2
  i = LOF(2)'取得2号字节
  Do While Not EOF(1)
    Line Input #1, temp1
    tmp2 = Split(temp1, " ")
    Put #2, i + 1, tmp2 '控制2号文件写入位置
    i = i + 3
  Loop
  Close #1
  Close #2
  MsgBox ("完成数据写入")
End Sub

[此贴子已经被作者于2018-4-3 09:30编辑过]

你好，我也需要做跟您类似的功能，要把TXT里的16进制数据(即FLASH要存储的数据)保存为BIN文件，不懂怎么写？
请问你解决了这个问题没,可以共享一下不？