如何批量修改txt文件的内容？

wcg129

有一大批txt数据，由于疏忽把其中的一项内容写错了，现在需要改，其中的一项
数据如下
检测时间:：2009/05/22-08:31:09
检测项目:：Hbc
浓度单位:：mg/l
试剂批号:：9050701
检测人员:：admin
参考范围:：00.00-00.00
检测结果:：6.27(↑)  


需要修改2个地方：
1、去掉各行中的:，因为多了一个
2、浓度单位:：mg/l 改成 g/l
最好分成2个程序来完成，因为要处理的有部分不一样，谢谢！

90507010001.rar (237 Bytes, 下载次数: 117)

2011-10-8 16:22 上传

点击文件名下载附件

changxuegu

用查找替换，将:：替换为:
将mg/l替换为g/l

wcg129

changxuegu 发表于 2011-10-8 16:47
用查找替换，将:：替换为:
将mg/l替换为g/l

多谢兄弟热心回答

这只能实现单个文件的替换，可是我好多这样的文件，这个方法不大实用

tonychris

dim tmp as string
dim file as string

file=dir(thisworkbook.path + "\*.txt")
do while file<>""
  open thisworkbook.path + "\" + file for binary as #1
    tmp=string(lof(1), vbnullchar)
    get #1, , tmp
    tmp=replace(tmp, ":：", "")
    tmp=replace(tmp, "mg/l", "g/l")
  close #1
  open thisworkbook.path + "\" + file for output as #1
    print #1, tmp
  close #1
  file=dir
loop

代码没测试，泡泡看吧

wcg129

tonychris 发表于 2011-10-8 17:01
dim tmp as string
dim file as string

多谢兄弟
不知道这代码怎么用？
是复制到文本文档后修改成.bat？
这样子好像不行，能否指点一下，多谢！

wcg129

a814153 发表于 2011-10-8 17:31
把下面的“如何批量修改txt文件的内容.xls” 文件放到“大批txt”的目录下，然后打开下面的“如何批量修改t ...

多谢楼上兄弟，太牛了
祝你们好人好运！

wcg129

a814153 发表于 2011-10-8 17:31
把下面的“如何批量修改txt文件的内容.xls” 文件放到“大批txt”的目录下，然后打开下面的“如何批量修改t ...

非常感谢兄弟的热心帮忙，不知能否帮我再修改下，使能够同时修改一个文件夹下的多个子文件夹的所有txt文档？

wcg129

多谢a814153 多次热心帮忙！