16,554
社区成员
发帖
与我相关
我的任务
分享
<a class="unline" href="javascript:;" onclick="ListManager.selectCategory('其他精品','c6e4cbfbbeabc6b7');QZBlog.Util.Statistic.sendPV('classname_click', 'rizhi.qzone.qq.com');return false;" title="其他精品">其他精品</a>]
<a href="javascript:;" class="blog_link" onclick="ListManager.selectBlog(1294550455);return false;">
<span title="听说,七夕要到了、、 -- 发表于2011-01-09 13:20">
<em class="c_tx4">[顶]</em>
<span id="blogtitle_1294550455" >
听说,七夕要到了、、
</span>
</span>
<a class="unline" href="javascript:;" onclick="ListManager.selectCategory('文件共享','cec4bcfeb9b2cfed');QZBlog.Util.Statistic.sendPV('classname_click', 'rizhi.qzone.qq.com');return false;" title="文件共享">文件共享</a>]
<a href="javascript:;" class="blog_link" onclick="ListManager.selectBlog(1291613569);return false;">
<span title="C语言程序设计经典100例,会用到的 -- 发表于2010-12-06 13:29">
<em class="c_tx4">[顶]</em>
<span id="blogtitle_1291613569" >
C语言程序设计经典100例,会用到的
</span>
</span>
catchs = New Regex("<a(.*)selectCategory([.\n]*)selectBlog([.\n]*)</span>", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
mc = catchs.Matches(strHtml)
Dim mc As MatchCollection = Regex.Matches(yourStr,"(?<=<tr onMouseOver=this.style.backgroundColor='93FFFF' onMouseOut=this.style.backgroundColor='ffffff' height=""20"">((?!</tr)[\s\S])*?)((?!</tr)[^\r\n])+")
for each m in mc
'm.Value是你要的
next