Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Автоматизация в создании lossless дискографий 
Author Message
Tol!k



PostPosted: Sat Dec 21, 2013 16:24    Post subject: Reply with quote

CMD
Code:
@echo off &setlocal enableextensions

::   Параметры:   "%WL"
set "Folder2=Covers"

for /f "delims=" %%b in ('type "%~1" ^|findstr /ei /c:".cue"') do (
   call :Year "%%b"
   call :Title "%%b"
   call :Folder "%%b" "%%Year%%.%%Title%%\"
)
goto :eof

:Year
for /f "tokens=3 delims= " %%d in ('findstr /r /c:"REM DATE [0-9]*" %1') do (
   set "Year=%%d" &goto :eof
)
goto :eof

:Title
for /f "tokens=1,*" %%f in ('findstr /c:"TITLE " %1') do (
   set "Title=%%~g" &goto :eof
)
goto :eof

:Folder
md "%~2\%Folder2%\" 2>nul
move "%~dp1\%~n1.*" %2
goto :eof

значение имеют только выделенные .cue


Last edited by Tol!k on Sat Dec 21, 2013 17:08; edited 1 time in total
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group