[Elven]

1. на cmd это решается долго, нудно, паскудно. Если есть возможность - лучше смотреть в пошик (обычно такая возможность есть, если нет - аргументы в студию). Вот даже здесь похожая задача решалась.
2. сейчас (а возможно даже уже) в тему заглянет Iska и затребует пример файла, или как минимум задаст вполне справедливые вопросы по кодироке и окончанию строк.

[megaloman]

Очередной вариант создания искусственного интеллекта на CMD

Код:

@Echo Off
cls
	>nul Chcp 1251
	
	Set "FileIn=Z:\Box_In\Нужно в файле.txt"
	Set "name=СоБаКа"

	If Not Exist "%FileIn%" (
		Echo Файл "%FileIn%" не найден. &Echo.
		Pause
		Exit /B 2 
	) 

	Set /A i=0

	Echo Выбирайте номер варианта N (Enter -завершение работы):
	Echo.
	For /F "usebackq Skip=2 delims=" %%s In (`2^>nul Find /I "%name%" "%FileIn%"`) Do (
		Call Set /A i+=1
		Call Set "@@%%i%%=%%s"
		Call Echo %%i%%= %%s
	)
	If %i%==0 (
		Echo Подстрока "%name%" в файле "%FileIn%" не найдена  &Echo.
		Pause
		Exit /B 1 
	) 

	:Begin
		Echo.
		Set "NN="
		Set /P NN=N=
		If "%NN%"=="" Exit /B 0
		If %NN% GEQ 1 If %NN% LEQ %i% (Call Set "Select=%%@@%NN%%%" &GoTo :End)
		Echo Введено неверное значение "%NN%", введите верное: &GoTo :Begin
	:End
	Echo %Select%

Pause
Exit /B 0

Предполагал, что текстовый файл в кодировке 1251, следовательно и батник должен быть в кодировке 1251

[ownsmir]

Очередной вариант создания искусственного интеллекта на CMD Код: @Echo Off cls >nul Chcp 1251 Set "FileIn=Z:\Box_In\Нужно в файле.txt" Set "name=СоБаКа" If Not Exist "%FileIn%" ( Echo Файл "%FileIn%" не найден. &Echo. Pause Exit /B 2 ) Set /A i=0 Echo Выбирайте номер варианта N (Enter -завершение работы): Echo. For /F "usebackq Skip=2 delims=" %%s In (`2^>nul Find /I "%name%" "%FileIn%"`) Do ( Call Set /A i+=1 Call Set "@@%%i%%=%%s" Call Echo %%i%%= %%s ) If %i%==0 ( Echo Подстрока "%name%" в файле "%FileIn%" не найдена &Echo. Pause Exit /B 1 ) :Begin Echo. Set "NN=" Set /P NN=N= If "%NN%"=="" Exit /B 0 If %NN% GEQ 1 If %NN% LEQ %i% (Call Set Select=%%@@%NN%%% &GoTo :End) Echo Введено неверное значение "%NN%", введите верное: &GoTo :Begin :End Echo %Select% Pause Exit /B 0 Предполагал, что текстовый файл в кодировке 1251, следовательно и батник должен быть в кодировке 1251 »

Наконец то супер)))) Спасибо огромноее!! Единственное не могу понять где в переменной Select появляется пробел в конце строки?

[Iska]

Единственное не могу понять где в переменной Select появляется пробел в конце строки? »

Например, вот здесь:

Скрытый текст

[megaloman]

Единственное не могу понять где в переменной Select появляется пробел в конце строки? »

Виноват, спешка, присваивание надо делать в кавычках

Код:

		If %NN% GEQ 1 If %NN% LEQ %i% (Call Set "Select=%%@@%NN%%%" &GoTo :End)

[V!RTuE]

megaloman, прошу помочь доработать ваш код.
Имеется текстовый файл следующего содержания:

index.txt

V 321223032921Z 01 unknown /C=RU/ST=Msk/L=Msk/O=MyOrg/OU=server/CN=server/name=server/emailAddress=mail@mail.ru
V 321223032955Z 02 unknown /C=RU/ST=Msk/L=Msk/O=MyOrg/OU=server/CN=admin/name=server/emailAddress=mail@mail.ru
V 321223035016Z 03 unknown /C=RU/ST=Msk/L=Msk/O=MyOrg/OU=server/CN=user1/name=server/emailAddress=mail@mail.ru
V 321223035451Z 04 unknown /C=RU/ST=Msk/L=Msk/O=MyOrg/OU=server/CN=user2/name=server/emailAddress=mail@mail.ru
R 321223041103Z 05 unknown /C=RU/ST=Msk/L=Msk/O=MyOrg/OU=server/CN=user3/name=server/emailAddress=mail@mail.ru
V 321223043210Z 06 unknown /C=RU/ST=Msk/L=Msk/O=MyOrg/OU=server/CN=user4/name=server/emailAddress=mail@mail.ru
V 321223045105Z 07 unknown /C=RU/ST=Msk/L=Msk/O=MyOrg/OU=server/CN=user5/name=server/emailAddress=mail@mail.ru

Требуется вывести нумерованный список пользовательских сертификатов (начиная со 2-ой строки, значение CN= до следующего разделителя /), кроме сертификата сервера (это первая строка) и к названию сертификата добавить [ОТОЗВАН], при условии, что первая буква в соответствующей имени сертификата строке, будет R. Если V, то ничего не добавлять к имени. Как это реализовать?
Просто вывести список пользовательских сертификатов получилось так, взяв за основу ваш код:

Код:

@Echo Off
cls
	>nul Chcp 1251
	
	Set "indextxt=C:\Program Files\OpenVPN\easy-rsa\keys\index.txt"
	Set "word=name"

	If Not Exist "%indextxt%" (
		Echo Файл "%indextxt%" не найден. &Echo.
		Pause
		Exit /B 2 
	) 

	Set /A i=0

	Echo Введите номер, соответствующий сертификату, который требуется отозвать (Enter - завершение работы):
	Echo.
	For /F "usebackq tokens=13 Skip=3 delims=/=" %%s In (`2^>nul Find /I "%word%" "%indextxt%"`) Do (
		Call Set /A i+=1
		Call Set "@@%%i%%=%%s"
		Call Echo %%i%%. %%s
	)
	)
	If %i%==0 (
	cls
		Echo Пользовательские сертификаты не найдены  &Echo.
		Pause
		Exit /B 1 
	) 

	:Begin
		Echo.
		Set "NN="
		Set /P NN=N=
		If "%NN%"=="" Exit /B 0
		If %NN% GEQ 1 If %NN% LEQ %i% (Call Set "Select=%%@@%NN%%%" &GoTo :End)
		Echo Введено неверное значение "%NN%", введите верное: &GoTo :Begin
	:End
	Echo вы выбрали: %Select%

Pause
Exit /B 0

В итоге должно получиться так:

Введите номер, соответствующий сертификату, который требуется отозвать (Enter - завершение работы): 1. admin 2. user1 3. user2 4. user3 [ОТОЗВАН] 5. user4 6. user5 N=

и при выборе номера отображалось сообщение:

Вы выбрали %cert_name%

P.S.: powershell прошу не предлагать. крайне желательно именно средствами bat/cmd сделать.

[megaloman]

Код:

@Echo Off
cls
>nul Chcp 1251
	Set "FileIn=Z:\Program Files\OpenVPN\easy-rsa\keys\index.txt"

	If Not Exist "%FileIn%" (Echo Файл "%FileIn%" не найден. &Echo. &Pause &Exit /B 2)
	
	Set /A y=0
	FOR /F "usebackq skip=1 tokens=1,7 delims=/" %%i In ("%FileIn%") DO (
		Set /A y+=1
		Set "xx=%%j"
		Call Set "@@%%y%%=%%xx:~3%%"
		Echo %%i| >nul 2>nul FindStr /B /I /C:"R"&&Call Set "@@%%y%%=%%xx:~3%% [ОТОЗВАН]"
	)
	If %y% EQU 0 (Echo Пользовательские сертификаты не найдены. &Echo. &Pause &Exit /B 1)

	Echo Введите номер, соответствующий сертификату, который требуется отозвать (Enter - завершение работы):
	Echo.
	FOR /L %%i In (1,1,%y%) Do (Set "xx=     %%i"&Call Echo %%xx:~-4%%. %%@@%%i%%)

	:Begin
		Echo.
		Set "NN="
		Set /P NN=Выбираем номер N=
		If "%NN%"=="" Exit /B 0
		If 1 LEQ %NN% If %NN% LEQ %y% (Call Set "Select=%%@@%NN%%%" &GoTo :End)
		Echo Введено неверное значение "%NN%", введите верное: &GoTo :Begin
	:End
	Echo вы выбрали: "%Select%"
pause
Exit /B

[V!RTuE]

megaloman, еще просьба есть. Возможно ли добавить сюда сортировку по имени в алфавитном порядке?
А так большое спасибо. Код работает отлично!

[megaloman]

V!RTuE,

Код:

@Echo Off
cls
>nul Chcp 1251
	Set "FileIn=Z:\Program Files\OpenVPN\easy-rsa\keys\index.txt"

	If Not Exist "%FileIn%" (Echo Файл "%FileIn%" не найден. &Echo. &Pause &Exit /B 2)
	
	Set /A y=0
	FOR /F "usebackq skip=1 tokens=1,7 delims=/" %%i In ("%FileIn%") DO (
		Set /A y+=1
		Set "xx=%%j"
		Call Set "x@@%%xx:~3%%=%%xx:~3%%"
		Echo %%i| >nul 2>nul FindStr /B /I /C:"R"&&Call Set "x@@%%xx:~3%%=%%xx:~3%% [ОТОЗВАН]"
	)
	If %y% EQU 0 (Echo Пользовательские сертификаты не найдены. &Echo. &Pause &Exit /B 1)

	Set /A y=0
	FOR /F "usebackq tokens=2 delims==" %%i In (`Set "x@@"^|Sort`) DO (
		Set /A y+=1
		Call Set "@@%%y%%=%%i"
	)

	Echo Введите номер, соответствующий сертификату, который требуется отозвать (Enter - завершение работы):
	Echo.
	FOR /L %%i In (1,1,%y%) Do (Set "xx=     %%i"&Call Echo %%xx:~-4%%. %%@@%%i%%)

	:Begin
		Echo.
		Set "NN="
		Set /P NN=Выбираем номер N=
		If "%NN%"=="" Exit /B 0
		If 1 LEQ %NN% If %NN% LEQ %y% (Call Set "Select=%%@@%NN%%%" &GoTo :End)
		Echo Введено неверное значение "%NN%", введите верное: &GoTo :Begin
	:End
	Echo вы выбрали: "%Select%"
pause
Exit /B