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

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

Ветеран


Contributor


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

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


surgutfred,
Код: Выделить весь код
@Echo Off
cls
	>nul chcp 1251
	Set "BoxIn=Z:\Box_In\File"
	Set "Mask=*.din"

	Set "Fstr="ОВК-Ф" "ОВМ-Ф""
		
	FOR %%f IN ("%BoxIn%\%Mask%") DO Call :Finder "%%f" %Fstr%
pause
GoTo :Eof

:Finder
	Set /A i=0
	:Begin
		Set /A i+=1
		If "%~2"=="" (Call :FstrNo %1 %2 &Exit /B 0)
		FIND /C /I %2 %1 >nul &&(Call :Fstr%i% %1 %2 &Exit /B 0)
		Shift /2
	GoTo :Begin
GoTo :Eof

:Fstr1
	Echo %1 %2
GoTo :Eof

:Fstr2
	Echo %1 %2
GoTo :Eof

:FstrNo
	Echo %1 No
GoTo :Eof
Батник сохранить в кодировке 1251

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

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

Отправлено: 21:27, 17-09-2018 | #6