16,553
社区成员
发帖
与我相关
我的任务
分享
Private Sub TestReg()
Dim strData As String
Dim reg As Object
Dim matchs As Object, match As Object
strData = "<div class=""mod_interact_main"">
<div class=""mudule_comment_cont"">
<a href=""http://qz.qq.com/51062169/home""> ?? </a>
<time datetime=""1??"">1??</time>
<a href=""javascript:;"" id=""2_link_reply_1268192440_1"" class=""link_reply"" onclick=""QOM.FP.showCommentBox('1268192440_1',2);return false;"">??</a>
<a href=""javascript:;"" id=""2_link_hide_1268192440_1"" class=""link_reply none"" onclick=""QOM.FP.hideCommentBox();return false;"">????</a>
</div>
<div class=""mudule_comment_detail""> ???????????? </div>
<ol class=""sub_comment "" id=""2_sub_comment_1268192440_1"">
<li class=""mod_interact"">
<div class=""mod_interact_avatar""><span class=""avatar_round""></span><img src=""http://qlogo2.store.qq.com/qzone/51062169/51062169/30"" alt=""pic"" /></div>
<div class=""mod_interact_main"">
<div class=""mudule_comment_cont"">
<a href=""http://qz.qq.com/51062169/home""> ?? </a>
<time datetime=""1??"">?? 1??</time>
</div>
<div class=""mudule_comment_detail""> ?????
</div>
</div>
</li>
<li class=""mod_interact"">
<div class=""mod_interact_avatar""><span class=""avatar_round""></span><img src=""http://qlogo1.store.qq.com/qzone/405797768/405797768/30"" alt=""pic"" /></div>
<div class=""mod_interact_main"">
<div class=""mudule_comment_cont"">
<a href=""http://qz.qq.com/405797768/home""> ?? </a>
<time datetime=""1??"">?? 1??</time>
</div>
<div class=""mudule_comment_detail""> ??????,?????,????<img src=""http://qzs.qq.com/qzone/em/e181.gif""/> </div>
</div>
</li>
<li class=""mod_interact"">
<div class=""mod_interact_avatar""><span class=""avatar_round""></span><img src=""http://qlogo2.store.qq.com/qzone/59991021/59991021/30"" alt=""pic"" /></div>
<div class=""mod_interact_main"">
<div class=""mudule_comment_cont"">
<a href=""http://qz.qq.com/59991021/home""> ?Jay_??? </a>
<time datetime=""05?01? 02:24"">05?01? 02:24</time>
<a href=""javascript:;"" id=""2_link_reply_1268192440_3"" class=""link_reply"" onclick=""QOM.FP.showCommentBox('1268192440_3',2);return false;"">??</a>
<a href=""javascript:;"" id=""2_link_hide_1268192440_3"" class=""link_reply none"" onclick=""QOM.FP.hideCommentBox();return false;"">????</a>
</div>
<div class=""mudule_comment_detail""> ?????????:(404)???
????
????? </div>
<ol class=""sub_comment "" id=""2_sub_comment_1268192440_3"">
<li class=""mod_interact"">
<div class=""mod_interact_avatar""><span class=""avatar_round""></span><img src=""http://qlogo1.store.qq.com/qzone/405797768/405797768/30"" alt=""pic"" /></div>
<div class=""mod_interact_main"">
<div class=""mudule_comment_cont"">
<a href=""http://qz.qq.com/405797768/home""> ?? </a>
<time datetime=""06?07? 20:22"">?? 06?07? 20:22</time>
</div>
<div class=""mudule_comment_detail""> ?????????,???????????????~ </div>
</div>
</li>
</ol>
<li class=""mod_interact"">
<div class=""mod_interact_avatar""><span class=""avatar_round""></span><img src=""http://qlogo2.store.qq.com/qzone/59991021/59991021/30"" alt=""pic"" /></div>
<div class=""mod_interact_main"">
<div class=""mudule_comment_cont"">
<a href=""http://qz.qq.com/59991021/home""> ?Jay_??? </a>
<time datetime=""06?07? 21:11"">06?07? 21:11</time>
<a href=""javascript:;"" id=""2_link_reply_1268192440_6"" class=""link_reply"" onclick=""QOM.FP.showCommentBox('1268192440_6',2);return false;"">??</a>
<a href=""javascript:;"" id=""2_link_hide_1268192440_6"" class=""link_reply none"" onclick=""QOM.FP.hideCommentBox();return false;"">????</a>
</div>
<div class=""mudule_comment_detail""> ?????????http://dl.dbank.com/c0ttdot198
??? </div>
<ol class=""sub_comment "" id=""2_sub_comment_1268192440_6"">
<li class=""mod_interact"">
<div class=""mod_interact_avatar""><span class=""avatar_round""></span><img src=""http://qlogo1.store.qq.com/qzone/405797768/405797768/30"" alt=""pic"" /></div>
<div class=""mod_interact_main"">
<div class=""mudule_comment_cont"">
<a href=""http://qz.qq.com/405797768/home""> ?? </a>
<time datetime=""06?08? 10:15"">?? 06?08? 10:15</time>
</div>
<div class=""mudule_comment_detail""> ??http://www.sbys.org.cn??????~ </div>
</div>
</li>
<li class=""mod_interact"">
<div class=""mod_interact_avatar""><span class=""avatar_round""></span><img src=""http://qlogo2.store.qq.com/qzone/59991021/59991021/30"" alt=""pic"" /></div>
<div class=""mod_interact_main"">
<div class=""mudule_comment_cont"">
<a href=""http://qz.qq.com/59991021/home""> ?Jay_??? </a>
<time datetime=""06?08? 10:34"">?? 06?08? 10:34</time>
</div>
<div class=""mudule_comment_detail""> ??????????????????????? </div>
</div>
</li>
<li class=""mod_interact"">
<div class=""mod_interact_avatar""><span class=""avatar_round""></span><img src=""http://qlogo2.store.qq.com/qzone/59991021/59991021/30"" alt=""pic"" /></div>
<div class=""mod_interact_main"">
<div class=""mudule_comment_cont"">
<a href=""http://qz.qq.com/59991021/home""> ?Jay_??? </a>
<time datetime=""06?08? 16:11"">?? 06?08? 16:11</time>
</div>
<div class=""mudule_comment_detail""> ??? ????????? </div>
</div>
</li>
<li class=""mod_interact"">
<div class=""mod_interact_avatar""><span class=""avatar_round""></span><img src=""http://qlogo1.store.qq.com/qzone/405797768/405797768/30"" alt=""pic"" /></div>
<div class=""mod_interact_main"">
<div class=""mudule_comment_cont"">
<a href=""http://qz.qq.com/405797768/home""> ?? </a>
<time datetime=""06?09? 09:45"">?? 06?09? 09:45</time>
</div>
<div class=""mudule_comment_detail""> ?????QQ?~ </div>
</div>
</li>
</ol>
<li class=""mod_interact"">
<div class=""mod_interact_avatar""><span class=""avatar_round""></span><img src=""http://qlogo1.store.qq.com/qzone/94028028/94028028/30"" alt=""pic"" /></div>
<div class=""mod_interact_main"">
<div class=""mudule_comment_cont"">
<a href=""http://qz.qq.com/94028028/home""> min'er </a>
<time datetime=""07?07? 13:40"">07?07? 13:40</time>
<a href=""javascript:;"" id=""2_link_reply_1268192440_10"" class=""link_reply"" onclick=""QOM.FP.showCommentBox('1268192440_10',2);return false;"">??</a>
<a href=""javascript:;"" id=""2_link_hide_1268192440_10"" class=""link_reply none"" onclick=""QOM.FP.hideCommentBox();return false;"">????</a>
</div>
<div class=""mudule_comment_detail""> <img src=""/qzone/em/e106.gif"">???,????????????????? </div>
<ol class=""sub_comment "" id=""2_sub_comment_1268192440_10"">
<li class=""mod_interact"">
<div class=""mod_interact_avatar""><span class=""avatar_round""></span><img src=""http://qlogo1.store.qq.com/qzone/405797768/405797768/30"" alt=""pic"" /></div>
<div class=""mod_interact_main"">
<div class=""mudule_comment_cont"">
<a href=""http://qz.qq.com/405797768/home""> ?? </a>
<time datetime=""07?08? 11:15"">?? 07?08? 11:15</time>
</div>
<div class=""mudule_comment_detail""> ?,?????,???<img src=""http://qzs.qq.com/qzone/em/e181.gif""/> </div>
</div>
</li>
</div>
</div>"
Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.IgnoreCase = True
reg.MultiLine = True
reg.Pattern = "(?is)(?<=mudule_comment_cont).*(?=<div class=""mod_interact_main"">)"
Set matchs = reg.Execute(strData)
For Each match In matchs
'Debug.Print match.Value
Debug.Print match.SubMatches(0)
Next
End Sub