.版本 2
.支持库 EThread
.支持库 iext
.程序集 窗口程序集_启动窗口
.程序集变量 歌曲采集线程, 整数型
.子程序 _按钮1_被单击
.如果真 (线程_取状态 (歌曲采集线程) ≠ -1)
强制结束线程 (歌曲采集线程)
.如果真结束
启动线程 (&歌曲采集, , 歌曲采集线程)
.子程序 歌曲采集
.局部变量 j_url, 文本型
.局部变量 j_txt, 文本型
.局部变量 j_rule, 正则表达式类
.局部变量 N, 整数型
.局部变量 j_item, 整数型
超级列表框1.全部删除 ()
j_url ＝ 子文本替换 (编辑框1.内容, “/#”, “”, , , 真)
j_txt ＝ 编码_Utf8到Ansi (网页_访问_对象 (j_url))
j_rule.创建 (#歌曲正则, j_txt)
.计次循环首 (j_rule.取匹配数量 (), N)
j_item ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (N － 1, 0, 到文本 (N))
超级列表框1.置标题 (N － 1, 1, j_rule.取子匹配文本 (N, 3))
超级列表框1.置标题 (N － 1, 2, j_rule.取子匹配文本 (N, 2))
超级列表框1.置标题 (N － 1, 3, j_rule.取子匹配文本 (N, 1))
.计次循环尾 ()
信息框 (“所有歌曲采集完毕，喜欢的可以双击列表复制歌名”, 0, “提示”, _启动窗口)
.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果真 (超级列表框1.现行选中项 ＝ -1)
返回 ()
.如果真结束
置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 1))
分类