mp3壓制工具lamecmd41(初始最終版)最后由 csydown 于 -3-8 14:12由于我的論壇徹底倒閉，已經沒有任何心思再編程了，這個壓制程序在我的下也是最后一個版本了。希望有緣人能夠將這個程序完善下去，不需保留任何版權信息，歡迎隨意修改。這是個音樂壓制程序，最初用于我的論壇，能自動解包下載的音頻壓縮包，壓制mp3、wav、flac、ape、tak、tta、wv、mpc、aac、m4a、wma、ogg、ac3音頻文件至mp3文件，可自動加載cue分割器，排序專輯圖片，寫入idc3，并生成身份卡和自動打包壓制后專輯。程序源碼請教過論壇的各位大神，也學習了很多，還使用了Demon提供的代碼。程序包中的fmt格式都是exe，都是些不錯的解碼器和壓制程序，歡迎下載。文件源碼很簡單，當然我也是新手，如果代碼有錯誤或繁瑣請見諒！這是我唯一一個可以拿得出手的程序，也希望我退出資源論壇行業后能有人繼續將這程序延續下去。在此感謝大家！！程序說明：lamecmd秋空映畫(xxcv.net)自用音頻壓制工具4.1(.02.23)修正輸入沖突4.0(.02.06)優化解包路徑增加錯誤判斷3.0(.02.03)開發成員更換全新編碼核心判斷邏輯優化增加大量格式2.0(.12.16)增加文件解壓支持自裝模塊1.0(.12.08)增加圖片壓縮增加文件打包0.0(.05.01)程序正式發布程序源碼：

@echo off
:0
cls.
title lamecmd by xxcv.net
echo 文件放入input目錄，壓制時停止其它操作
start input
pause>nul
attrib -r -a -s -h /S /D
rar e -ai -ep -y input*.* inputxxcv
rar e -ai -ep -y inputxxcv*.* inputxxcv
move inputxxcv*.* input
rd /s /q inputxxcv
cd input
setlocal enabledelayedexpansion
for /f delims= %%a in ('dir /b *.*') do (
set str=%%a
set str=!str:?=_!
ren %%a !str!
)
setlocal disabledelayedexpansion
cd ..
for %%c in (input*.flac) do (formatsflac.xmt -d -f %%c)
move /y input*.flac temp
for %%c in (input*.ape) do (formatsape.xmt %%c %%c.wav -d)
move /y input*.ape temp
for %%c in (input*.tak) do (formatstak.xmt -d %%c)
move /y input*.tak temp
for %%c in (input*.tta) do (formatstta.xmt -d %%c)
move /y input*.tta temp
for %%c in (input*.wv) do (formatswv.xmt -d %%c %%c.wav)
move /y input*.wv temp
for %%c in (input*.mpc) do (formatsmpc.xmt %%c %%c.wav)
move /y input*.mpc temp
for %%c in (input*.aac) do (formatsaac.xmt -q %%c)
move /y input*.aac temp
for %%c in (input*.mp4) do (formatsaac.xmt -q %%c)
move /y input*.mp4 temp
for %%c in (input*.m4a) do (formatsaac.xmt -q %%c)
move /y input*.m4a temp
for %%c in (input*.wma) do (formatswma.xmt %%c %%c.wav)
move /y input*.wma temp
for %%c in (input*.ogg) do (formatsogg.xmt -q %%c)
move /y input*.ogg temp
for %%c in (input*.ac3) do (formatsac3.xmt %%c %%c.wav)
move /y input*.ac3 temp
move /y *.wav input
md inputxxcv
for %%c in (input*.ape.wav) do move /y %%c inputxxcv
for %%c in (input*.tta.wav) do move /y %%c inputxxcv
for %%c in (input*.wv.wav) do move /y %%c inputxxcv
for %%c in (input*.mpc.wav) do move /y %%c inputxxcv
for %%c in (input*.wma.wav) do move /y %%c inputxxcv
for %%c in (input*.ac3.wav) do move /y %%c inputxxcv
rename inputxxcv*.wav *..
rename inputxxcv*.* *.wav
move inputxxcv*.* input
rd /s /q inputxxcv
if exist input*.cue (goto 1) else (goto 2)
:1
cls.
set qnum=0
for /f %%i in ('dir /b input*.wav') do set /a qnum+=1
if %qnum% geq 2 goto 2
rename input*.wav cd.wav
rename input*.cue *..
del /f /s /q input*.flac
del /f /s /q input*.ape
del /f /s /q input*.tak
del /f /s /q input*.tta
del /f /s /q input*.wv
del /f /s /q input*.mpc
del /f /s /q input*.aac
del /f /s /q input*.mp4
del /f /s /q input*.m4a
del /f /s /q input*.wma
del /f /s /q input*.ogg
del /f /s /q input*.ac3
rename input*.. cd.cue
formatsfix.xmt inputcd.cue
reg add HKEY_CURRENT_USERSoftwareMedievalCUE Splitter /v FirstTimeAssociation /t reg_dword /d 00821760 /f
reg add HKEY_CURRENT_USERSoftwareMedievalCUE SplitterConfig /v DirLast /t reg_dword /d 00000000 /f
reg add HKEY_CURRENT_USERSoftwareMedievalCUE SplitterConfig /v DirNone /t reg_dword /d 00000000 /f
reg add HKEY_CURRENT_USERSoftwareMedievalCUE SplitterConfig /v DirPath /t reg_dword /d 00000001 /f
reg add HKEY_CURRENT_USERSoftwareMedievalCUE SplitterConfig /v DirPathAsk /t reg_dword /d 00000000 /f
reg add HKEY_CURRENT_USERSoftwareMedievalCUE SplitterConfig /v DirPathValue /t reg_sz /d %cd%input /f
reg add HKEY_CURRENT_USERSoftwareMedievalCUE SplitterMain /v FileMask /t reg_dword /d 00000001 /f
cls.
echo 選擇“cd.wav”，點擊“split”，完成后關閉
formatscue.xmt inputcd.cue
move /y inputcd.wav temp
:2
cls.
start ctfmon.exe
set website=xxcv.net
set /p album=名稱：
set /p namebak=原名：
set /p author=作者：
set /p year=年份：
echo 1.無誤 2.有誤
set /p a= 選擇：
if %a%== goto 2
if %a%==1 goto 3
if %a%==2 goto 2
goto 2
:3
cls.
md output%album%
for %%c in (input*) do formatsmp3.xmt --preset extreme %%c %%cxxcv --ta %author% --tl %album% --ty %year% --tc %website%
rename input*.jpg *.jpeg
formatspic.xmt input bmp jpg
formatspic.xmt input dib jpg
formatspic.xmt input jpeg jpg
formatspic.xmt input jpe jpg
formatspic.xmt input jfif jpg
formatspic.xmt input gif jpg
formatspic.xmt input tif jpg
formatspic.xmt input tiff jpg
formatspic.xmt input png jpg
move /y input*.jpg output%album%
cd output%album%
set picnum=1
setlocal enabledelayedexpansion
for /f delims= %%i in ('dir /b *.*') do (ren %%i 插圖!picnum!.*
set /a picnum+=1)
setlocal disabledelayedexpansion
cd ..
cd ..
move /y input*.mp3xxcv output%album%
move /y input*.wavxxcv output%album%
move /y input*.* temp
rename output%album%*.mp3xxcv *.mp3
rename output%album%*.wavxxcv *.mp3
move /y output%album%*.mp3 input
echo 名稱：%album%>>output%album%身份卡.txt
echo 原名：%namebak%>>output%album%身份卡.txt
echo 作者：%author%>>output%album%身份卡.txt
echo 年份：%year%>>output%album%身份卡.txt
echo 發布：%website%>>output%album%身份卡.txt
echo 曲目：>>output%album%身份卡.txt
dir input /b>>output%album%身份卡.txt
move /y input*.* output%album%
:4
cls.
for %%i in (output%album%*.mp3) do (if %%~zi lss 102400 echo %%i可能有誤)
echo 1.查看成品
echo 2.打包壓縮
echo 3.查看緩存
echo 4.清空緩存
echo 0.新的任務
set /p b= 選擇：
if %b%== goto 4
if %b%==1 goto b1
if %b%==2 goto b2
if %b%==3 goto b3
if %b%==4 goto b4
if %b%==0 goto b0
goto 4
:b1
start output
goto 4
:b2
rar a output%album%(%website%).rar c -zoutput%album%身份卡.txt -ep1 -r -s output%album%
goto 4
:b3
start temp
goto 4
:b4
del /f /s /q temp*.*
goto 4
:b0
goto 0
nclick="copycode($('code0'));">復制代碼

程序下載：http://pan.baidu.com/share/link?shareid=398278&uk=874661367那么在此退出互聯網資源界，本人賬號全部作廢，如有問題煩請請教論壇各位，本人無法解答，十分抱歉！