@echo off
:: 功能：
:: 整理百度MP3歌曲排行榜中除了“中文金曲”和“中国民乐”之外所有榜单的分类下载链接
:: 对MP3文件：整理出供迅雷5等软件批量下载的、有效的mp3文件地址，并统计该榜单下mp3文件的总数、有效下载链接的总数；提供备用的mp3文件下载链接；列出下载链接可能已经失效的mp3文件；
:: 对LRC文件：整理出供迅雷5等软件批量下载的、有效的lrc文件地址，并统计该榜单下lrc文件的总数、有效下载链接的总数；同时下载百度服务器上存在的lrc文件；列出下载链接可能已经失效的lrc文件；
:: 需要配合 榜单分类.ini使用
:: 需要用到命令行工具 wget.exe


: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 (
    if not "%%i"=="0" (
        for /f "tokens=1-3" %%j in (榜单分类.ini) do (
            if "%%i"=="%%j" (
                call :Neaten "%%k" "%%l"
                call :end "%%k"
            )
        )
    )else (
        for /f "tokens=1-3" %%j in (榜单分类.ini) do (
            call :Neaten "%%k" "%%l"
            call :end "%%k"
        )
    )
)
call :end
pause
goto Main

:Neaten
setlocal enabledelayedexpansion

md "%~1\xml" 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为例，迅雷7不适用）：^<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"

md "%~1\Lrc" 2>nul

(
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="http://%Url_mp3%"^>%~2.mp3^<^/a^>^<br^>)>>%~1\%~1mp3下载链接.html
    (echo ^<p^>)>>%~1\%~1mp3备用下载链接.html
) else (
    (echo ^<a href="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
复制代码

;以分号打头的行为注释内容
;配置文件的格式内容为：编号 分类名称 在百度MP3榜单歌曲排行上对应的首页，三个字段以空格分隔，不能夹带其他字符
;这些百度MP3榜单首页的列表中，必须有歌曲序号、歌曲名及歌手名这三个字段，歌手名可以为空，即网页源文件代码中必须含有“td class="tdb"”、“td class="tdc"”和td class="tdd"这三行内容
;“中文金曲”、“中国民乐”因不满足上述条件而无法正确提取，需单独编写代码
;百度MP3榜单首页：http://list.mp3.baidu.com/index.html

1 新歌TOP100 http://list.mp3.baidu.com/top/top100.html
2 歌曲TOP500 http://list.mp3.baidu.com/top/top500.html
3 日韩流行风 http://list.mp3.baidu.com/top/rihan.html
4 欧美金曲 http://list.mp3.baidu.com/top/oumei.html
5 影视金曲 http://list.mp3.baidu.com/top/movie.html
6 热门对唱 http://list.mp3.baidu.com/top/duichang.html
7 摇滚歌曲榜 http://list.mp3.baidu.com/top/yaogun.html
8 流金岁月 http://list.mp3.baidu.com/top/junlvminge.html
复制代码