背景音乐采集播放器源码

背景音乐采集播放器源码，朋友要在某网站下载背景音乐，说要一个个下载麻烦让我给他写一个批量下载。软件比较简单调用精益模块的正则表达式。

.版本 2
.支持库 iext
.支持库 wmp9
.支持库 eAPI
.支持库 internet

.程序集 窗口程序集_启动窗口

.子程序 _按钮采集_被单击
.局部变量 返回信息, 文本型
.局部变量 正则, 正则表达式类
.局部变量 计次, 整数型
.局部变量 索引, 整数型
.局部变量 n, 整数型

超级列表框1.全部删除 ()
.计次循环首 (到整数 (编辑框采集数量.内容), n)
    返回信息 ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (“http://www.tuke88.com/peiyue/zonghe_0_” ＋ 到文本 (n) ＋ “.html”, 0, , , , , , , , , )))  ' 图客巴巴
    正则.创建 (#常量1, 返回信息, , , , )
    .计次循环首 (正则.取匹配数量 (), 计次)
        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))
        超级列表框1.置标题 (索引, 1, 正则.取子匹配文本 (计次, 1))
        超级列表框1.置标题 (索引, 2, 正则.取子匹配文本 (计次, 2))
        处理事件 ()
    .计次循环尾 ()
.计次循环尾 ()
信息框 (“采集” ＋ 编辑框采集数量.内容 ＋ “页完成，共采集到：” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “条数据。”, 0, , )

.子程序 _超级列表框1_左键单击表项
.局部变量 url, 文本型

url ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)
播放器1.地址 ＝ url

.子程序 _按钮导出数据_被单击
.局部变量 表数量, 整数型
.局部变量 n, 整数型
.局部变量 临时文本, 文本型

表数量 ＝ 超级列表框1.取表项数 ()
.计次循环首 (表数量, n)
    临时文本 ＝ 临时文本 ＋ 超级列表框1.取标题 (n － 1, 1) ＋ “,” ＋ 超级列表框1.取标题 (n － 1, 2) ＋ #换行符
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “导出MP3地址数据.txt”, 到字节集 (临时文本))
信息框 (“导出数据完成，共导出：” ＋ 到文本 (n) ＋ “条。”, 0, , )

.子程序 _按钮打开目录_被单击

打开指定网址 (取运行目录 ())


.子程序 _按钮批量下载_被单击
.局部变量 数量, 整数型
.局部变量 n, 整数型
.局部变量 计次, 整数型
.局部变量 临时数据, 字节集

数量 ＝ 超级列表框1.取表项数 ()
子程序_创建目录 ()
.判断开始 (数量 ＝ 0)
    信息框 (“播放列表空空的，请先采集后在下载。”, 0, , )
.默认
    .计次循环首 (数量, n)
        临时数据 ＝ HTTP读文件 (超级列表框1.取标题 (n, 2))
        .如果真 (临时数据 ＝ {  })
            计次 ＝ 计次 ＋ 1

        .如果真结束
        写到文件 (取运行目录 () ＋ “MP3\” ＋ 超级列表框1.取标题 (n, 1) ＋ “.mp3”, 临时数据)
        处理事件 ()
    .计次循环尾 ()
    信息框 (“共下载：” ＋ 到文本 (数量) ＋ “条MP3音乐，失败：” ＋ 到文本 (计次) ＋ “条。”, 0, , )
.判断结束


.子程序 子程序_创建目录
.局部变量 mp3目录, 文本型

mp3目录 ＝ 取运行目录 () ＋ “mp3”
.判断开始 (文件是否存在 (mp3目录) ＝ 假)
    创建目录 (mp3目录)
.默认

.判断结束

@胡八一