背景音乐采集播放器源码

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

.版本 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目录) .默认 .判断结束

背景音乐采集播放器源码.png

相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注