[megaloman]

архивировать их так чтобы в каждом архиве было 5 файла с одинаковыми номерами »

А почему 5, а больше 5 может быть? Что тогда делать?

123456 »

это случаем не дата (в каком формате?). А что с исходными файлами после архивации? Какое, кстати, у нах расширение? Остаются на месте или должны быть или перемещены или удалены?
Откуда берутся номера? Вы их руками собираетесь как-то определять или надо просмотреть всю папку и обработать все возможные найденные номера? Число букв в имени всегда одинаково?

[megaloman]

Вот вариант (пути пропишИте свои):
В указанной папке BoxIn просматриваются файлы вида SSS_NNNNNN.* (S-любой символ, N - цифра)
архивируются в другую папку BoxArc
При наличии файлов в ранее созданном архиве переархивироваться будут только более свежие файлы.
При отсутствии файлов в соответствующем архиве они будут добавлены в архив.

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Box_In"
	Set "BoxArc=Z:\Box_Arc"

	Set "ARC=C:\Program Files\WinRAR\WinRAR.exe"

	For /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%\???_??????.*" /B /A:-D ^|FindStr /I /R /C:"^..._[0-9][0-9][0-9][0-9][0-9][0-9]"`) Do (
		Set "Name=%%~nf"
		Call Set "Name=%%Name:~-6%%"
		Call Echo "%%f" %%Name%%
		Call "%ARC%" u -ibck -ep "%BoxArc%\%%Name%%" "%BoxIn%\%%f"
	)
pause
Exit /B

7-Zip

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Box_In"
	Set "BoxArc=Z:\Box_Arc"

	Set "ARC=C:\Program Files\7-Zip.21beta\7z.exe"
 
	For /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%\???_??????.*" /B /A:-D ^|FindStr /I /R /C:"^..._[0-9][0-9][0-9][0-9][0-9][0-9]"`) Do (
		Set "Name=%%~nf"
		Call Set "Name=%%Name:~-6%%"
		Call Echo "%%f" %%Name%%
		>nul Call "%ARC%" u -tzip "%BoxArc%\%%Name%%.zip" "%BoxIn%\%%f"
	)
pause
Exit /B

[Kofeinchik]

А почему 5, а больше 5 может быть? Что тогда делать?

Больше 5 файлов в одном архиве быть не может.

это случаем не дата (в каком формате?). А что с исходными файлами после архивации? Какое, кстати, у нах расширение? Остаются на месте или должны быть или перемещены или удалены? Откуда берутся номера? Вы их руками собираетесь как-то определять или надо просмотреть всю папку и обработать все возможные найденные номера? Число букв в имени всегда одинаково?

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

Вот вариант (пути пропишИте свои): В указанной папке BoxIn просматриваются файлы вида SSS_NNNNNN.* (S-любой символ, N - цифра) архивируются в другую папку BoxArc При наличии файлов в ранее созданном архиве переархивироваться будут только более свежие файлы. При отсутствии файлов в соответствующем архиве они будут добавлены в архив.

Спасибо , Использовал код 7-zip , но почему-то через батник архивы не создаются, а если из командной строки то создается пустой безымянный архив , в чем может быть причина?

[megaloman]

Kofeinchik, переименуйте Ваш батник в .txt файл и приложите к сообщению.
Имхо, Вы где-то напутали в путях. При работе батника должны отображаться имена исходных файлов. Они отображаются? Вообще, что Вы видите при работе батника на консоли?

Для отладки вставьте в батник со своими путями строку, которая организует на C: лог-файл. Приложите его к сообщению.

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Box_In"
	Set "BoxArc=Z:\Box_Arc"

	Set "ARC=C:\Program Files\7-Zip.21beta\7z.exe"

	>"C:\%~nx0.log" (Dir "%BoxIn%" &Dir "%BoxArc%" &Dir "%ARC%") 
 
	For /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%\???_??????.*" /B /A:-D ^|FindStr /I /X /R /C:"^..._[0-9][0-9][0-9][0-9][0-9][0-9]"`) Do (
		Set "Name=%%~nf"
		Call Set "Name=%%Name:~-6%%"
		Call Echo "%%f" %%Name%%
		>nul Call "%ARC%" u -tzip "%BoxArc%\%%Name%%.zip" "%BoxIn%\%%f"
	)
pause
Exit /B

[Kofeinchik]

Имхо, Вы где-то напутали в путях. При работе батника должны отображаться имена исходных файлов. Они отображаются? Вообще, что Вы видите при работе батника на консоли?

Если удалить строчку с FindStr архивация происходит , также может быть проблема в том что в имени файла есть файлы с 3 буквами и 4мя (только щас заметил) , но номер количество цифр одинаковое. Логи пока не могу дать.

[megaloman]

Kofeinchik, Надо так (после Ваших уточнений):

Код:

	For /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%\*_??????.*" /B /A:-D ^|FindStr /I /R /C:"^.*_[0-9][0-9][0-9][0-9][0-9][0-9]"`) Do (

Если у файлов гарантированно есть расширение, то лучше так:

Код:

	For /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%\*_??????.*" /B /A:-D ^|FindStr /I /R /C:"^.*_[0-9][0-9][0-9][0-9][0-9][0-9]\."`) Do (

[Kofeinchik]

megaloman, Спасибо большое, так заработало.