[c4uran]

после твоей помощи написал вот такой вот скрипт, но запутался c ! и % переодически если смотреть дебаг (@echo off) он не распознает переменные, посмотри пожалуйста я не могу понять куда endlocal нужно вставлять или как правильно пользоваться !var! а где %var%

Скрипт работает в двух режимах

1. натравливается на директорию и переименовывает все видео файлы в под папках на имя папок в которых в это время находятся, далее отчищает от мусора, после этого перемещает эти видео файлы в корень и удаляет пустые под папки

a. если в под папке несколько видео файлов то присваивает им названия partYНомер и имя папки в которой лежит
b. если в под папке только 1 файл то называет его по имени папки в которой лежит

2. также натравливается на директорию но только чистит все имена от мусора

логирование помечено REM (если разРЕМить то будет все писаться в лог)

Код:

@echo off
setlocal enableextensions enabledelayedexpansion
REM chcp 1251
set "sDestFolder=D:\video\test"
set "sLog=%sDestFolder%\renamer.log"
del /f /q %slog%

echo ##^> %date% %time% >> %sLog%

set "ext=*.mp4 *.mkv *.flv *.wmv *.avi *.m4v"
set "exceptions=480p 540p 720p 1080p"

:: Различие методов в том что по умолчанию работает с папками и их именами
:: а метод только очистки работает с файлами и не привязан к папкам
echo %* | find /i "/clean">nul&&set clean=1&&echo clean-mode >>%sLog%||echo rename-mode >>%sLog%

for /r "%sDestFolder%" %%a in (%ext%) do call :action "%%a"

:: Очищать папки нужно только при работе с подпапками
if not defined clean for /r "%sDestFolder%" %%a in (%ext%) do call :moving "%%a"
call :erase
echo ##^< %date% %time% >> %sLog%
REM chcp 866
type "%slog%"
pause
endlocal
exit /b


:action
setlocal enableextensions enabledelayedexpansion
:: Переподсчет происходит только при смене папки
if not "!sSourcePath!" == "%~dp1" set "sMultyFile="
set "sSourcePath=%~dp1"
set "sCountFile="
set "sFile=!sSourcePath:%sDestFolder%=!..\%~nx1"

if defined clean call :ActionCleanOnly "%~1"&exit /b

:: Если файл в НЕ под папке то пропускаем его 
if "%sDestFolder%\%~nx1" == "%~1" echo skip !sFile! >>%sLog%&exit /b

for /r "%sSourcePath%" %%k in (*.%ext%) do set /a sCountFile+=1

call :getinfo "%~1"

if "%sCountFile%" == "1" (
	set "thread=1"
	echo SingleFile: !sFile! >>%sLog%
	call :renaming "%~1"
) ELSE (
	set "thread="
	:: Для красивого лога, чтобы  сообщение о папке выводилось только 1 раз
	if not "!MultiFiles!" == "%~dp1" echo MultiFiles: "%~dp1" >>%sLog%
	set "MultiFiles=%~dp1"
	call :renaming "%~1"
)
exit /b

:getinfo

exit /b

:erase
:: Удаляем мусор из директории
for /r "%sDestFolder%" %%a in (*.nfo) do call del /f /q "%%a"
for /r "%sDestFolder%" %%a in (*.txt) do call del /f /q "%%a"
for /f "delims=" %%d in ('dir "%sDestFolder%" /s /b /ad ^| sort /r') do rd "%%d"
exit /b



:ActionCleanOnly
:: Добавляем part убираем слеши \
set "sNewName=%~nx1"

call :cleaningname "%sNewName%"

:: Проверка на существование файла
if exist "%~dp1\%sNewName%" (
	REM echo "%~nx1" ^> !sNewName! error! >>%sLog%
 ) else (
	ren "%~1" "%sNewName%" && echo "%~nx1" ^> %sNewName% succes! >>%sLog%
)
exit /b

:renaming
set "sNewNamePart1=!sSourcePath:%sDestFolder%=!"
:: Добавляем part убираем слеши \
if "%thread%" == "1" (
	set "sNewName=!sNewNamePart1:~1,-1!%~x1"
) else (
	REM set "sNewName=!sNewNamePart1:~1,-1!.part!sMultyFile!%~x1"
	set "sNewName=!sNewNamePart1:~1,-1!.%~nx1"
)

echo %sNewName% | find /i "\">nul&&exit /b


call :cleaningname "!sNewName!"
:: Проверка на существование файла
if exist "%~dp1\%sNewName%" (
	echo "%~nx1" ^> %sNewName% error! >>%sLog%
 ) else (
	ren "%~1" "!sNewName!"
	if errorlevel 0 echo "%~nx1" ^> %sNewName% succes! >>%sLog%
)
exit /b

:moving
:: Перемещаем
set "sSourcePath=%~1"
REM set "sFile=!sSourcePath:%sDestFolder%\=!"
REM echo %sFile% | find /i "\">nul&&exit /b
:: Если файл НЕ в под папке то пропускаем его 
if "%sDestFolder%\%~nx1" == "%~1" exit /b

if not exist "%sDestFolder%\%~nx1" (
	move "!sSourcePath!" "%sDestFolder%"
	if errorlevel 0 echo mv "%~nx1" ^> !sNewName! succes >>%sLog%
)
exit /b


:cleaningname
echo %~n1 | findstr /i "%exceptions%" > nul && for %%w in (%exceptions%) do set "sNewName=!sNewName:%%w=!"
set "sNewName=!sNewName:&=!"
set "sNewName=!sNewName:[=!"
set "sNewName=!sNewName:] =.!"
set "sNewName=!sNewName:]=!"
set "sNewName=!sNewName:(=- !"
set "sNewName=!sNewName:)=!"
set "sNewName=!sNewName:{=!"
set "sNewName=!sNewName:}=!"
set "sNewName=!sNewName: =.!"
set "sNewName=!sNewName:. .=.!"
:: обязательно должнот быть в конце т.к зачищает после предыдущих чисток
for %%l in (.. ... .... ..... ...... -- --- __ ___ _____) do set "sNewName=!sNewName:%%l=.!"
for %%l in (.. ... .... ..... ...... -- --- __ ___ _____) do set "sNewName=!sNewName:%%l=.!"
exit /b