dim q,optxt,crtxt,rdtxt,a
set q=createobject("scripting.filesystemobject")
set optxt=q.opentextfile("temp\my.txt")
set crtxt=q.createtextfile("b.txt")
rdtxt=optxt.readall
a=replace(rdtxt,"</a>","</a><br>")
a=replace(rdtxt," <a href=""," <a href="http://www.ttxiaoshuo.com/files/article/html/2/2745/")
crtxt.write a
<a href=" 替换成 <a href="http://www.ttxiaoshuo.com/files/article/html/2/2745/
欢迎光临 批处理之家 (http://bathome.net./) | Powered by Discuz! 7.2 |