回复 1楼果兒的帖子text = Lib.网络.获得网页源文件("http://bbs.anjian.com/forum.php?mod=forumdisplay&fid=250") '获取网页源文件
Dim regEx, Matches, Match '需要用到的几个变量
set regEx = New RegExp '创建一个RegExp对象
regEx.[Global] = TRUE '设置全局可用性为TRUE，在需要更换此属性时，我会提醒你的。
regEx.IgnoreCase = FALSE '设置区分大小写为FALSE，也就是不区分大小写了
regEx.pattern ="<a href=""(thr.+html).+>(.+)</a>" '设置正则表达式
Set matches = regEx.execute(text) '进行匹配
For Each Match In Matches
TracePrint Match.SubMatches(0)'输出帖子链接
TracePrint Match.SubMatches(1)'输出帖子标题
Next
我按照你的这个代码，我自已弄了一个，但是提取出来的不是我想要的内容！你能帮我看看吗？
text = "今1天天气不错，今2天天气不错，今3天天气不错"
Dim regEx, Matches, Match '需要用到的几个变量
set regEx = New RegExp '创建一个RegExp对象
regEx.[Global] = TRUE '设置全局可用性为TRUE，在需要更换此属性时，我会提醒你的。
regEx.IgnoreCase = FALSE '设置区分大小写为FALSE，也就是不区分大小写了
regEx.pattern ="今(.+)气" '设置正则表达式
Set matches = regEx.execute(text)'进行匹配
For Each Match In Matches
TracePrint Match.SubMatches(0)'输出正则的子匹配内容
next
您的脚本在调试过程中，产生了下列调试信息：
脚本 11111111.Q ，第43行：1天天气不错，今2天天气不错，今3天天
我想要的，应当是输出 1天天 2天天 3天天
怎么变成上面的那么多，
闽公网安备 35010002000112号