[megaloman]

CMD1

Код:

@Echo Off
cls
	Set /A N=0
	Call :NFiles "Z:\Soft_In\start\????start.*" "[0-9][0-9][0-9][0-9]start\..*" "N" "M1" 
	Call :NFiles "Z:\Soft_In\start\start????.*" "start[0-9][0-9][0-9][0-9]\..*" "N" "M2"
	Call :NFiles "Z:\Soft_In\start\start1????.*" "start1[0-9][0-9][0-9][0-9]\..*" "N" "M3"
	Echo %N%
Pause
Exit /B

:NFiles
	SetLocal
	Set /A N=0
	Set "M1="	
	Set "MN="
	FOR /F "usebackq delims=" %%a IN (`2^>nul Dir %1 /B /O:N /A:-D ^|findstr /I /R /C:"^%~2"`) DO (
		Call Set /A N+=1
		If Not Defined M1 Call Set "M1=%%a"
		Call Set "MN=%%a"		 	
	)
	If %N%==0 (Set "M1=%~nx1" &Set "MN=%~nx1")
	Echo %1 - %M1% -^> %MN% = %N% 
	EndLocal &(Set /A %~3+=%N%) &(Set %~4=%1 - %M1% -^^^> %MN% = %N%) 
Exit /B

CMD2

Код:

@Echo Off
cls
	Set /A N=0
	Call :NFiles "Z:\Soft_In\start\????start.*" "[0-9][0-9][0-9][0-9]start\..*" 4 "N" "M1" 
	Call :NFiles "Z:\Soft_In\start\start????.*" "start[0-9][0-9][0-9][0-9]\..*" 4 "N" "M2"
	Call :NFiles "Z:\Soft_In\start\stagrt????.*" "stagrt[0-9][0-9][0-9][0-9]\..*" 4 "N" "M3"
	Echo %N%
Pause
Exit /B

:NFiles
	SetLocal
	Set /A N=0
	Set "Reg=%~2"
	If "%Reg:~0,5%"=="[0-9]" (Set /A Reg=1) Else (Set /A Reg=2)
	Set "M1="	
	Set "MN="
	FOR /F "usebackq delims=" %%a IN (`2^>nul Dir %1 /B /O:N /A:-D ^|findstr /I /R /C:"^%~2"`) DO (
		Call Set /A N+=1
		If Not Defined M1 Call Set "M1=%%~na"
		Call Set "MN=%%~na"		 	
	)
	If %N%==0 (Set "M1=%~n1" &Set "MN=%~n1")
	If %Reg%==1 (Call Set "M1=%%M1:~0,%3%%") Else (Call Set "M1=%%M1:~-%3%%")
	If %Reg%==1 (Call Set "MN=%%MN:~0,%3%%") Else (Call Set "MN=%%MN:~-%3%%")
	Echo %1 - %M1% -^> %MN% = %N% 
	EndLocal &(Set /A %~4+=%N%) &(Set %~5=%1 - %M1% -^^^> %MN% = %N%) 
Exit /B

CMD3

Код:

@Echo Off
cls
	Set /A N=0
	Call :NFiles "Z:\Soft_In\start\????start.*" "[0-9][0-9][0-9][0-9]start\..*" 4 "N" "M1" 
	Call :NFiles "Z:\Soft_In\start\start????.*" "start[0-9][0-9][0-9][0-9]\..*" 4 "N" "M2"
	Call :NFiles "Z:\Soft_In\start\st22art????.*" "st22art[0-9][0-9][0-9][0-9]\..*" 4 "N" "M3"
	Echo %N%
Pause
Exit /B

:NFiles
	SetLocal
	Set /A N=0
	Set "Reg=%~2"
	If "%Reg:~0,5%"=="[0-9]" (Set /A Reg=1) Else (Set /A Reg=2)
	Set "M1="	
	Set "MN="
	FOR /F "usebackq delims=" %%a IN (`2^>nul Dir %1 /B /O:N /A:-D ^|findstr /I /R /C:"^%~2"`) DO (
		Call Set /A N+=1
		If Not Defined M1 Call Set "M1=%%~na"
		Call Set "MN=%%~na"		 	
	)
	If %N%==0 (Set "M1=%~n1" &Set "MN=%~n1")
	If %Reg%==1 (
		Call Set "NM1=%%M1:~%3%%"
		Call Set "M1=%%M1:~0,%3%%"
		Call Set "MN=%%MN:~0,%3%%"
	) Else (
		Call Set "NM1=%%M1:~0,-%3%%"
		Call Set "M1=%%M1:~-%3%%"
		Call Set "MN=%%MN:~-%3%%"
	)
	Echo %~dp1%M1% - %MN% %NM1% %N% 
	EndLocal &(Set /A %~4+=%N%) &(Set %~5=%~dp1%M1% - %MN% %NM1% %N%) 
Exit /B

Варианты отличаются способом представления выходной информации. Третий - как у Вас.

[Alexander_88]

Спасибо, все три варианта запустил, выбрал один
А не подскажите, что такое "M1" "M2" "M3" ? Я везде сделал "M1", вроде как все нормально работает, или нужно обязательно поменять цифры?

[megaloman]

Alexander_88, в переменных "M1" "M2" "M3" сообщения для каждого пути. По началу я хотел сделать вывод всех сообщений после вызова всех процедур, например:
Echo %M1%
Echo %M2%
Echo %M3%
Echo %N%
Но потом сделал вызов сообщений внутри процедуры, а эти переменные оставил про запас.
Естественно, если Вы везде указываете имя одной и той же переменной, например, M1, то сохранится только одно значение для последнего вызова процедуры.
Не обязательно имя переменной писать "M1" "M2" "M3", можно, например,"start" "aist" и т д. и затем
Echo %start%
Echo %aist%
либо Echo %start% %aist%
при этом Echo в процедуре можно убрать.