[Iska]

Вы уж определитесь:

Скрытый текст

[Medvedoc]

Iska, правильно в структуре указано

[megaloman]

Medvedoc,

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Box_In\Пример"
	Set "Ext=zip"
	Set "Ext=txt.zip"
	Set "FileTxt=Z:\Box_In\Пример\Текстовый файл.txt"

	Set Arc="C:\Program Files\WinRAR\WinRAR.exe"
	
	If Not Exist "%FileTxt%" Echo File "%FileTxt%" not found &Pause &Exit /B

	Set "DirTmp=%BoxIn%\%~nx0.tmp"
	2>nul Rd /S /Q "%DirTmp%"
	Md "%DirTmp%"

	Pushd %BoxIn% &&(
		FOR /F "usebackq delims=" %%s IN ("%FileTxt%") DO (
			Echo %%s>>"%DirTmp%\%%~xs.txt"
		)
		For /F "usebackq tokens=* delims=." %%i In (`2^>nul Dir "%DirTmp%\.*.txt" /B /A:-D`) Do (
			If Exist "%%~ni.%Ext%" (
				%Arc% e -y -ibck "%%~ni.%Ext%" "%%i"
				If Exist "%%i" (
					>nul Copy /B "%%i"+"%DirTmp%\.%%i" "%%i"
					%Arc% a -y -ep -df -ibck "%%~ni.%Ext%" "%%i"
				)
			)
		)
		Popd
	)
	2>nul Rd /S /Q "%DirTmp%"
	FOR /F "tokens=2 delims==." %%d in ('WMIC OS GET LOCALDATETIME /VALUE') DO SET "ToDay=%%d"
	>nul Move "%FileTxt%" "%FileTxt%.%ToDay%"
Pause
Exit /B

Так как постановка путанная, сейчас работает формат имени aaa.txt.zip, если надо aaa.zip строку
Set "Ext=txt.zip"
удалите

[Medvedoc]

megaloman, отлично работает. Единственное только проблемы с кириллицей, но заменив название файла на латиницу все прекрасно сработало.

А как сделать теперь наоборот? Поиск по папкам и удаление если имеется? То есть берется название из текстового файла пробегается по архивам и если такое есть просто удаляет его.

[megaloman]

Medvedoc, чтобы не было проблем с кириллицей, сохраняйте батник в 866 кодировке.
Либо после cls вставьте
>nul chcp 1251

берется название из текстового файла пробегается по архивам и если такое есть просто удаляет его »

Что есть в текстовом файле и что удаляется: строка в заархивированном файле или целиком архив.

[megaloman]

Medvedoc, Если удалить в заархивированном файле строки, указанные в текстовом, то:

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Box_In\Пример"
	Set "Ext=zip"
	Set "Ext=txt.zip"
	Set "FileTxt=Z:\Box_In\Пример\Текстовый файл.txt"

	Set Arc="C:\Program Files\WinRAR\WinRAR.exe"
	
	If Not Exist "%FileTxt%" Echo File "%FileTxt%" not found &Pause &Exit /B

	Set "DirTmp=%BoxIn%\%~nx0.tmp"
	2>nul Rd /S /Q "%DirTmp%"
	Md "%DirTmp%"

	Pushd %BoxIn% &&(
		FOR /F "usebackq delims=" %%s IN ("%FileTxt%") DO (
			Echo %%s>>"%DirTmp%\%%~xs.txt"
		)
		For /F "usebackq tokens=* delims=." %%i In (`2^>nul Dir "%DirTmp%\.*.txt" /B /A:-D`) Do (
			If Exist "%%~ni.%Ext%" (
				%Arc% e -y -ibck "%%~ni.%Ext%" "%%i"
				If Exist "%%i" (
					>".%%i" FindStr /B /L /I /V /G:"%DirTmp%\.%%i" "%%i"
					>nul Move /Y ".%%i" "%%i"
					%Arc% a -y -ep -df -ibck "%%~ni.%Ext%" "%%i"
				)
			)
		)
		Popd
	)
	2>nul Rd /S /Q "%DirTmp%"
	FOR /F "tokens=2 delims==." %%d in ('WMIC OS GET LOCALDATETIME /VALUE') DO SET "ToDay=%%d"
	>nul Move "%FileTxt%" "%FileTxt%.%ToDay%"
Pause
Exit /B

[Medvedoc]

Да, все отлично работает спасибо большое

А что нужно добавить, чтобы в командной строке видеть процесс выполнения? А то когда папок больше 100 не понятно идет процесс или нет

[megaloman]

А то когда папок больше 100 »

Папок или архивов? Если архивов, то добавить одну строку с Echo после If

Код:

			If Exist "%%~ni.%Ext%" (
				Echo %Time%	"%%~ni.%Ext%"  

Чтобы архиватор не мешал наблюдать процесс добавил ключ -ibck