两个非常好用的添加字符串代码,分每行开头和每行结尾

一个是文本每一行开头添加,另一个是文本每一行结尾添加。适合大量快速添加。

这是每行开头添加字符串代码↓

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”)

这是每行结尾添加字符串代码↓

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(fr.readline&data)
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”)

我也是需要用时在网上找的,原本只有一个开头添加字符串代码,看过提示我把结尾添加的也写好,贴出来留记分享给大家。

分享到: 更多

发表评论

电子邮件地址不会被公开。 必填项已用*标注