易语言资源搜索器源码

.版本 2
.支持库 RegEx
.支持库 internet
.支持库 iext

.子程序 获取源码子程序1
.参数 搜索参数, 文本型
.局部变量 源码, 文本型
.局部变量 初始源码, 字节集
.局部变量 lj, 逻辑型
.局部变量 正则, 正则表达式
.局部变量 页数正则, 正则表达式
.局部变量 搜索结果, 搜索结果, , "0"
.局部变量 页数搜索结果, 搜索结果, , "0"
.局部变量 计次, 整数型
.局部变量 临时文本1, 文本型
.局部变量 最终文本1, 文本型, , "100"
.局部变量 临时文本2, 文本型
.局部变量 最终文本2, 文本型, , "100"

.如果真 (当前搜索 ＝ “”)
    信息框 (“请在搜索框内输入内容”, 0, , )
    返回 ()
.如果真结束
源码 ＝ 到文本 (HTTP读文件 (“http://www.h31bt1.net/search/” ＋ 编码_URL编码 (搜索参数, , 真)))
源码 ＝ 编码_utf8到gb2312 (源码)
超级列表框1.全部删除 ()

正则.创建 (#搜索常量, )
搜索结果 ＝ 正则.搜索全部 (源码)

.判断开始 (取数组成员数 (搜索结果) ＝ 0)
    信息框 (“未搜索到内容”, 0, , )
    返回 ()
.默认

.判断结束


.计次循环首 (取数组成员数 (搜索结果), 计次)
    临时文本1 ＝ 搜索结果 [计次].取子匹配文本 (源码, 2, )
    最终文本1 [计次] ＝ 临时文本1
    临时文本2 ＝ 搜索结果 [计次].取子匹配文本 (源码, 1, )
    最终文本2 [计次] ＝ “magnet:” ＋ 临时文本2
.计次循环尾 ()
超级列表框1.置标题 (超级列表框1.插入表项 (1, , , , , ) － 1, 0, 最终文本1 [1])
.计次循环首 (取数组成员数 (搜索结果), 计次)
    超级列表框1.置标题 (超级列表框1.插入表项 (计次, , , , , ) － 1, 0, 最终文本1 [计次])
    超级列表框1.置标题 (超级列表框1.插入表项 (计次, , , , , ) － 1, 1, 最终文本2 [计次])
.计次循环尾 ()
页数正则.创建 (#页数搜索常量, )
页数搜索结果 ＝ 页数正则.搜索全部 (源码)
页数左 ＝ 页数搜索结果 [1].取子匹配文本 (源码, 3, )
页数右 ＝ 页数搜索结果 [1].取子匹配文本 (源码, 4, )
标签2.标题 ＝ “总条数:” ＋ 页数搜索结果 [1].取子匹配文本 (源码, 1, ) ＋ “  页数 ” ＋ 页数左 ＋ “/” ＋ 页数右

.子程序 _按钮1_被单击

当前搜索 ＝ 搜索编辑框1.内容
获取源码子程序1 (搜索编辑框1.内容)

.子程序 _超级列表框1_右键单击表项
.局部变量 被复制内容, 文本型

被复制内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
.判断开始 (被复制内容 ≠ “”)
    置剪辑板文本 (被复制内容)
    信息框 (“复制成功，快粘贴到下载工具下载吧!”, 0, , )
.默认

.判断结束




.子程序 _按钮2_被单击

.判断开始 (页数左 ＝ “”)
    信息框 (“请先搜索”, 0, , )
    返回 ()
.判断 (页数左 ＝ “1”)
    信息框 (“已经到第一页”, 0, , )
    返回 ()
.默认

.判断结束
获取源码子程序1 (当前搜索 ＋ “/” ＋ 到文本 (到整数 (页数左) － 1) ＋ “.html”)

.子程序 _按钮3_被单击

.判断开始 (页数左 ＝ “”)
    信息框 (“请先搜索”, 0, , )
    返回 ()
.判断 (页数左 ＝ 页数右)
    信息框 (“已经到最后一页”, 0, , )
    返回 ()
.默认

.判断结束
获取源码子程序1 (当前搜索 ＋ “/” ＋ 到文本 (到整数 (页数左) ＋ 1) ＋ “.html”)

@q309294987