|
楼主 |
发表于 2015-1-18 16:12:08
|
显示全部楼层
甘肃省兰州市
- .版本 2
- .支持库 EThread
- .支持库 spec
- .支持库 iext
- .程序集 窗口程序集_启动窗口
- .子程序 _按钮1_被单击
- 启动线程 (&子程序1, , )
- .子程序 子程序1
- .局部变量 正则, 正则表达式类
- .局部变量 文本, 文本型
- .局部变量 i, 整数型
- .局部变量 u, 整数型
- 文本 = 到文本 (网页_访问 (“http://read.qidian.com/BookReader/1931432.aspx”))
- 调试输出 (文本)
- 正则.创建 (#常量1, 文本)
- .计次循环首 (正则.取匹配数量 (), i)
- u = 超级列表框1.插入表项 (, , , , , )
- 超级列表框1.置标题 (u, 0, 正则.取子匹配文本 (i, 1))
- 超级列表框1.置标题 (u, 1, 正则.取子匹配文本 (i, 2))
- .计次循环尾 ()
- .子程序 _超级列表框1_被双击, 逻辑型
- .参数 横向位置, 整数型
- .参数 纵向位置, 整数型
- .参数 功能键状态, 整数型
- .局部变量 网页文本, 文本型
- .局部变量 正则, 正则表达式类
- .局部变量 r, 文本型
- .局部变量 文本, 文本型
- .局部变量 输出文本, 文本型
- 编辑框1.内容 = “”
- 网页文本 = 到文本 (网页_访问 (到文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 0))))
- 调试输出 (网页文本)
- 正则.创建 (“<script src='(.*?)'”, 网页文本)
- r = 正则.取子匹配文本 (1, 1)
- 文本 = 到文本 (网页_访问 (r))
- 输出文本 = 文本_替换 (文本, , 1, 假, “<p>”, #换行符, “document.write('”, “”)
- 编辑框1.加入文本 (输出文本)
复制代码
另外我用的是5.11版本的易语言 |
|