| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
大量收QQ微信精准粉/交友粉,非诚勿扰千里之行 始于足下
共有 737 人关注过本帖
标题:怎样将文本中的16进制数据写入另一个16进制文件
只看楼主 加入收藏
ictest
Rank: 2
等 级:论坛游民
帖 子:225
专家分:77
注 册:2010-2-17
结帖率:75%
  已结贴   问题点数:10  回复次数:5   
怎样将文本中的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


恳求各位大大给段程序。

附件: 您没有浏览附件的权限,请 登录注册
2018-04-02 14:22
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
  得分:2 
不是直接读进来就往数据文件里写的,必须将字符转换为16进制数,否则写入的还是asc字符。
2018-04-02 20:00
ictest
Rank: 2
等 级:论坛游民
帖 子:225
专家分:77
注 册:2010-2-17
  得分:0 
谢谢xzlxzlxzl版主,
求具体写法。
2018-04-02 21:40
ictest
Rank: 2
等 级:论坛游民
帖 子:225
专家分:77
注 册:2010-2-17
  得分:0 
同求各位路过的大大看看,帮忙告知这段程序怎么写,谢谢!
2018-04-03 08:13
wds1
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:24
帖 子:255
专家分:1401
注 册:2016-3-10
  得分:8 
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编辑过]

2018-04-03 09:28
alexwugaopei
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2018-7-20
  得分:0 
回复 楼主 ictest
你好,我也需要做跟您类似的功能,要把TXT里的16进制数据(即FLASH要存储的数据)保存为BIN文件,不懂怎么写?
请问你解决了这个问题没,可以共享一下不?
2018-07-23 13:22







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023296 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved