【求一个简单的【正则表达式】】稍微会点正则表达式的请来帮个忙
<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 m As Match = Regex.Match(yourStr,"(?s)selectCategory\('([^']+)','([^']+).+?selectBlog\(([^()]+).+?<span[^""]+""([^""]+)")m.Groups(1).Valuem.Groups(2).Valuem.Groups(3).Valuem.Groups(4).Value