如何读出一个文件夹下面（包括子文件夹）的所有html文件的<title></title>之间的内容？

Question

如题。

Answer 1

set fso=createobject("scripting.filesystemobject")
set fsofolder=fso.getfolder(文件夹路径")
for each item in fsofolder.files
set thecontent=fso.openTextFile(item,1)
do while not thecontent.AtEndOfStream
str=str & thecontent.readline
loop
theposstart=instrb("<title>")
theposend=instrb("</title>")
thetitle=midb(str,theposstart+14,theposend-theposstart)--------------(这个是你想要的内容你想要如何怎么处理随你了
next
set fso=nothing

Answer 2

谢谢你，兔子大哥，每次都这么热心。有个问题，为什么这两句在vb里面是红的？
theposstart = instrb("<title>")
theposend = instrb("</title>")

Answer 3

InStr([start, ]string1, string2[, compare])
theposstart = instrb(str,"<title>")
theposend = instrb(str,"</title>")我语法错了,没注意,哈PS;因为你这些问题,正好是偶强项*^_^*