Question

VBS 循环替换多个文本中的字符

请问如何使用VBS 实现替换多个文本文件中的某一字符？
使用循环语句吗？
请各位VB 高手给予解答，谢谢！
谢谢二位的回答，二楼的朋友，我有多个文本文件，您的方法只能替换一个呀 ！

Answer 1

支持拖放功能 你只要把整个文件夹拖放到这个vbs文件上就可以了 他会自动识别txt格式的文件并修改

For Each a In WScript.Arguments
w=w&a
Next

set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(w)
set files=folder.files
for each file in files
d=File.name
s = Instr(1, d, "txt")
if s <>0 then
scan(file)
end if
next

function scan(file)
set fso=createobject("scripting.filesystemobject")
set fil=fso.opentextfile(file)
s=fil.readall
fil.close
set fi=fso.opentextfile(file,2)
s=Replace(s,"你要替换的字符","你要替换成的字符")
fi.write s
fi.close
end function

Answer 2

只有一个办法。把你要替换的文本文件加载到内存中(变量中)，用 replace 函数执行普通的字符串替换操作！至于用不用循环就要看你是怎么加载文件内容，一般是要用到循环的!没循环可能程序就显得很呆板!