[megaloman]

POSTREALITY, количество знаков в числе постоянное? Перед числом обязательно "_"? Число в конце имени? А если папки с подходящим именем нет?

[POSTREALITY]

megaloman,
"Количество знаков в числе постоянное?" - ДА (во всех случаях - ровно 20 цифр)
Перед числом обязательно "_"? - к сожалению, ДА.
"Число в конце имени?" - ДА
"А если папки с подходящим именем нет?" - в конце скрипта добавлю пересчёт файлов в папке и выведу сообщение в консоль типа "в папке осталось n файлов".
Большое спасибо!

[megaloman]

Код:

@Echo Off
Cls
	Set "FileIn=Z:\Box_In\*_*.txt"
	Set "Delim=_"
	Set "BoxOut=Z:\Box_Out"

	For %%i In ("%FileIn%") Do Call :Name "%BoxOut%" "%Delim%" "%%i"

	Set /A N=0
	For %%i In ("%FileIn%") Do Set /A N+=1
	Echo !!! Осталось неперемещенными %N% файлов "%FileIn%"
pause
GoTo :Eof

:Name
	Set "S=%~n3"
	:Begin
		Set "SS=%S%
		Call Set "S=%%SS:*%~2=%%"
	If Not "%SS%"=="%S%" GoTo :Begin

rem	If Not Exist "%~1\%S%" Md "%~1\%S%"
	If Not Exist "%~1\%S%" Exit /B 1
	>nul Move /Y %3 "%~1\%S%\"
Exit /B 0

[POSTREALITY]

megaloman,

Большое спасибо!

Что до :Name примерно понял, что после вообще не понимаю

Подскажите пожалуйста, тут есть одно НО:
У меня "%BoxOut%" является не единой директорией. Их под 50 разных. Я их обозначил переменными типа:
SET "00000000000000000000=X:\папка\конечная папка"
SET "11111111111111111111=X:\папка2\подпапка\конечная папка"
SET "22222222222222222222=X:\папка\подпапка2\конечная папка"
SET "33333333333333333333=X:\ещё какой нибудь путь к конечной папке"
Единственное что объединяет конечные папки - они все лежат на одном диске.
Как быть в таком случае?

[alpap]

У меня "%BoxOut%" является не единой директорией »

а очень желательно сделать именно так потому как

Единственное что объединяет конечные папки - они все лежат на одном диске »

очень затруднит поиск, не сам поиск конкретно, а время, ушедшее на поиск папки по всему диску и еще надо предполагать совпадение имен с возможной другой такой папкой.
И да, лепить в код 50 переменных для путей поддиректорий неблагодарная и неправильная затея.

[POSTREALITY]

alpap,

а очень желательно сделать именно так потому как »

К сожалению, это технически не реально, потому как пути данных директорий созданы с определённой логикой и изменение данных путей приведёт к краху других систем.

а время, ушедшее на поиск папки по всему диску »

Так ведь искать папки не надо, я же в переменных указываю полные пути к конечным папкам.

[megaloman]

Код:

@Echo Off
Cls
	Set "FileIn=Z:\Box_In\*_*.txt"
	Set "Delim=_"

	Set "@@Out1=Z:\Box_Out\01010101"
	Set "@@Out2=Z:\Box_Out\02020202"
	Set "@@Out3=Z:\Box_Out\03030303"

	For %%i In ("%FileIn%") Do Call :Name "@@Out" "%Delim%" "%%i"

	Set /A N=0
	For %%i In ("%FileIn%") Do Set /A N+=1
	Echo !!! Осталось неперемещенными %N% файлов "%FileIn%"
pause
GoTo :Eof

:Name
	Set "S=%~n3"
	:Begin
		Set "SS=%S%
		Call Set "S=%%SS:*%~2=%%"
	If Not "%SS%"=="%S%" GoTo :Begin
	FOR /F "usebackq tokens=1* delims==" %%i IN (`2^>nul Set "%~1"`) DO (
		If "%%~nj"=="%S%" >nul Move /Y %3 "%%j\" &&Exit /B 0
	)
Exit /B 1

Пути для Out-папок могут быть произвольными без "\" на конце

[POSTREALITY]

megaloman,
Огромное спасибо!

Слегка доработал скрипт под свои нужды, работает все идеально.

P.S.: Не могли бы Вы посоветовать толковую литературу про...

Код:

FOR /F "usebackq tokens=1* delims==" %%i IN (`2^>nul Set "%~1"`) DO (
		If "%%~nj"=="%S%" >nul Move /Y %3 "%%j\" &&Exit /B 0
	)

подобную магию?

[megaloman]

Не могли бы Вы посоветовать толковую литературу про... »

Как-то напряжно. Чаще всего смотрю Help по командам, например For /?
Здесь на портале есть в начале темы пункт с ссылками.
Но, прежде всего, наибольшую пользу я получаю от разбора решений задач и своих попыток что-то решать своими силами.
Что непонятно - спрашиайте.