Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать


Shauniam, ХЗ устроит ли Вас по Вашему ТЗ
Код: Выделить весь код
@Echo Off
cls                                                
	Call :ReFile "D:\CMD_Forum\Box_In" "Sign"	"1 1 1"
	Call :ReFile "D:\CMD_Forum\Box_In" "Remote"	"22222222222" 
	Call :ReFile "D:\CMD_Forum\Box_In" "Spec"	"Tra la la"
	Call :ReFile "D:\CMD_Forum\Box_In" "Попов"	"Микельанджело Буанаротти"

	Call :ReFold "D:\CMD_Forum\Box_In" "Chapter"	"Параграф № "
	Call :ReFold "D:\CMD_Forum\Box_In" "ForFind"	"My great Find"
pause
Exit /B 0

:ReFile
	FOR /R %1 %%f IN ("*%~2*.*") DO (Set "Name=%%~nf" &Call Ren "%%f" "%%Name:%~2=%~3%%%%~xf")
Exit /B

:ReFold
	FOR /F "usebackq delims=" %%d IN (`2^>nul Dir %1 /S /B /A:D ^|Sort /R`) DO (Set "Name=%%~nd" &Call Ren "%%d" "%%Name:%~2=%~3%%%%~xd")
Exit /B

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Последний раз редактировалось megaloman, 02-07-2021 в 08:18.


Отправлено: 08:11, 02-07-2021 | #5