网易云音乐歌单采集源码

.版本 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))

@bob198486