批处理之家 - Powered by Discuz! Board

　　发这个贴是因为最近买了一个礼光歌库, 1TB, 3万多首歌, 歌库文件形式是: 每一首歌都有"歌手"-"歌名".mkv文件和同名的.ksc文件(索引文件). 可是这个歌库目录分类比较混乱, 都是以数字来命名目录, 而且同一个歌手的歌不一定在同一个目录里等. 虽然暂时不影响使用(因为礼光是根据ksc文件来索引歌曲文件的, 不受歌曲在磁盘上目录情况的影响), 但是不利于将来手工更新歌曲. 于是开始尝试重新整理这个歌库. 基本的文件目录结构是参考礼光系统里的分类:
　　1. 先分语种, 有以下目录: 国语, 粤语, 台语, 闽南话, 韩语, 日语, 英语
　　2. 每个语种下再分以下目录: 流行,戏曲,民歌,儿歌,生日歌,革命歌,怀旧歌,迪斯科,情歌对唱,影视金曲
　　3. "流行"目录是大头, 下面再分以下目录: 男歌手, 女歌手, 乐队组合.
　　计划第一步是把所有的文件复制到同一个目录下, 按照歌手名生成新文件夹, 并把那些mkv, ksc文件依照歌手名移到相应的歌手目录里, 同时删除文件名里面的歌手名和分隔符-.
计划第二步是希望把歌手目录分类整理到下面三个目录里:
　　"男歌手", "女歌手" 和 "乐队组合".
　　我初步的想法是先准备三个文本文件, 分别是上面三个分类的名单, 然后通过批处理对歌手目录和名单进行比较, 符合的就move到相应的目录.

　　忘记了一个地方, 能不能加一个功能, 不然歌曲文件不能被索引:在移动文件之前, 先修改ksc文件的内容. ksc文件是一个文本文件, 作为mkv歌曲文件的索引文件. 需要将里面的一句

karaoke.CommonVideo := '周杰伦-稻香.MKV';

修改为

karaoke.CommonVideo := '稻香.MKV';

ksc文件的内容一般是这样的

karaoke.tag('歌名', '稻香');
karaoke.tag('缩写', 'DX');
karaoke.tag('歌手', '周杰伦');
karaoke.tag('字数', '2');
karaoke.tag('语种', '国语');
karaoke.tag('歌类', '男人');
karaoke.tag('电影', 'False');
karaoke.tag('风格', '流行');
karaoke.tag('流行', 'True');
karaoke.tag('音量', '200');
karaoke.tag('声道', '2');
karaoke.tag('语音', '0');
karaoke.tag('介质', '10');
karaoke.tag('时间', '2008-9-5');
karaoke.tag('歌星拼音', 'ZJL');
karaoke.mtvmode :=true;
karaoke.videofilename := '';
karaoke.audiofilename := '*.wav';
karaoke.XSDVideoMode := 4;
karaoke.CommonVideo := '周杰伦-稻香.mkv';

@echo off
for /f "tokens=1* delims=-" %%i in ('dir /a-d /b *.mkv') do (
md "%%i" 2>nul
ren "%%i-%%j" "%%j"
move "%%j" "%%i"
findstr /ivc:"karaoke.CommonVideo" "%%i-%%~nj.ksc">"%%i\%%~nj.ksc"
echo karaoke.CommonVideo := '%%j';>>"%%i\%%~nj.ksc"
del "%%i-%%~nj.ksc"
)
pause

复制代码

@echo off
for /f "tokens=1* delims=-" %%i in ('dir /a-d /b *.mkv') do (
md "%%i" 2>nul
ren "%%i-%%j" "%%j"
move "%%j" "%%i"
findstr /ivc:"karaoke.CommonVideo" "%%i-%%~nj.ksc">"%%i\%%~nj.ksc"
echo karaoke.CommonVideo := '%%j';>>"%%i\%%~nj.ksc"
del "%%i-%%~nj.ksc"
)
for %%i in (*.txt) do (
md %%~ni 2>nul
for /f "delims=" %%j in (%%i) do move "%%j" %%~ni
)

复制代码