[UnrealMalcolm]

И ещё вопрос, как лучше использовать

Код:

setlocal enableextensions enabledelayedexpansion

?

В начале .bat файла и без endlocal или перед началом данного скрипта с закрытием endlocal?

.bat файл большой, там ещё много всего. Но нигде не используется setlocal и так же нет call функции.

Ещё немного упростил ваш скрипт, не очень понял зачем создавались некоторые функции и строки.

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set work_folder=%userprofile%\documents\Files


set /a prefix = 0
echo ---------------------------------------------

for /f "usebackq delims=" %%i in (`2^>nul dir /b /a:-d "%work_folder%\*.*"`) do (
	set /a prefix += 1
	set "choice!prefix!=%%~i"
	echo !prefix! - %%~i
)

echo ---------------------------------------------
set /p file_number=Enter file number: 
echo.
	


if defined choice%file_number% set my_file=!choice%file_number%:~17,-4!



echo %prefix%
echo %my_file%

endlocal

[Iska]

как лучше использовать setlocal enableextensions enabledelayedexpansion? В начале .bat файла и без endlocal или перед началом данного скрипта с закрытием endlocal?»

Лучше использовать по назначению.

[megaloman]

UnrealMalcolm, По идее мне не нравится идея : 500 файлов промелькнёт на экране мигом, а как номер выбирать? Я наваял вывод квантами, например, по 30 штук. В принципе, количество выводимых за раз строк можно поставить 100000, и получится как у Iska

Код:

@Echo Off
Cls

Set "BoxIn=E:\_Скопировано.wd\201309_Испания_Барселона"
Set /A Quota=30

Set /A N=0
FOR /F "usebackq delims=" %%f IN (`2^>nul Dir "%BoxIn%\" /b /A:-d`) DO (
	Set /A N+=1
	Call Set "Num=$$$$$$%%N%%" 
	Call Set "%%Num:~-5%%=%%~nxf"
)

Set /A iN=0
Set "MyName="
FOR /F "usebackq tokens=1* delims==" %%i IN (`2^>nul Set "$"`) DO Set "Num=%%i" &Call :OutName "MyName" "%%Num:$= %%" "%%~nxj" ||GoTo :End
:End

If Not "%MyName%"=="" (Echo "%MyName%") Else (Echo File not selected)
Pause
Exit /B

:OutName
	Set /A iN+=1
	Echo %~2 %~3

	If %iN% EQU %Quota% Call :MyPause %1 %2 %3 ||Exit /B 1
	If %iN% EQU %N%     Call :MyPause %1 %2 %3 ||Exit /B 1
Exit /B 0

:MyPause
	Set /A iN=0, jN=0
	Set /P jN=Type number 1-%N% of file, or Q-Quit, or Enter or any key to continue:
	If /I "%jN%"=="Q" Exit /B 2 
	Set /A jN=jN*1
	If %jN% EQU 0 Exit /B 0
	If 1 LEQ %jN% If %jN% LEQ %N% (GoTo :Rezult) Else (Echo Wrong number %jN% &GoTo :MyPause) 

	:Rezult
		Set "jN=$$$$$$%jN%"
		Call Set "jN=%%%jN:~-5%%%"
		Call Set "%~1=%%jN%%"
Exit /B 1

[Iska]

, а как номер выбирать? »

Прокручивать. Если мне не изменяет память, там окно в три тысячи строк. Хотя могу и ошибаться. Проверять, сбрасывая на умолчания, не хочу.

[megaloman]

UnrealMalcolm,

Прокручивать. Если мне не изменяет память, там окно в три тысячи строк. Хотя могу и ошибаться. Проверять, сбрасывая на умолчания, не хочу. »

Если это Вас устраивает, вот мой вариант без разбиения на экраны:

Код:

@Echo Off 
Cls

Set "BoxIn=E:\_Скопировано.wd\201309_Испания_Барселона"

Set /A N=0
FOR /F "usebackq delims=" %%f IN (`2^>nul Dir "%BoxIn%\" /b /A:-D`) DO (
	Set /A N+=1
	Call Set "Num=$$$$$$%%N%%"
	Call Set "Num=%%Num:~-5%%"
	Call Echo %%Num:$= %%  %%~nxf
	Call Set "%%Num%%=%%~nxf"
)
Set /P jN=Type number 1-%N% of file:
Set "Num=$$$$$$%jN%"

Set "MyName="
If 1 LEQ %jN% If %jN% LEQ %N% Call Set "MyName=%%%Num:~-5%%%" 
If Not "%MyName%"=="" (Echo %Num:$= %="%MyName%") Else (Echo File %jN% not selected)

Pause
Exit /B

[UnrealMalcolm]

megaloman, спасибо за предложенный вариант, но я уже остановился на варианте Iska.

Немного под себя переделал, добавил пару проверок на наличие папки, файлов, ввода корректного номера файла и т.д. Всё работает отлично.

Наверное последнее чего я не понял, как обработать вывод "%%~i".

Код:

for /f "usebackq delims=" %%i in (`2^>nul dir /b /a:-d "%my_folder%\*.*"`) do (
	set /a prefix += 1
	set "choice!prefix!=%%~i"
	echo !prefix! - %%~i
)

Как мне в строке "echo !prefix! - %%~i" - обработать %%~i чтоб убрать формат? Т.е. нужно как-то прицепить вот эту штуку -> :~0,-4, чтобы убрать с конца 4 символа. А так всё супер.

EDIT: это было просто, вчера голова уже совсем не сображала.

Код:

set file_tmp=%%~i
echo !prefix! - !file_tmp:~0,-4!

Всем спасибо кто помогал, на этом всё.

/close

[Iska]

Код:

%%~ni