正则实现百度音乐附上源码

mp624183768 · 发表于 2018-1-29 01:31:50

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
网址	文本型
返回数据	文本型
正则	正则表达式类
计次	整数型
局_全部歌曲	文本型		0
局_索引	整数型

超级列表框1.全部删除 ()
网址＝ “http://music.baidu.com/search?key=” ＋编辑框1.内容
返回数据＝编码_utf8到gb2312 (到文本 (网页_访问_对象 (网址, 0)))
置剪辑板文本 (返回数据)
正则.创建 ( #常量_歌曲正则, 返回数据)

计次循环首 (正则.取匹配数量 (), 计次)

加入成员 (局_全部歌曲, 正则.取匹配文本 (计次))

计次循环尾 ()

计次循环首 (取数组成员数 (局_全部歌曲), 计次)

正则.创建 ( #常量_歌曲详情, 局_全部歌曲 [计次])

局_索引＝超级列表框1.插入表项 (, 正则.取子匹配文本 (1, 2), , , , )

超级列表框1.置标题 (局_索引, 1, 正则.取子匹配文本 (1, 1))

计次循环尾 ()

子程序名	返回值类型	公开	备注
_超级列表框1_被双击	逻辑型
参数名	类型	参考	可空	数组	备注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类型	静态	数组	备注
网址	文本型

如果 (寻找文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 1), “http”, 1, 假) ≠ -1)

网址＝超级列表框1.取标题 (超级列表框1.现行选中项, 1)

网址＝ “http://music.baidu.com” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 1)

打开指定网址 (网址)

子程序名	返回值类型	公开	备注
_按钮_刷钻_被单击

打开指定网址 (“http://3782.321ya.cn/”)

子程序名	返回值类型	公开	备注
_按钮_Tao宝搜索优惠券_被单击

打开指定网址 (“https://tbyhq.c8d8.com/”)

子程序名	返回值类型	公开	备注
_按钮_加开发者qq_被单击

打开指定网址 (“tencent://message/?uin=1377093782&Site= im.qq.com &Menu=yes”)

子程序名	返回值类型	公开	备注
_按钮_加qq群_被单击

打开指定网址 (“https://shang.qq.com/wpa/qunwpa?idkey=415e393ff756a34c977f7d67c4267aec9c260be02c9f21cb086afb32cfc7a9ac”)

i支持库列表	支持库注释
iext	扩展界面支持库一
eAPI	应用接口支持库

.版本 2<br />
.支持库 iext<br />
.支持库 eAPI<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 网址, 文本型<br />
.局部变量 返回数据, 文本型<br />
.局部变量 正则, 正则表达式类<br />
.局部变量 计次, 整数型<br />
.局部变量 局_全部歌曲, 文本型, , "0"<br />
.局部变量 局_索引, 整数型<br />
<br />
超级列表框1.全部删除 ()<br />
网址 ＝ “<a href="http://music.baidu.com/search?key=" rel="nofollow" rel="nofollow" target="_blank">http://music.baidu.com/search?key=</a>” ＋ 编辑框1.内容<br />
<br />
返回数据 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (网址, 0)))<br />
置剪辑板文本 (返回数据)<br />
正则.创建 (#常量_歌曲正则, 返回数据)<br />
.计次循环首 (正则.取匹配数量 (), 计次)<br />
    加入成员 (局_全部歌曲, 正则.取匹配文本 (计次))<br />
.计次循环尾 ()<br />
<br />
.计次循环首 (取数组成员数 (局_全部歌曲), 计次)<br />
    正则.创建 (#常量_歌曲详情, 局_全部歌曲 [计次])<br />
    局_索引 ＝ 超级列表框1.插入表项 (, 正则.取子匹配文本 (1, 2), , , , )<br />
    超级列表框1.置标题 (局_索引, 1, 正则.取子匹配文本 (1, 1))<br />
.计次循环尾 ()<br />
<br />
<br />
.子程序 _超级列表框1_被双击, 逻辑型<br />
.参数 横向位置, 整数型<br />
.参数 纵向位置, 整数型<br />
.参数 功能键状态, 整数型<br />
.局部变量 网址, 文本型<br />
<br />
.如果 (寻找文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 1), “http”, 1, 假) ≠ -1)<br />
    网址 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)<br />
.否则<br />
    网址 ＝ “<a href="http://music.baidu.com" rel="nofollow" rel="nofollow" target="_blank">http://music.baidu.com</a>” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)<br />
.如果结束<br />
<br />
打开指定网址 (网址)<br />
<br />
<br />
.子程序 _按钮_刷钻_被单击<br />
<br />
打开指定网址 (“http://3782.321ya.cn/”)<br />
<br />
.子程序 _按钮_Tao宝搜索优惠券_被单击<br />
<br />
打开指定网址 (“https://tbyhq.c8d8.com/”)<br />
<br />
.子程序 _按钮_加开发者qq_被单击<br />
<br />
打开指定网址 (“tencent://message/?uin=1377093782&Site= im.qq.com &Menu=yes”)<br />
<br />
<br />
<br />
.子程序 _按钮_加qq群_被单击<br />
<br />
打开指定网址 (“https://shang.qq.com/wpa/qunwpa?idkey=415e393ff756a34c977f7d67c4267aec9c260be02c9f21cb086afb32cfc7a9ac”)