中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 搜索mp3没有歌词的歌曲文件，并自动用千千静听下载歌词

yayumyself
初级用户

积分 36
发帖 14
注册 2006-9-6
状态离线

『楼主』: 搜索mp3没有歌词的歌曲文件，并自动用千千静听下载歌词

@echo off&setlocal enabledelayedexpansion&color 1f
mode con:cols=50 lines=25
set n=0
if "%~1"=="" (
echo    请直接拖放包含音乐的文件夹到此文件上
ping /n 6 127.0.0.1>nul&exit
) else (
echo 当前检测目录为:%~1
)
echo _________
for %%i in ("%1\*.wma" "%1\*.mp3") do (
if not exist %1\%%~ni.lrc (
      set/a n+=1&set name!n!=%%i&echo %%~nxi --Not Find )
)
echo.
if %n%==0 echo 所有歌词都有歌词文件&pause>nul&exit
echo 共%n%项。
set /p sure=是否用千千静听下载歌词文件(按任意键下载):
for /f "skip=4 tokens=2 delims=>" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\TTPlayer.exe" /ve 2^>nul') do (
set p=%%i
set p=!p:~4!
)
if "!p!"=="" (
   set/p dl=你的系统中没有安装千千静听，是否下载?任意键下载:
   start "" "http://wwwcnc.ttplayer.com/download/ttpsetup.exe"
   exit
)
del %temp%\musiclist.bat 2>nul
echo @echo off>%temp%\musiclist.bat
for /l %%a in (1,1,%n%) do (
echo start "" "!p!" "!name%%a!">>%temp%\musiclist.bat
)
echo exit>>%temp%\musiclist.bat
start %temp%\musiclist.bat
)
exit

嘿嘿，来自我的百度空间（嘿嘿，做广告）。http://hi.baidu.com/xinghuo