本帖最后由 qq578023708 于 2011-3-21 08:28 编辑
部分代码:源码来自e语言官方网站- .版本 2
- .支持库 internet
- .支持库 RegEx
- .支持库 iext
- 网页源码 = 到文本 (HTTP读文件 (“http://list.mp3.baidu.com/list/newhits.html?id=1?top1”))
- 正则表达式.创建 (“<td class><a href=” + #引号 + “(.*?)” + #引号 + “ target=_blank>(.*?)</a>”, )
- 搜索结果 = 正则表达式.搜索全部 (网页源码)
- .如果 (取数组成员数 (搜索结果) > 0)
- .计次循环首 (取数组成员数 (搜索结果), i)
- n = 超级列表框1.插入表项 (, 到文本 (i), , , , )
- 临时文本变量 = 子文本替换 (搜索结果 [i].取子匹配文本 (网页源码, 2, ), “<b>”, , , , 真)
- 临时文本变量 = 子文本替换 (临时文本变量, “</b>”, , , , 真)
- 超级列表框1.置标题 (n, 1, 临时文本变量)
- 超级列表框1.置标题 (n, 2, 搜索结果 [i].取子匹配文本 (网页源码, 1, ))
- 处理事件 ()
- .计次循环尾 ()
- 取地址 ()
- .否则
- 信息框 (“未找到相关数据!”, 64, “提示”)
- .如果结束
复制代码 完整代码:
20100707085759471.rar
(9.86 KB, 下载次数: 20)
|