Question

vba中,如何实现用代码替换某一文本文件中的指定字符串

如题，如何在vba中用代码实现替换某一文本文件中的指定字符串，如将D:\CESHI.TXT中的字符串“ceshi”替换成“chengong”

Answer 1

把文件整体读入一个字串stri
stri=replace(stri,"ceshi","chengong")
把stri保存回原文件。

追问

谢谢。希望提供个代码实例，正不知道如何读入和保存txt文件

追答

set fs=server.createobject("scripting.filesystemobject")
'file=server.mappath("qq.txt")
set txt=fs.opentextfile("D:\CESHI.TXT",1,false)
stri=txt.readall
txt.close
set txt=nothing
stri=replace(stri,"ceshi","chengong")

set txt=fs.opentextfile("D:\CESHI.TXT",2,true)
txt.write(stri)
txt.close
set txt=nothing
set fs=nothing