背景音乐采集播放器源码,朋友要在某网站下载背景音乐,说要一个个下载麻烦让我给他写一个批量下载。软件比较简单调用精益模块的正则表达式。
.版本 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目录)
.默认
.判断结束