正则提取指定的数据！

程序开发推广

蟋蟀

1. .版本 2
   
2. .支持库 RegEx
   
3. .支持库 internet
   
4. .支持库 iconv
   
5. .支持库 spec
   
6. .支持库 iext
   
7. 
   
8. .子程序 _超级列表框1_表头被单击
   
9. .参数 被单击列索引, 整数型
   
10. .局部变量 返回数据, 字节集
    
11. .局部变量 返回文本, 文本型
    
12. .局部变量 正则, 正则表达式
    
13. .局部变量 结果, 搜索结果, , "0"
    
14. .局部变量 i, 整数型
    
15. .局部变量 j, 整数型
    
16. 
    
17. 返回数据 ＝ HTTP读文件 (“http://vote.tianjihr.com/Best2012/CorpList.aspx?k=&trade=0&page=1”)
    
18. 返回文本 ＝ 到文本 (编码转换 (返回数据, #编码_UTF_8, #编码_GB18030, ))
    
19. 调试输出 (返回文本)
    
20. 正则.创建 (“<li>[\s\S]*?=(\d+)\x22>([\s\S]*?)</a></h3>[\s\S]*?<p title=\x22([\s\S]*?)</p>[\s\S]*?<span><b>(\d+)</b>票</span>[\s\S]*?<b>(\d+)</b>名</span>[\s\S]*?</li>”, )
    
21. 结果 ＝ 正则.搜索全部 (返回文本)
    
22. .计次循环首 (取数组成员数 (结果), i)
    
23.     超级列表框1.插入表项 (, , , , , )
    
24.     .计次循环首 (正则.取子表达式个数 (), j)
    
25.         超级列表框1.置标题 (i － 1, j － 1, 结果 [i].取子匹配文本 (返回文本, j, ))
    
26.     .计次循环尾 ()
    
27. .计次循环尾 ()
    

复制代码

我要找个女友

ugvnui

真的很简单。。。语法：

1. vId=\d+.>(.*?)</a>[\s\S]*?<span><b>(.*?)<\/b>票<\/span>[\s\S]*?<span><b>(.*?)<\/b>名<\/span>

复制代码

蟋蟀

1. <li>
   
2.                                         <div class="corp-info">
   
3.                                                 <h3><a target="_blank" href="CorpView.aspx\?vId=(\d+)">([\s\S]*?)</a></h3>
   
4.                                                 <a target="_blank" href="CorpView.aspx\?vId=\d+"> <img src="[\s\S]*?" border="0" /></a>
   
5.                                                 <p title="([\s\S]*?)</p>
   
6.                                         </div>
   
7.                                         <div class="corp-vote">
   
8.                                                 <span><b>(\d+)</b>票</span>
   
9.                                                 <span><b>(\d+)</b>名</span>
   
10.                                                 <a  href="CountOperation.aspx\?id=\d+" class="corp-btn">投 票</a>
    
11.                                         </div>
    
12.                                 </li>

复制代码

E族x鬼才

容易```````不过刚好，俺上班时间到，没法做

╰习惯清晨

.......会的路过....

程序开发推广

我的沙发！