网页代码替换问题。

爱家的小懒虫

1. .版本 2
   
2. .支持库 RegEx
   
3. .支持库 iconv
   
4. .支持库 internet
   
5. .支持库 spec
   
6. .支持库 iext
   
7. 
   
8. .程序集 窗口程序集1
   
9. 
   
10. .子程序 _按钮1_被单击
    
11. .局部变量 文本, 文本型
    
12. .局部变量 正则, 正则表达式
    
13. .局部变量 搜索结果, 搜索结果, , "0"
    
14. .局部变量 i, 整数型
    
15. .局部变量 j, 整数型
    
16. 
    
17. 文本 ＝ 到文本 (编码转换 (HTTP读文件 (“http://www.sodu.org/mulu_118785.html”), #编码_UTF_8, #编码_GB2312, ))
    
18. 调试输出 (文本)
    
19. 文本 ＝ 子文本替换 (文本, “ ”, “”, , , 真)
    
20. 正则.创建 (“）([^<]*?)<”, )
    
21. 文本 ＝ 正则.替换 (文本, “）<”, 1, , 真, 真)
    
22. 正则.创建 (“target=_blank>([^<]+)</a>.*?class=tl>([^<]+)</a>.*?class=xt>([0-9-]+)</tr>”, )
    
23. 搜索结果 ＝ 正则.搜索全部 (文本)
    
24. 超级列表框1.全部删除 ()
    
25. .计次循环首 (取数组成员数 (搜索结果), i)
    
26.     超级列表框1.插入表项 (, , , , , )
    
27.     超级列表框1.置标题 (i － 1, 0, 搜索结果 [i].取子匹配文本 (文本, 2, ))
    
28.     超级列表框1.置标题 (i － 1, 1, 删首尾空 (搜索结果 [i].取子匹配文本 (文本, 1, )))
    
29.     超级列表框1.置标题 (i － 1, 2, 搜索结果 [i].取子匹配文本 (文本, 3, ))
    
30.     处理事件 ()
    
31. .计次循环尾 ()
    
32. 信息框 (“读取完毕!”, 0, )
    

复制代码

这样好了.

爱家的小懒虫

175242808

爱家的小懒虫 发表于 2011-12-26 23:28

呵呵，一看你就是高手中的高手。
根据你的代码我学习到了一些见解。
已经解决好了，虽然不是你的办法，但也解决了问题。
现在继续投身下一个问题当中。
我忽然发现，写代码的日子过的真快。
一低头一抬头一上午过去了。