求个正则表达式

mjzxlmg

1. <p><ul style="min-height:150px;">
   
2.       <table border="0" cellpadding="0" cellspacing="0" class="article" align="center">
   
3. <tr>
   
4.     <td class="ardot"><img src="/images/point.gif"></td>
   
5.     <td class="arlisttd"><a class="artitlelist" href="/article/sj/tjbz/a/2016/" target="_blank">2016年中华人民共和国行政区划代码</a></td>
   
6.     <td class="timedefault">2016-04-28</td>
   
7.   </tr>
   
8.   <tr>
   
9.     <td class="ardot"><img src="/images/point.gif"></td>
   
10.     <td class="arlisttd"><a class="artitlelist" href="/article/sj/tjbz/a/2015/" target="_blank">2015年中华人民共和国行政区划代码</a></td>
    
11.     <td class="timedefault">2015-05-05</td>
    
12.   </tr>
    
13.   <tr>
    
14.     <td class="ardot"><img src="/images/point.gif"></td>
    
15.     <td class="arlisttd"><a class="artitlelist" href="/article/sj/tjbz/a/index0831.shtml" target="_blank">2014-1980年中华人民共和国行政区划代码</a></td>
    
16.     <td class="timedefault">2015-05-05</td>
    
17.   </tr></p><p></table>
    
18.         </ul></p>

复制代码

从以上网页源代码中提取出：
1、字符串：2016年中华人民共和国行政区划代码
2、相应的链接："/article/sj/tjbz/a/2016/"
3、字符串：2015年中华人民共和国行政区划代码
4、相应的链接："/article/sj/tjbz/a/2015/"
5、字符串：2014-1980年中华人民共和国行政区划代码
6、相应的链接："/article/sj/tjbz/a/index0831.shtml“

CC例例

>>>>>>>供参考：

mjzxlmg

CC例例 发表于 2016-10-25 16:00
>>>>>>>供参考：

谢谢，很好用，真是好人呀。
请修改表达式，使之也能适应下面链接的提取：

1. "</script><table border=""0"" cellpadding=""0"" cellspacing=""0"" class=""article"" align=""center""><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201610/20161000002091.shtml"" target=""_blank"" title=""2016年8月中华人民共和国县以下行政区划变更情况"">2016年8月中华人民共和国县以下行政区划变更情况</a></td><td class=""timedefault"">2016-09-28</td></tr><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201610/20161000002090.shtml"" target=""_blank"" title=""2016年8月中华人民共和国县以上行政区划代码"">2016年8月中华人民共和国县以上行政区划代码</a></td><td class=""timedefault"">2016-09-28</td></tr><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201610/20161000002086.shtml"" target=""_blank"" title=""2016年7月中华人民共和国县以下行政区划变更情况"">2016年7月中华人民共和国县以下行政区划变更情况</a></td><td class=""timedefault"">2016-08-24</td></tr><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201610/20161000002085.shtml"" target=""_blank"" title=""2016年7月中华人民共和国县以上行政区划代码"">2016年7月中华人民共和国县以上行政区划代码</a></td><td class=""timedefault"">2016-08-24</td></tr><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201610/20161000002084.shtml"" target=""_blank"" title=""2016年6月中华人民共和国县以下行政区划变更情况"">2016年6月中华人民共和国县以下行政区划变更情况</a></td><td class=""timedefault"">2016-07-28</td></tr><tr><td colspan=""10"" class=""listline""></td></tr><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201610/20161000002083.shtml"" target=""_blank"" title=""2016年6月中华人民共和国县以上行政区划代码"">2016年6月中华人民共和国县以上行政区划代码</a></td><td class=""timedefault"">2016-07-28</td></tr><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201606/20160600000964.shtml"" target=""_blank"" title=""2016年5月中华人民共和国县以上行政区划代码"">2016年5月中华人民共和国县以上行政区划代码</a></td><td class=""timedefault"">2016-06-28</td></tr><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201606/20160600000960.shtml"" target=""_blank"" title=""2016年5月中华人民共和国县以下行政区划变更情况"">2016年5月中华人民共和国县以下行政区划变更情况</a></td><td class=""timedefault"">2016-06-28</td></tr><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201606/20160600000740.shtml"" target=""_blank"" title=""2016年4月中华人民共和国县以下行政区划变更情况"">2016年4月中华人民共和国县以下行政区划变更情况</a></td><td class=""timedefault"">2016-06-03</td></tr><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201606/20160600000739.shtml"" target=""_blank"" title=""2016年4月中华人民共和国县以上行政区划代码"">2016年4月中华人民共和国县以上行政区划代码</a></td><td class=""timedefault"">2016-06-03</td></tr><tr><td colspan=""10"" class=""listline""></td></tr><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201604/20160400000095.shtml"" target=""_blank"" title=""2016年3月县以上行政区划代码"">2016年3月县以上行政区划代码</a></td><td class=""timedefault"">2016-04-28</td></tr><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201604/20160400000094.shtml"" target=""_blank"" title=""2016年3月县以下区划变更情况"">2016年3月县以下区划变更情况</a></td><td class=""timedefault"">2016-04-28</td></tr><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201603/20160300881525.shtml"" target=""_blank"" title=""2016年2月中国县以下行政区划变更情况"">2016年2月中国县以下行政区划变更情况</a></td><td class=""timedefault"">2016-03-21</td></tr><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201603/20160300881524.shtml"" target=""_blank"" title=""2016年2月中国县以上行政区划代码"">2016年2月中国县以上行政区划代码</a></td><td class=""timedefault"">2016-03-21</td></tr><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201603/20160300881354.shtml"" target=""_blank"" title=""2016年1月中国县以下行政区划变更情况"">2016年1月中国县以下行政区划变更情况</a></td><td class=""timedefault"">2016-03-16</td></tr><tr><td colspan=""10"" class=""listline""></td></tr><tr><td class=""ardot""><img src=""/images/point.gif""></td><td class=""arlisttd""><a class=""artitlelist"" href=""/article/sj/tjbz/a/2016/201603/20160300881353.shtml"" target=""_blank"" title=""2016年1月中国县以上行政区划代码"">2016年1月中国县以上行政区划代码</a></td><td class=""timedefault"">2016-03-16</td></tr></table>"

复制代码

mjzxlmg

帖子要沉了？

liu-aguang

这是网页表格文本, 最好直接用网页解析方法.

mjzxlmg

liu-aguang 发表于 2016-10-26 09:42
这是网页表格文本, 最好直接用网页解析方法.

不会用正则，程序需要这样做，我想把文本和链接加入字典中选择调用。

CC例例

mjzxlmg 发表于 2016-10-26 10:44
不会用正则，程序需要这样做，我想把文本和链接加入字典中选择调用。

1. Sub testname()
   
2.     Dim reg, mh, k, s$
   
3.     s = [a1]
   
4.     [a1].CurrentRegion.Offset(1).Clear
   
5.     Set reg = CreateObject("vbscript.regexp")
   
6.     reg.Pattern = "href=""""(.*?)"""".*?>(.*?)<"
   
7.     reg.Global = True
   
8.     Set mh = reg.Execute(s)
   
9.     For Each k In mh
   
10.         [a65536].End(3).Offset(1) = k.SubMatches(0)
    
11.         [a65536].End(3).Offset(1) = k.SubMatches(1)
    
12.     Next
    
13. End Sub

复制代码

CC例例

>>>>>>>>>>>>>

mjzxlmg

CC例例 发表于 2016-10-26 11:37
>>>>>>>>>>>>>

真是高手呀，谢谢谢谢，就是这样的效果

brianlong

(/article.*?(?=""\starget))|(\d{4}.{2,3}[一-龢]+(?=\W))