中国DOS联盟

a.txt 里有 :

aaaaa
aaaaa

2行字符

用 VBS 如何将 "a" 替换成 "1"
再写进 b.txt ?


我这样写却不行,应该怎么写?

set fso=CreateObject("Scripting.FileSystemObject")

set file=fso.Opentextfile("a.txt")

set fileN=fso.Createtextfile("b.txt")

str=file.readall

a=len(str)

for i=1 to a

a=mid(str,i,1)

if a = "a" then

fileN.write "1"

fileN.close

else

fileN.write a

fileN.close

end if

next

script56.chm 搜索 replace

谢谢,刚接触 VBS 都不知道有 replace 方法.
不过之前是搜索过的 "替换字符" ,没有搜到.呵呵!

set fso=CreateObject("Scripting.FileSystemObject")
set file=fso.Opentextfile("a.txt")
set fileN=fso.Createtextfile("b.txt")
str=file.readall
strN=replace(str,"a","1")
fileN.write strN
fileN.close

dim q,optxt,crtxt,rdtxt,a
set q=createobject("scripting.filesystemobject")
set optxt=q.opentextfile("a.txt")
set crtxt=q.createtextfile("b.txt")
rdtxt=optxt.readall
a=replace(rdtxt,"a","1")

crtxt.write a