[megaloman]

Если надо идентичность файлов

Код:

@Echo Off
Cls
	Set "FileIn=Z:\Soft_In\1.txt"
	Set "FileOut=Z:\Soft_In\2.txt"

	Set "Reestr=2, 5, 7, 15, 17, 19, 23, 31, 35"
	Set /A Tsec=10
	
	Set "SR=="
	For %%i In (%Reestr%) Do Call Set "SR=%%SR%%%%i="
	:Begin1
		Call :NoFile "%FileIn%" %Tsec% ||GoTo :Begin1

		3<"%FileIn%" (Set /p SIn=<&3)
		Call :Found "%SIn%" "%SR%" %Tsec% ||GoTo :Begin1

		>nul Move /Y "%FileIn%" "%FileOut%"
		Set "SInNew=%SIn%"
	:Begin2
		Call :NoFile "%FileIn%" %Tsec% ||GoTo :Begin2

	3<"%FileIn%" (Set /p SInNew=<&3)

	If     "%SInNew%"=="%SIn%" Echo +++ Файлы "%FileIn%" "%FileOut%" одинаковые. Что дальше - не знаю :) &Pause &Exit /b 0
	If Not "%SInNew%"=="%SIn%" Echo --- Файлы "%FileIn%" "%FileOut%" разные.     Что дальше - не знаю :) &Pause &Exit /b 1
GoTo :Eof

:NoFile
	If Not Exist %1 (
		Echo --- Нет файла %1
		Timeout /T %~2
		Exit /B 1 &Rem Файла нет
	)
Exit /B 0

:Found
	For %%i In (%~1) Do >Nul (Echo %~2|Find "=%%i=")||(
		Echo --- Нет %%i в реестре значений
		Timeout /T %~3
		Exit /B 1 &Rem Что-то не найдено в реестре значений
	)
Exit /B 0

Если надо одинаковые числа в файлах вне зависимости от порядка

Заменить выделенный кусок предыдущего кода

Код:

	:Begin2
		Call :NoFile "%FileIn%" %Tsec% ||GoTo :Begin2
	Set "SRnew=="
	For %%i In (%SIn%) Do Call Set "SRnew=%%SRnew%%%%i="

	3<"%FileIn%" (Set /p SInNew=<&3)
	Call :Found "%SInNew%" "%SRnew%" 0

	If     "%ErrorLevel%"=="0" Echo +++ В файлах "%FileIn%" "%FileOut%" одинаковые числа. Что дальше - не знаю :) &Pause &Exit /b 0
	If Not "%ErrorLevel%"=="0" Echo --- В файлах "%FileIn%" "%FileOut%" числа отличаются. Что дальше - не знаю :) &Pause &Exit /b 1

Я сделал таймаут (у меня 10 сек) для ожидания 1 файла, если его нет или если значения не содержатся в реестре.

[papacoca]

set "var=" »

Возникла проблемка с этим набором цифр.

Код:

set "var=1 4 6 14 16 20 24 32 39"

Если в 1.txt число 1 и число 2 = 1 15, пишет: Есть оба числа, поехали дальше выполнять, а в действительности 15 нету.

Для этого набора все четко работает:

Код:

set "var=2 5 7 15 17 19 23 31 35"

[YuS_2]

Возникла проблемка »

Да, это я не продумал...

Для этого набора все четко работает: »

Боюсь, что тоже не четко... можно проверить, два числа 2 и 25, например...
В общем, надо менять механизм проверки.

Код:

@echo off
set "file1=1.txt"
set "file2=2.txt"
set "var=2 5 7 15 17 19 23 31 35"

:begin
cls
echo.Проверяем числа
set /a f1=0,f2=0
if not exist "%file1%" (echo.Такого файла [%file1%], не существует&pause&exit /b)
<1.txt (for /f "tokens=1,2" %%a in ('more') do (
		for %%i in (%var%) do (	
			if [%%a] equ [%%i] (set /a f1=1)
			if [%%b] equ [%%i] (set /a f2=1)
		)
	)
)
if %f1% equ 1 (
	if %f2% equ 1 (goto next) else (
		echo Возвращаемся в начало до посинения, пока в файле не появятся обе цифры
		timeout /t 3
		goto begin
	)
) else (
	echo Возвращаемся в начало до посинения, пока в файле не появятся обе цифры
	timeout /t 3
	goto begin
)
pause&echo Error&exit /b

:next
echo.
echo.Есть оба числа, поехали дальше выполнять
timeout /t 5
echo.Выполнили
echo.
echo Переименовываем [%file1%] В [%file2%]
move /y "%file1%" "%file2%"

:wait
if not exist "%file1%" (echo.Ожидаем создания [%file1%]&timeout /t 5&echo.&goto wait)
>nul fc "%file1%" "%file2%"&&(echo.Файлы идентичны&goto next2)
echo.Файлы отличаются, поехали дальше...
echo.Приехали! Станция "Конечная".
pause&exit /b

:next2
echo.здесь выполняем код, если файлы одинаковые.
pause&exit /b

[papacoca]

В общем, надо менять механизм проверки. »

Скрипт работает хорошо! Но есть такой баг не в скрипте а в файле file1=1.txt который создается автоматически, бывает он пустой или с иероглифами типа @ #
Можете подсказать: чтобы скрипт дополнительно проверял file1=1.txt, если он пустой или содержит @ # эти символы то выполнял заново.
Если можно в пару строк)

[YuS_2]

если он пустой или содержит @ # эти символы то выполнял заново. Если можно в пару строк »

Можно даже короче
надо заменить квадратные скобки на кавычки в условных проверках, т.е. вот эти две строки:

Код:

			if [%%a] equ [%%i] (set /a f1=1)
			if [%%b] equ [%%i] (set /a f2=1)

должны стать таким:

Код:

			if "%%a" equ "%%i" (set /a f1=1)
			if "%%b" equ "%%i" (set /a f2=1)

и всё.

PS Хотя он и с квадратными скобками должен в начало переходить и работать по кругу, пока цифры не появятся...
А у Вас что происходило?