[Iska]

subuday77, приведите пример имён реальных файлов: важно увидеть длину и выделить постоянную часть.

[kiripanda]

http://wincmd.ru/plugring/seq_wfx.html

[subuday77]

Iska, Оно так и выглядит. Первые 5 цифр номер лицензии, 3 цифры - номер архива, расширение показывает, с какого сервера файл. Собственно в одном массиве первые 5 цифр чаще всего одинаковыми, кроме случаев, когда на одной машине работают несколько клиентов. Но длина имени всегда 5+3 . 3

kiripanda, спасибо, но не вариант. Проверка выпоняется на машинах клиентов.

[Georgio]

subuday77, для двух расширений файлов:

Код:

@ECHO OFF
SET Folder=E:\Work\
SET Extension_1=.‚10
SET Extension_2=.‚12
SETLOCAL ENABLEDELAYEDEXPANSION
FOR /F "tokens=1 delims=." %%I IN ('DIR %Folder% /B /O:N') DO (
SET Name=%%I
GOTO #
)
:#
FOR /F "tokens=1 delims=." %%I IN ('DIR %Folder% /B /O:N') DO (
  SET /A Skip=%%I-!Name!-1
  IF !Skip! GEQ 1 (
    FOR /L %%K IN (1,1,!Skip!) DO (
     SET /A Missing_File=!Name!+%%K
     ECHO !Missing_File!%Extension_1%
     ECHO !Missing_File!%Extension_2%
)
   IF NOT EXIST %Folder%%%I%Extension_1% ECHO %%I%Extension_1%
   IF NOT EXIST %Folder%%%I%Extension_2% ECHO %%I%Extension_2%
   SET Name=%%I
) ELSE (
   IF NOT EXIST %Folder%%%I%Extension_1% ECHO %%I%Extension_1%
   IF NOT EXIST %Folder%%%I%Extension_2% ECHO %%I%Extension_2%
   SET Name=%%I
))
PAUSE>nul

[Iska]

Iska, Оно так и выглядит. Первые 5 цифр номер лицензии, 3 цифры - номер архива, расширение показывает, с какого сервера файл. Собственно в одном массиве первые 5 цифр чаще всего одинаковыми, кроме случаев, когда на одной машине работают несколько клиентов. Но длина имени всегда 5+3 . 3 »

subuday77, Вам как удобнее задавать потребную папку, постоянную часть имени («Первые 5 цифр номер лицензии») и расширение («расширение показывает, с какого сервера файл») — будете менять непосредственно в теле пакетного файла, будете задавать параметрами пакетного файла, будете вводить в ответ на запрос пакетного файла?

Можно, например, перетаскивать какой-либо файл (из набора потребных для проверки) на пакетный файл, а пакетный файл по переданному имени уже сам будет определять папку, постоянную часть имени и расширение, иначе — запрашивать то. другое и третье в диалоге:

читать дальше »

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set sFullFileName=%~1

if defined sFullFileName (
	set sFolder=%~dp1
	set sTempValue=%~n1
	set sConstPart=!sTempValue:~0,5!
	set sExt=%~x1
) else (
	set /p sTempValue=Enter folder name:
	set sFolder=!sTempValue!\
	set /p sConstPart=Enter constant part of file name:
	set /p sTempValue=Enter extension of file name:
	set sExt=.!sTempValue!
)

if exist "%sFolder%." (
	for /l %%i in (999, -1, 1) do (
		set sPattern=000%%i
		set sFileName=%sConstPart%!sPattern:~-3!%sExt%
		
		if exist "%sFolder%!sFileName!" if not defined sLastIndex set sLastIndex=%%i
	)

	if defined sLastIndex (
		for /l %%i in (1, 1, !sLastIndex!) do (
			set sPattern=000%%i
			set sFileName=%sConstPart%!sPattern:~-3!%sExt%
			
			if not exist "%sFolder%!sFileName!" echo !sFileName!
		)
	) else (
		echo Not found any file in folder [%sFolder%] by pattern [%sConstPart%xxx%sExt%].
	)
) else (
	echo Folder [!sFolder!] not found.
)
	
pause

endlocal
exit /b 0

[Georgio]

subuday77, вот простой и почти универсальный вариант:

Код:

@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
SET Folder=E:\Work
SET n=0
FOR /F "tokens=2 delims=." %%I IN ('DIR "%Folder%" /B /O:E') DO IF NOT "%%I"=="!Extension!" SET Extension=%%I&&SET /A n=!n!+1&&SET Extension_!n!=%%I
SET Max_Name=0
FOR %%I IN ("%Folder%\*") DO IF %%~nI GEQ !Max_Name! SET Max_Name=%%~nI
SET Min_Name=!Max_Name!
FOR %%I IN ("%Folder%\*") DO IF %%~nI LEQ !Min_Name! SET Min_Name=%%~nI
FOR /L %%I IN (!Min_Name!,1,!Max_Name!) DO FOR /F "tokens=2 delims==" %%J IN ('SET Extension_') DO IF NOT EXIST "%Folder%\%%I.%%J" ECHO %%I.%%J
PAUSE>nul

В качестве рабочей переменной задаётся только каталог. Число расширений и длина имени файла не лимитированы. Необходимо только, чтобы в имени файла были только цифры без нулей в начале.

[subuday77]

Iska, Georgio, спасибо! В воскресенье выйду на работу, буду пробовать.

[megaloman]

Первые 5 цифр номер лицензии, 3 цифры - номер архива, расширение показывает, с какого сервера файл. Собственно в одном массиве первые 5 цифр чаще всего одинаковыми, кроме случаев, когда на одной машине работают несколько клиентов. Но длина имени всегда 5+3 . 3

Вот решение, если имена файлов (первые 5 знаков) в папке возможны разные, при этом:

-имена файлов 5+3, где 5 знаков префикс, 3 знака номер,
-для каждого префикса могут быть свой набор расширений,
-начало и конец нумерации для каждого префикса может быть своя,

Код:

@Echo Off
cls
SetLocal EnableExtensions EnableDelayedExpansion

Set Where=E:\DDDDDDDDD\bbbb

Set Name=

FOR /F "usebackq delims=" %%n IN (`Dir "%Where%\*.*" /B /O:N`) DO (
	Set N=%%~nn
	Set NN1=1!N:~-3!
	Set N=!N:~0,5!
	If /I Not "!Name!"=="!N!" (
		Set Name=!N!
		Set NN2=""
		FOR /F "usebackq delims=" %%m IN (`Dir "%Where%\!Name!???.*" /B /O:-N`) DO If !NN2!=="" Set NN2=%%~nm
		Set NN2=1!NN2:~-3!

		Set Ext=
		FOR /F "usebackq delims=" %%m IN (`Dir "%Where%\!Name!???.*" /B /O:E`) DO (
			If /I Not "!Ext!"=="%%~xm" (
				Set Ext=%%~xm
				FOR /L %%i IN (!NN1!,1,!NN2!) DO (
					Set FNo=%%i
					Set FNo="%Where%\!Name!!FNo:~-3!!Ext!"
					If Not Exist !FNo! Echo !FNo!
				)
			)
		)

	)
)

Вместо E:\DDDDDDDDD\bbbb пропишите свой путь без \ и БЕЗ ПРОБЕЛОВ в конце строки
Если нумерация в имени обязательно должна начинаться с 001,

читать дальше »

то вместо имеющегося надо написать цикл

Код:

FOR /L %%i IN (1001,1,!NN2!) DO (

хотя, в принципе, в этом случае батник можно упростить

читать дальше »

Код:

@Echo Off
cls
SetLocal EnableExtensions EnableDelayedExpansion

Set Where=E:\DDDDDDDDD\bbbb

Set Name=

FOR /F "usebackq delims=" %%n IN (`Dir "%Where%\*.*" /B /O:-N`) DO (
	Set N=%%~nn
	Set NN2=1!N:~-3!
	Set N=!N:~0,5!
	If /I Not "!Name!"=="!N!" (
		Set Name=!N!

		Set Ext=
		FOR /F "usebackq delims=" %%m IN (`Dir "%Where%\!Name!???.*" /B /O:E`) DO (
			If /I Not "!Ext!"=="%%~xm" (
				Set Ext=%%~xm
				FOR /L %%i IN (1001,1,!NN2!) DO (
					Set FNo=%%i
					Set FNo="%Where%\!Name!!FNo:~-3!!Ext!"
					If Not Exist !FNo! Echo !FNo!
				)
			)
		)

	)
)

[Foreigner]

Мой вариант

Код:

@echo off
setlocal

pushd "C:\test"

for /f %%i in ('dir /b') do set "ext_%%~xi=%%~xi"
for /f "tokens=2 delims==" %%i in ('set ext_') do call:1 "%%i"
popd
goto:eof

:1
for %%i in (*%~1) do if not defined min (set min=%%~ni) else (set max=%%~ni)
for /l %%i in (%min%,1,%max%) do if not exist %%i%~1 echo %%i%~1

for %%i in (min max) do set "%%i="