Board logo

标题: [问题求助] VBS把一个文本里的指定字符串替换成另一个文本里的所有内容 [打印本页]
作者: qingfengzhixia1    时间: 2008-11-6 23:15     标题: VBS把一个文本里的指定字符串替换成另一个文本里的所有内容

本帖最后由 pcl_test 于 2016-10-3 23:57 编辑

VBS把整个文本内容替换指定字符
chaptermodel.txt
<HTML>
<HEAD>
<!--小说下载阅读器样式-->
<TITLE>[[title]]</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet" type="text/css">
<script src="../head.js" type="text/javascript"></script>
……
        <TD width="4%">&nbsp;</TD>
        <TD width="92%" class="thetd" id="contenttd"><DIV style="WIDTH: 100%; HEIGHT: 132px" align="left"><span id="content">
          <!--BookContent Start-->
          [[Content]]
          <!--BookContent End-->
        </span></DIV></TD>
        <TD width="4%">&nbsp;</TD>
      </tr>
……
  </TR></TBODY></TABLE>
</DIV>
</BODY>
</HTML>



我想把2.txt文件的内容与chaptermodel.txt
中          [[Content]]相替换.

我对VBS不懂,忘路过的大侠能解决一下,谢谢了!
作者: zqz0012005    时间: 2008-11-6 23:46

  1. Set fso = CreateObject("Scripting.FileSystemObject")

  2. fso.OpenTextFile("chaptermodel.htm",2,true).Write Replace(fso.OpenTextFile("chaptermodel.txt").ReadAll, "[[Content]]", fso.OpenTextFile("2.txt").ReadAll)
复制代码
作者: lixiaodaoaaa    时间: 2008-11-7 14:19     标题: 好一个vbs

又一个vbs ，代码没有看懂多少，汗。。
作者: Batcher    时间: 2008-11-7 20:44     标题: 回复 3楼 的帖子

参考教程：Windows 脚本技术
http://bbs.bathome.net/thread-1985-1-1.html



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2