7,765
社区成员
发帖
与我相关
我的任务
分享VB的批量替换问题，请大虾们帮忙解决，追加！在线等
比如 我在/web文件夹里生成了很多htm格式的网页 但是文件的名都不一样 sdd.htm jj3.htm a3rf.htm 这样 请问如何批量的将这些内容替换呢？求代码！
...全文
请发表友善的回复…
发表回复
嗷嗷叫的老马 2007-09-11
- 打赏
- 举报
.........半夜三更静静飘过~~~
jackey 2007-09-10
- 打赏
- 举报
你有幫助文件?
看一下幫助就好了,關與文件系統的
看一下幫助就好了,關與文件系統的
qq32cn 2007-09-10
- 打赏
- 举报
dir 如何实现？
嗷嗷叫的老马 2007-09-10
- 打赏
- 举报
很简单
先DIR()函数得到所有文件名(如果有子目录,要组成递归结构)
然后读入文件内容,改标题,再写入;
内容读入:
open filename for binary as #1
x=space(lof(1))
get 1,,x
close #1
X里就是内容
然后就是找标题.
可以用很多办法,比如正则,搜索字符串等.
这个简单,就直接搜索字符串吧.
思路:
先取得标题文本,然后用新的标题文本进行替换.
strStart=instr(1,x,"<title>",vbtextcompare) '找到标题位置
strEnd=instr(strStart,x,"</title>",vbtextcompare)
strTitle1=mid(x,strStart,strEnd-strStart+len("</title>")+1) '取出标题文本
strTitle2="<title>我要改标题呀~~~~~~</title>"
y=Replace(x,strTitle1,strTitle2,1,1,vbtextcompare)
Y里面就是你要的了
然后直接写回文件:
kill filename '先删除原文件
open filename for binary as #1
put 1,,y
close #1
差不多了,没测试过,自己调试一下吧......
先DIR()函数得到所有文件名(如果有子目录,要组成递归结构)
然后读入文件内容,改标题,再写入;
内容读入:
open filename for binary as #1
x=space(lof(1))
get 1,,x
close #1
X里就是内容
然后就是找标题.
可以用很多办法,比如正则,搜索字符串等.
这个简单,就直接搜索字符串吧.
思路:
先取得标题文本,然后用新的标题文本进行替换.
strStart=instr(1,x,"<title>",vbtextcompare) '找到标题位置
strEnd=instr(strStart,x,"</title>",vbtextcompare)
strTitle1=mid(x,strStart,strEnd-strStart+len("</title>")+1) '取出标题文本
strTitle2="<title>我要改标题呀~~~~~~</title>"
y=Replace(x,strTitle1,strTitle2,1,1,vbtextcompare)
Y里面就是你要的了
然后直接写回文件:
kill filename '先删除原文件
open filename for binary as #1
put 1,,y
close #1
差不多了,没测试过,自己调试一下吧......
qq32cn 2007-09-09
- 打赏
- 举报
（附加说明）网页的内容基本是一样的， 只是标题需要替换 请求帮助
