如何使用VBS查找、替换文本文件中的字符

小强

我想把TEST.TXT中的AAA换成BBB或删除所有的AAA该怎么写?

youxi01

用replace即可

具体的思路：先用for读取文件全部内容，然后用replace替换相关内容。
具体代码自己去尝试着写了...

lygwdyanzi

replace
不是批处理的吗？

youxi01

呵呵，难道只准批处理有，vbs就不能有？
批处理有for，vbs也有for呢

小强

谢谢,已经搞定了.机器中毒了,所有的网页都被加了一句病毒代码,所以才想写这个

sonic_andy

可以使用filestream的readall方法读取所有的内容。

1. set fso = createobject("scripting.filesystemobject")
   
2. 
   
3. ' 读取文件
   
4. set stream = fso.opentextfile("test.txt",1)
   
5. content = stream.readall()
   
6. call stream.close()
   
7. 
   
8. ' 替换字符串
   
9. content = replace(content,"AAA","BBB")
   
10. 
    
11. ' 保存文件
    
12. set stream = fso.opentextfile("test.txt",2)
    
13. call stream.write(content)
    
14. call stream.close()

复制代码

[ 本帖最后由 sonic_andy 于 2008-2-9 11:19 编辑 ]

pinghbyt

回复6楼。代码替换汉字时常出错