求助：获取html中的<A>标签怎么写正则啊

doonlee

各位老大好，想获取html中的<a>标签中的内容，怎么写vba正则呀，还请各位指教

html中形式如下：
<ul>
<li><a href="s?q=%E5%A6%82%E4%BD%95%E5%BC%80%E7%94%B5%E5%95%86%E7%BD%91%E5%BA%97&by=relative">如何开电商网店</a></li>
<li><a href="s?q=%E8%B7%A8%E5%A2%83%E7%94%B5%E5%95%86%E7%BD%91%E5%BA%97&by=relative">跨境电商网店</a></li>
<li><a href="s?q=%E9%87%8D%E5%BA%86%E5%A7%90%E5%A6%B9%E8%8A%B1%E7%94%B5%E5%95%86%E7%BD%91%E5%BA%97&by=relative">重庆姐妹花电商网店</a></li>
<li><a href="s?q=%E7%BD%91%E5%BA%97%E7%94%B5%E5%95%86&by=relative">网店电商</a></li>
<li><a href="s?q=%E7%BD%91%E5%BA%97%E5%92%8C%E7%94%B5%E5%95%86%E5%8C%BA%E5%88%AB&by=relative">网店和电商区别</a></li>
<li><a href="s?q=%E7%94%B5%E5%95%86%E5%92%8C%E7%BD%91%E5%BA%97%E7%9A%84%E5%8C%BA%E5%88%AB&by=relative">电商和网店的区别</a></li>
</ul>


多谢各位啦

doonlee

请各位老大帮帮忙，小弟再次感谢了

doonlee

sz_wap 发表于 2015-1-7 11:31
提取显示的内容？
.Pattern = "[^>]+(?=\

我发的这部分源码是从整个源码中截取出来的
在正则中要剔除其他部分后，获取 <a>标签的文字部分

还请老大帮帮忙了，多谢了

sz_wap

doonlee 发表于 2015-1-7 11:05
请各位老大帮帮忙，小弟再次感谢了

提取显示的内容？
.Pattern = "[^>]+(?=\</a)"

doonlee

我发的这部分源码是从整个源码中截取出来的
首先要剔除其他部分，剩下这部分，然后就不知道怎么获取了   <a>标签的文字部分了

还请老大帮帮忙了，多谢了

sz_wap

doonlee 发表于 2015-1-7 11:44
我发的这部分源码是从整个源码中截取出来的
首先要剔除其他部分，剩下这部分，然后就不知道怎么获取了   ...

这个Pattern就是提取“如何开电商网店”等内容

doonlee

[quote]sz_wap 发表于 2015-1-7 11:50 www.ecpai.net</div></div><div class="article ali_row"><h2><a href="http://www.iecnews.com/">电商报_看<em>电商</em>_中国电子商务权威媒体</a></h2><p><em>电</em>商报是<em>电</em>商人必上的网站，业内最权威的电子商务媒体和电子商务专业研究机构,关注并24小时播报B2B、B2C、...</p><div class="other">www.iecnews.com</div></div><div class="article ali_row"><h2><a href="http://m.1688.com/touch/wiki/detail/docId-37391476.html"><em>电商</em>是什么意思-阿里巴巴生意经<img src="http://cdn.s.aliyun.com/L1/272/6837/static/wap/img/icon_mobile_min.png" alt="手机版" class="fit_mobile" /></a></h2><p>...<em>电商</em>就是电子商务就是通过互联网进行商业来往，类似网购之类的，比如淘宝。只不过这一类的是属于电子商务中...</p><div class="other">m.1688.com</div></div><div class="article ali_row"><h2><a href="http://ec.iresearch.cn/">电子商务_电子商务专业研究平台—艾瑞网</a></h2><p>在综合性<em>电商</em>格局已定的态势下，垂直类<em>电商</em>依靠在各自细分领域的精耕细作，保持了良好的增长势头。...</p><div class="other">ec.iresearch.cn</div></div><div class="pager"><a href="s?q=%E7%94%B5%E5%95%86&page=2&by=next" class="next">下一页></a></div><div class="ali_rel"><h2>相关搜索:</h2><ul><li><a href="s?q=%E7%94%B5%E5%95%86%E6%8E%92%E5%90%8D&by=relative">电商排名</a></li><li><a href="s?q=%E7%94%B5%E5%95%86%E6%98%AF%E4%BB%80%E4%B9%88&by=relative">电商是什么</a></li><li><a href="s?q=%E7%94%B5%E5%95%86%E8%BF%90%E8%90%A5&by=relative">电商运营</a></li><li><a href="s?q=%E7%94%B5%E5%95%86%E6%A8%A1%E5%BC%8F&by=relative">电商模式</a></li><li><a href="s?q=%E4%B8%87%E8%BE%BE%E7%94%B5%E5%95%86&by=relative">万达电商</a></li><li><a href="s?q=%E8%B7%A8%E5%A2%83%E7%94%B5%E5%95%86&by=relative">跨境电商</a></li></ul></div><img show="force" src='http://log.s.sm.cn/0.gif?v=100002&cid=7&c=757b4acf1acb19a319d4e38b2b6de9e8|||1418811719&l=2&q=%E7%94%B5%E5%95%86&pt=web&cp=result&ip=111.202.30.178&id=C00001&pg=1&bd=&hid=8538b2e9ba82ff4091bbcc5fe759848e&qt=1420602682&sc=baike:1;wenda_juhe:3;news:5&sc_ds=&sc_stype=&from=&_t=1168538963' width="0" height="0" /><div class="search_bar_1"><form accept-charset="utf-8" action="s" method="get"><input type="text" name="q" maxlength="60" size="18" autocomplete="off" value="电商" /><input class="search_btn" type="submit" value="搜索" /><input type="hidden" name="by" value="submit" /></form></div><div class='to'><a href="/">搜索首页</a><br /></div></body></html>



利用正则获取标红的html中的<a>标签中的文字，

doonlee

doonlee 发表于 2015-1-7 11:52
[quote]sz_wap 发表于 2015-1-7 11:50 www.ecpai.net电商报_看电商_中国电子商务权威媒体电商报是电商人必上 ...

受到了你写的启发，改成 .Pattern = "[^>]+(?=\</a></li)"，搞定了，多谢了

sz_wap

这是根据你的提问，提取字符串中<a>...</a>之间的文字（未考虑文字中包含>字符的情况）

至于如何先截取红色部分，是另外的问题

1. Sub test()
   
2. 
   
3. str0 = "[quote]sz_wap 发表于 2015-1-7 11:50 www.ecpai.net</div></div><div class=article ali_row><h2><a href=http://www.iecnews.com/>电商报_看<em>电商</em>_中国电子商务权威媒体</a></h2><p><em>电</em>商报是<em>电</em>商人必上的网站，业内最权威的电子商务媒体和电子商务专业研究机构,关注并24小时播报B2B、B2C、...</p><div class=other>www.iecnews.com</div></div><div class=article ali_row><h2><a href=http://m.1688.com/touch/wiki/detail/docId-37391476.html><em>电商</em>是什么意思-阿里巴巴生意经<img src=http://cdn.s.aliyun.com/L1/272/6837/static/wap/img/icon_mobile_min.png alt=手机版 class=fit_mobile /></a></h2><p>...<em>电商</em>就是电子商务就是通过互联网进行商业来往，类似网购之类的，比如淘宝。只不过这一类的是属于电子商务中...</p><div class=other>m.1688.com</div></div><div class=article ali_row><h2><a href=http://ec.iresearch.cn/>电子商务_电子商务专业研究平台—艾瑞网</a></h2><p>在综合性<em>电商</em>格局已定的态势下，垂直类<em>电商</em>依靠在各自细分领域的精耕细作，保持了良好的增长势头。...</p><div class="
   
4. str0 = str0 & "other>ec.iresearch.cn</div></div><div class=pager><a href=s?q=%E7%94%B5%E5%95%86&page=2&by=next class=next>下一页></a></div><div class=ali_rel><h2>相关搜索:</h2><ul><li><a href=s?q=%E7%94%B5%E5%95%86%E6%8E%92%E5%90%8D&by=relative>电商排名</a></li><li><a href=s?q=%E7%94%B5%E5%95%86%E6%98%AF%E4%BB%80%E4%B9%88&by=relative>电商是什么</a></li><li><a href=s?q=%E7%94%B5%E5%95%86%E8%BF%90%E8%90%A5&by=relative>电商运营</a></li><li><a href=s?q=%E7%94%B5%E5%95%86%E6%A8%A1%E5%BC%8F&by=relative>电商模式</a></li><li><a href=s?q=%E4%B8%87%E8%BE%BE%E7%94%B5%E5%95%86&by=relative>万达电商</a></li><li><a href=s?q=%E8%B7%A8%E5%A2%83%E7%94%B5%E5%95%86&by=relative>跨境电商</a></li></ul></div><img show=force src='http://log.s.sm.cn/0.gif?v=100002&cid=7&c=757b4acf1acb19a319d4e38b2b6de9e8|||1418811719&l=2&q=%E7%94%B5%E5%95%86&pt=web&cp=result&ip=111.202.30.178&id=C00001&pg=1&bd=&hid=8538b2e9ba82ff4091bbcc5fe759848e&qt=1420602682&sc=baike:1;wenda_juhe:3;news:5&sc_ds=&sc_stype=&from=&_t=1168538963' width=0 hei"
   
5. str0 = str0 & "ght=0 /><div class=search_bar_1><form accept-charset=utf-8 action=s method=get><input type=text name=q maxlength=60 size=18 autocomplete=off value=电商 /><input class=search_btn type=submit value=搜索 /><input type=hidden name=by value=submit /></form></div><div class='to'><a href=/>搜索首页</a><br /></div></body></html>"
   
6. 
   
7. Set regExp = CreateObject("VBScript.RegExp")
   
8. regExp.Pattern = "[^>]+(?=\</a)"
   
9. regExp.Global = True
   
10. 
    
11. Set a = regExp.Execute(str0)
    
12. If a.Count > 0 Then
    
13.    For Each b In a
    
14.        MsgBox b.Value
    
15.    Next
    
16. End If
    
17. 
    
18. End Sub

复制代码