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

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

Ветеран


Contributor


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

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


artbiokron@vk, Как-то Вы на лету успеваете постановку изменить.
Цитата artbiokron@vk:
пришлось переименовать файлы, чтобы они не содержали "_" и добавив префикс "P-" »
Расшифруйте, какой был файл, как Вы его переименовали, в какую папку переместили (какая-то путаница у Вас с символами "_" и "-")
Вот вариант с префиксом и групповым переносом файлов (будет работать быстрее).
Код: Выделить весь код
@Echo Off
cls
	Set  "BoxIn=Z:\Soft_In"
	Set "BoxOut=Z:\Soft_In"

	Set "Prefix=P_"
	Set "Ext=jpg"

	Set "RMask=^%Prefix%[0-9][0-9][0-9][0-9][0-9].*\.%Ext%$"
rem	Set "RMask=^%Prefix%......*\.%Ext%$"
	Set "N=2,5"

	Pushd "%BoxIn%" ||(Echo Folder "%BoxIn%" not found &Pause &Exit /b 2)
	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir /B /A:-D "%Prefix%*.%Ext%" ^|FINDSTR /I /X /R /C:"%RMask%"`) DO (
		If Exist "%%f" (
			Set "Name=%%~nf"
			2>nul Call MD "%BoxOut%\%Prefix%%%Name:~%N%%%"
			 >nul Call Move /Y "%Prefix%%%Name:~%N%%%*%%~xf" "%BoxOut%\%Prefix%%%Name:~%N%%%\"
		)
	)
	Popd
Pause
Exit /B 0
Здесь оставлен контроль кода на наличие всех цыфирей. Если в коде всё что угодно - раскомментируйте красную строку

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


Последний раз редактировалось megaloman, 15-03-2020 в 13:58.

Это сообщение посчитали полезным следующие участники:

Отправлено: 13:49, 15-03-2020 | #10