用批处理整理百度MP3上歌曲排行榜MP3及LRC文件的批量下载链接地址（含图文教程） - 无忧启动论坛

@echo off
:: 功能：
:: 整理百度MP3歌曲排行榜中除了“中文金曲”和“中国民乐”之外所有榜单的分类下载链接
:: 对MP3文件：整理出供迅雷5等软件批量下载的、有效的mp3文件地址，并统计该榜单下mp3文件的总数、有效下载链接的总数；提供备用的mp3文件下载链接；列出下载链接可能已经失效的mp3文件；
:: 对LRC文件：整理出供迅雷5等软件批量下载的、有效的lrc文件地址，并统计该榜单下lrc文件的总数、有效下载链接的总数；同时下载百度服务器上存在的lrc文件；列出下载链接可能已经失效的lrc文件；
:: 返回Main后注意清空所有变量
:Main
cls
title 百度MP3歌曲排行榜下载链接整理器
echo.&echo.
echo 选择每个项目前的数字序号
echo 可以整理该类别下所有MP3的有效下载链接
echo 并可以下载这些MP3对应的歌词LRC文件
echo 可以多选，但是必须以空格分隔
echo 多选时不用考虑先后次序
echo 例如选择代码时填写 5 1 8
echo 会依次下载“影视金曲”，“新歌TOP100”和“流金岁月”
echo 0与其他选项组合时会造成重复下载
echo.
echo ==========================================================
echo.
setlocal enabledelayedexpansion
set num=0
for /f "tokens=1-3" %%i in (榜单分类.ini) do (
set /a num+=1
set /a mod=!num!%%2
set /p= %%i.%%j <nul
if !mod! equ 0 echo.&echo.
)
echo.
set /p= 0.前面的所有类别<nul
echo.
echo ==========================================================
echo.
endlocal
set choice=
set /p choice= 请输入选择代码（0/1/2/3/4/5/6/7/8/9）：
cls
if not defined choice goto Main
for %%i in (%choice%) do (
for /f "tokens=1-3" %%j in (榜单分类.ini) do (
if not "%%i"=="0" (
if "%%i"=="%%j" (
call :Neaten "%%k" "%%l"
call :end "%%k"
)
)else (
call :Neaten "%%k" "%%l"
call :end "%%k"
)
)
)
call :end
pause
goto Main
:Neaten
setlocal enabledelayedexpansion
md "%~1\xml" 2>nul
md "%~1\Lrc" 2>nul
wget -O "%~1\%~nx2" "%~2"
:: 功能：从分类排行榜首页提取出歌曲序号、歌曲名和歌手名，并取回包含真实下载链接的xml文件
:: 歌曲排行随时在变动，清空以前保存的xml文件，以保证不下载过期链接
:: xml文件的下载地址是：http://box.zhangmen.baidu.com/x?op=12&count=1&title=歌曲名$$歌手名$$$
del /a /f /q "%1\xml\*.xml" 2>nul
set num=0
for /f "delims==" %%i in ('set name 2^>nul') do set "%%i="
for /f "delims=" %%i in ('findstr /i "td.class="td[b-d]"" "%~1\%~nx2"') do (
for /f "tokens=*" %%j in ("%%i") do (
set /a num+=1
for /f "delims=<> tokens=3" %%k in ("%%j") do (
set "name!num!=%%k"
if !num! equ 2 (
if "!name2:~-3!"=="..." (
for /f "tokens=4 delims='" %%l in ("%%j") do set "name2=%%l"
)
)
if !num! equ 3 (
if "!name3:~-3!"=="..." (
for /f "tokens=2 delims='" %%l in ("%%j") do set "name3=%%l"
)
set name1=00!name1!
set name1=!name1:~-3!
if "!name3!"=="/a" set "name3="
title 正在下载 %~1 分类下 "!name1!_!name2!_!name3!.mp3" 的xml数据
wget -nv -N -O "%~1\xml\!name1!_!name2!_!name3!.xml" "http://box.zhangmen.baidu.com/x?op=12&count=1&title=!name2!$$!name3!$$$"
set num=0
)
)
)
)
endlocal
for /f "delims=" %%i in ('findstr /i "td.class="tdb"" "%~1\%~nx2"') do set "str=%%i"
for /f "tokens=*" %%i in ("%str%") do (
for /f "delims=<> tokens=3" %%j in ("%%i") do set SongNum=%%j
)
:: 功能：整理有效的下载列表，下载对应的歌词文件，列出下载链接已经失效的mp3文件
cls
title 整理%~1的下载链接列表并下载对应的歌词文件
for %%i in (%~1\%~nx2) do set ModifiedTime=%%~ti
for %%i in (MP3 LRC) do (
(
echo ^<html^>
echo ^<title^>百度MP3歌曲排行：%~1^<^/title^>
echo ^<style type="text/css"^>
echo ^<!--
echo a:link { text-decoration: none;color: blue}
echo a:active { text-decoration:blink}
echo a:hover { text-decoration:underline;color: red}
echo a:visited { text-decoration: none;color: green}
echo -－^>
echo ^<^/style^>
echo ^<body^>
echo ^<b^>“百度MP3歌曲排行：%~1”列表更新时间：%ModifiedTime%^<^/b^>^<br^>
echo ^<font color="red"^>^<b^>注意：以下内容并非“%~1”的全部，仅列出了有效的%%i下载链接^<^/b^>^<^/font^>^<br^>
if /i "%%i"=="mp3" (
echo ^<font color="red"^>^<b^>　　　当本页面中的某些mp3文件下载失败时，请到“%~1mp3备用下载链接.html”中选择相应的备用地址进行下载^<^/b^>^<^/font^>^<br^>
echo ^<font color="red"^>^<b^>　　　下载链接有可能失效的mp3文件列表请查看“下载链接可能已经失效的mp3列表.txt”^<^/b^>^<^/font^>
)
echo ^<p^>
echo 批量下载本页面列出的%%i文件的方法（以迅雷5.8.9为例，迅雷5.9及其之后的版本不适用）：^<br^>
echo 　　若您已经安装迅雷，请在本页面点右键，选择“使用迅雷下载全部链接”；^<br^>
echo 　　在弹出的“选择要下载的URL”窗口中，勾选“全选”，然后确定^<br^>
echo 　　在接下来的“建立新的下载任务”窗口中，“另存名称”选项后点最右侧的倒三角形符号^<br^>
echo 　　选择“注释命名”，确定^<br^>
echo 　　这样设置之后，下载回来的%%i文件将会以“序号_歌曲名_歌手名.%%i”的格式命名^<br^>
echo 　　FlashGet里的操作可以参考以上步骤^<br^>
echo ====================================================================================^<p^>
)>%~1\%~1%%i下载链接.html
)
(
echo ^<html^>
echo ^<title^>百度MP3歌曲排行：%~1^<^/title^>
echo ^<style type="text/css"^>
echo ^<!--
echo a:link { text-decoration: none;color: blue}
echo a:active { text-decoration:blink}
echo a:hover { text-decoration:underline;color: red}
echo a:visited { text-decoration: none;color: green}
echo -－^>
echo ^<^/style^>
echo ^<body^>
echo ^<b^>“百度MP3歌曲排行：%~1”列表更新时间：%ModifiedTime%^<^/b^>^<br^>
echo ^<font color="red"^>^<b^>注意：以下内容是“%~1”的备用下载地址，仅列出了有效的MP3下载链接^<^/b^>^<^/font^>^<br^>
echo ^<font color="red"^>^<b^>　　　当“%~1MP3下载链接.html”中某些MP3文件下载失败时，请到本页面选择相应的备用地址进行下载^<^/b^>^<^/font^>^<br^>
echo ^<font color="red"^>^<b^>　　　请手工选择文件进行单个的下载，若选择批量下载的方式，则会导致同一文件多次下载，并会保存为多个副本^<^/b^>^<^/font^>^<br^>
echo ^<font color="red"^>^<b^>　　　下载链接有可能失效的MP3文件列表请查看“下载链接可能已经失效的MP3列表.txt”^<^/b^>^<^/font^>^<p^>
echo ====================================================================================^<p^>
)>%~1\%~1MP3备用下载链接.html
(
echo 以下内容为 %ModifiedTime% 更新的“百度MP3歌曲排行：%~1”中下载链接有可能已经失效的mp3文件列表
echo 在本列表中的保存格式为：序号_歌曲名_歌手名.mp3
echo 若您想下载它们，请以相应的关键词在百度MP3网页中搜索有效的下载链接
echo.
)>"%~1\下载链接可能已经失效的mp3列表.txt"
(
echo 以下内容为 %ModifiedTime% 更新的“百度MP3歌曲排行：%~1”中未找到下载链接的歌词文件列表
echo 在本列表中的保存格式为：序号_歌曲名.lrc
echo 若您想下载它们，请以相应的关键词在百度MP3网页中搜索有效的下载链接
echo.
)>"%~1\未找下载地址的歌词文件列表.txt"
setlocal enabledelayedexpansion
for /f "delims==" %%i in ('set Url 2^>nul') do set "%%i="
set UrlUseableNum_MP3=0
set UrlUseableNum_URC=0
for %%i in (%~1\xml\*.xml) do (
for /f "usebackq delims=" %%j in ("%%i") do (
set "str=%%j"
set "str=!str:"=!"
set RunTimes=0
call :GetUrl %1 Count
set "UrlUseable="
set "UrlUseableFirst="
if !Url_Count! gtr 0 (
call :GetUrl %1 Encode
call :GetUrl %1 Decode
call :GetUrl %1 Lrcid
call :DownLrc %1 "%%~ni"
call :GetMp3DownList %1 "%%~ni"
echo.
) else (
echo %%~ni.mp3>>"%~1\下载链接可能已经失效的mp3列表.txt"
echo %%~ni.lrc>>"%~1\未找下载地址的歌词文件列表.txt"
)
)
)
for %%i in (MP3 LRC) do (
(
echo ^<p^>
echo %~1 下的歌曲共 ^<b^>%SongNum%^<^/b^> 首，有效的%%i下载链接共 ^<b^>!UrlUseableNum_%%i!^<^/b^> 条
echo ^<^/body^>
echo ^<^/html^>
)>>%~1\%~1%%i下载链接.html
)
(
echo ^<^/body^>
echo ^<^/html^>
)>>%~1\%~1mp3备用下载链接.html
endlocal
goto :eof
:GetMp3DownList
:: 功能：获取Mp3的下载链接列表，并下载相应的歌词文件
:: 对当前路径的字符有特殊要求，不能含有\http:\，因为用到了 %%~pi
set /a RunTimes+=1
if %RunTimes% gtr %Url_Count% (
if not defined UrlUseable (
echo %~2.mp3>>"%~1\下载链接可能已经失效的mp3列表.txt"
)
goto :eof
)
for /f "delims=" %%i in ("%Url_Decode%") do set type=%%~xi
for %%i in (.mp3 .wma) do (
if /i "%type%"=="%%i" set UrlUseable=true
)
if not defined UrlUseable (
call :GetUrl %1 Encode
call :GetUrl %1 Decode
goto GetMp3DownList
)
for /f "delims=" %%i in ("%Url_Encode%") do set "Url_head=%%~pi"
set "Url_head=%Url_head:*\http:\=%"
set "Url_mp3=%Url_head%%Url_Decode%"
set "Url_mp3=%Url_mp3:\=/%"
if not defined UrlUseableFirst (
set /a UrlUseableNum_MP3+=1
(echo ^<a href="%~2.mp3^<^/a^>^
)>>%~1\%~1mp3'>http://%Url_mp3%"^>%~2.mp3^<^/a^>^<br^>)>>%~1\%~1mp3下载链接.html
(echo ^<p^>)>>%~1\%~1mp3备用下载链接.html
) else (
(echo ^<a href="%~2.mp3^<^/a^>^
)>>%~1\%~1mp3'>http://%Url_mp3%"^>%~2.mp3^<^/a^>^<br^>)>>%~1\%~1mp3备用下载链接.html
)
set UrlUseableFirst=no
call :GetUrl %1 Encode
call :GetUrl %1 Decode
goto GetMp3DownList
:DownLrc
:: 功能：下载歌词文件
if %Url_Lrcid% neq 0 (
set /a Url_lrc=!Url_Lrcid!/100
set Url_lrc=!Url_lrc!/!Url_Lrcid!.lrc
set Url_lrc=http://box.zhangmen.baidu.com/bdlrc/!Url_lrc!
(echo ^<a href="!Url_lrc!"^>%~2.lrc^<^/a^>^<br^>)>>%~1\%~1LRC下载链接.html
wget -nv -N -O "%~1\lrc\%~2.lrc" !Url_lrc!
set /a UrlUseableNum_LRC+=1
) else echo %~2.lrc>>"%~1\未找下载地址的歌词文件列表.txt"
goto :eof
:GetUrl
:: 提取<……>和</……>标记对之间的字符串
set "str=!str:*<%2>=!"
for /f "delims=< tokens=1*" %%i in ("%str%") do (
set "Url_%2=%%i"
set "str=%%j"
)
goto :eof
:end
title %~1整理完毕
cls
echo.&echo.
echo %~1整理完毕
echo.
goto :eof

复制代码