'=================================================================
set arg=WScript.Arguments
if arg.count=0 then
msgbox "Usage:"&vbcrlf&vbcrlf&" 不要直接运行这个脚本,把需要进行字符串替换的一个或多个文件拖曳到这个脚本文件上来就可以了。"
wscript.quit
end if
set fso=wscript.createobject("scripting.filesystemobject")
set fr=fso.opentextfile(arg(0),1)
set fw=fso.createtextfile("temp.txt",2)
data=inputbox("请输入在行前添加的字符:")
do
fw.writeline(data&fr.readline)
loop until fr.atendofstream
fr.close
fw.close
set fr=fso.opentextfile("temp.txt",1)
set fw=fso.createtextfile(arg(0),2)
do
fw.writeline(fr.readline)
loop until fr.atendofstream
fr.close
fw.close
fso.deletefile("temp.txt")
'====================================================
复制以上内容保存为vbs文件,把你的想要修改的文档拖到此vbs文件,你就可以输入要添加的字符了,输入完毕确认即可,打开你的文档,你会发现你的每一行前都添加了你刚才输入的数据。 |