Tol!k

|
Posted: Thu Nov 28, 2013 17:12 Post subject: |
|
|
Morning и Evening без цифр?
Code: | @echo off &setlocal enableextensions
set "Folder=%%Year%%\TEST-%%N%%\%%Name%%"
set /a cntN=70
set "Names=Morning;Evening;Blah Blah Blah"
call :Year
for /l %%n in (1,1,%cntN%) do (
set /a N=100%%n &call set N=%%N:~-2%%
call :Name "%Names%"
)
)
goto :eof
:Name
for /f "tokens=1,* delims=;" %%a in ("%~1") do (
set "Name=%%~a"
call 2>nul md "%Folder%"
if not "%%~b"=="" call :Name "%%b"
)
goto :eof
:Year :: date DD.MM.YY
for /f "tokens=3 delims=-/." %%y in ("%date%") do set /a Year=20%%y
if %Year% GTR 200000 set /a Year=Year-200000
goto :eof
|
|
|