
CODE: [Copy to clipboard]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
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |