求一批处理将APE转为MP3,并根据CUE文件写入曲目信息 - 中国DOS联盟论坛

@echo off
setlocal enabledelayedexpansion
set var=%1
set str=%var:~-4,-1%
for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do call set str=%%str:%%i=%%i%%
if %str%==cue (
if exist "!var:~1,-5!.ape" (
mac "!var:~1,-5!.ape" "!var:~1,-5!.wav" -d
set /a tstart=0
for /f "skip=1 tokens=3,4* delims=: " %%i in ('findstr INDEX %1') do (
set /a hh=100%%i%%100
set /a nn=100%%j%%100
set /a ss=100%%k%%100
set /a tend=!hh!*60000+!nn!*1000+!ss!*10
set /a tnum+=1
if 1!tnum! LSS 20 (set ttnum=0!tnum!) else set ttnum=!tnum!
wave-n-1 !var:~1,-5!.wav !tstart! !tend! !ttnum!.wav
set /a tstart=!tend!
)
set /a tnum+=1
if 1!tnum! LSS 20 (set ttnum=0!tnum!) else set ttnum=!tnum!
wave-n-1 !var:~1,-5!.wav !tstart! !tend! !ttnum!.wav
del !var:~1,-5!.wav
for /f "skip=2 tokens=2 delims= " %%i in ('findstr "PERFORMER TITLE" %1') do (
set /a num+=1
call :mod
if !mod! equ 0 (
set /a Track+=1
if 1!Track! LSS 20 (set TTrack=0!Track!) else set TTrack=!Track!
LAME --preset extreme --tt !Title! --ta %%i --tn !Track! --add-id3v2 --space-id3v1 --pad-id3v2 !TTrack!.wav !TTrack!.!Title!.mp3
del !TTrack!.wav)
set Title=%%i
)
)
)
:mod
set /a mod=%num%%%2
goto :eof

参数为cue的文件名,且需要加上""号.

http://upload.cn-dos.net/img/1827.7z

不足之处:
无法分切一轨转换一轨,需要全部分切完后才开始转换MP3.
未作充分测试.

[ Last edited by SunSpring on 2010-4-14 at 01:23 ]

第1楼　SunSpring	发表于 2010-03-09 01:17
初级用户　发帖 20　积分 166
求一批处理将APE转为MP3,并根据CUE文件写入曲目信息使用程序MAC.exe将APE,转为WAV,再用LAME.exe转为MP3. 但需要分析CUE文件,并分割Mp3为单曲,同时要写入曲目信息到文件. 命令行分割MP3的文件不知道有哪些工具.请各位大侠帮忙.谢谢. [ Last edited by SunSpring on 2010-3-11 at 08:30 ]

第2楼　SunSpring	发表于 2010-03-15 23:51
初级用户　发帖 20　积分 166
自己顶个,希望大侠出手.

第3楼　SunSpring	发表于 2010-04-14 01:15
初级用户　发帖 20　积分 166
@echo off setlocal enabledelayedexpansion set var=%1 set str=%var:~-4,-1% for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do call set str=%%str:%%i=%%i%% if %str%==cue ( if exist "!var:~1,-5!.ape" ( mac "!var:~1,-5!.ape" "!var:~1,-5!.wav" -d set /a tstart=0 for /f "skip=1 tokens=3,4* delims=: " %%i in ('findstr INDEX %1') do ( set /a hh=100%%i%%100 set /a nn=100%%j%%100 set /a ss=100%%k%%100 set /a tend=!hh!60000+!nn!1000+!ss!10 set /a tnum+=1 if 1!tnum! LSS 20 (set ttnum=0!tnum!) else set ttnum=!tnum! wave-n-1 !var:~1,-5!.wav !tstart! !tend! !ttnum!.wav set /a tstart=!tend! ) set /a tnum+=1 if 1!tnum! LSS 20 (set ttnum=0!tnum!) else set ttnum=!tnum! wave-n-1 !var:~1,-5!.wav !tstart! !tend! !ttnum!.wav del !var:~1,-5!.wav for /f "skip=2 tokens=2 delims= " %%i in ('findstr "PERFORMER TITLE" %1') do ( set /a num+=1 call :mod if !mod! equ 0 ( set /a Track+=1 if 1!Track! LSS 20 (set TTrack=0!Track!) else set TTrack=!Track! LAME --preset extreme --tt !Title! --ta %%i --tn !Track! --add-id3v2 --space-id3v1 --pad-id3v2 !TTrack!.wav !TTrack!.!Title!.mp3 del !TTrack!.wav) set Title=%%i ) ) ) :mod set /a mod=%num%%%2 goto :eof 参数为cue的文件名,且需要加上""号. http://upload.cn-dos.net/img/1827.7z 不足之处: 无法分切一轨转换一轨,需要全部分切完后才开始转换MP3. 未作充分测试. [ Last edited by SunSpring on 2010-4-14 at 01:23* ]