[Iska]

У меня есть скрипт (код), »

Покажите образец этого «скрипт (код)».

в котором я хочу найти несколько фраз »

Каких? Перечислите.

и вырезать из этих фраз подстроки. »

По какому принципу подстроки должны определяться внутри строки?

[Burning Hell]

Покажите образец этого «скрипт (код)». »

Скрипт написан на SAS/Macro. Выглядит примерно так:

Код:

%global vaRepLib vaRepLib lasr_port lasr_engine lasr_tag lasr_host lasr_signer lasr_options metaport metaprotocol metarepository lasr_sig_files_path;
			
%let vaRepLib = lasrlib;
%let lasr_port = 2289;
%let lasr_engine = sasiola;
%let lasr_tag = va_pub;
%let lasr_host = sas-vaar.dev.rnw;
%let lasr_signer = %str("http://sas-metadata.dev.rnw:85/SASLASRAuthorization");
%let lasr_options = %str(tag=&lasr_tag port=&lasr_port host="&lasr_host" signer=&lasr_signer);

Каких? Перечислите. »

Хотелось бы найти строчку с переменной lasr_port и вырезать в переменную число после знака "=". То же самое с переменной
lasr_host.

[Iska]

Скрипт написан на SAS/Macro. Выглядит примерно так: »

На всякий случай — кодировка его какая?

Хотелось бы найти строчку с переменной lasr_port и вырезать в переменную число после знака "=". То же самое с переменной lasr_host. »

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

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set sSourceFile=C:\Мои проекты\0102\0001.txt

if exist "%sSourceFile%" (
	for /f "usebackq tokens=2,3 delims==; " %%i in (
		`type "%sSourceFile%" ^| findstr.exe /i /r /c:"%%let lasr_port = [0-9]*;"`
	) do set s%%i=%%j

	if defined slasr_port (
		echo [!slasr_port!]
	) else (
		echo Not found [lasr_port]
	)

	for /f "usebackq tokens=2,3 delims==; " %%i in (
		`type "%sSourceFile%" ^| findstr.exe /i /r /c:"%%let lasr_host = .*;"`
	) do set s%%i=%%j

	if defined slasr_host (
		echo [!slasr_host!]
	) else (
		echo Not found [slasr_host]
	)

) else (
	echo Can't find source file [%sSourceFile%].
	exit /b 1
)

endlocal
exit /b 0

[Burning Hell]

На всякий случай — кодировка его какая? »

UTF-8 w/o BOM

[Iska]

UTF-8 w/o BOM »

Тогда сойдёт (пока кириллицу из файла получать не понадобится ).

[Burning Hell]

Iska, возникло несколько вопросов.

Что означает вот этот оператор

set s%%i=%%j »

?

Для чего нужны квадратные скобки

[!slasr_host!] »

и что такое slasr_port? Откуда он берется?

Также я не очень понял, что делают вот эти два параметра после setlocal:

setlocal enableextensions enabledelayedexpansion »

Тогда сойдёт (пока кириллицу из файла получать не понадобится ). »

Там кириллицы по определению не может быть, это же код, исполняемый файл)

[Iska]

Что означает вот этот оператор »

что такое slasr_port? Откуда он берется? »

Строка в файле выглядит как:

Код:

%let lasr_port = 2289;

Посредством цикла разбора for /f "usebackq tokens=2,3 delims==; " мы разбиваем её на составляющие:

Код:

%let lasr_port = 2289;

и выбираем второй и третий токены в %%i и %%j соответственно. Таким образом строка:

Код:

set s%%i=%%j

выполняется как:

Код:

set slasr_port=2289

s я просто добавляю как префикс для получаемой переменной окружения. Привычка.

Для чего нужны квадратные скобки »

Для правильного восприятия. Например, чтобы визуально видеть обрамляющие пробелы, которые без ограничителей [] будут не видны.

[Burning Hell]

Iska, правильно я понял, что

.* »

последовательность любых символов ?

[Iska]

Burning Hell, правильно. В том числе и пустая последовательность. К сожалению, реализация регулярок у findstr.exe весьма куцая.

[megaloman]

Как вариант (если после равно в строке всякие спкцсимволы - не годится)

Код:

@Echo Off
cls

Set "FileIn=Z:\Box_In\In File.txt"
Set "Key=let"

FOR /F "usebackq tokens=1,2,3 delims==; " %%i IN (`more "%FileIn%" 2^>nul`) DO (
	Call :Ident "lasr_port" "%%i" "%%j" "%%k"
	Call :Ident "lasr_host" "%%i" "%%j" "%%k"

rem Остальные три строки вставил как пример возможности
	Call :Ident "vaRepLib" "%%i" "%%j" "%%k"
	Call :Ident "lasr_engine" "%%i" "%%j" "%%k"
	Call :Ident "lasr_tag" "%%i" "%%j" "%%k"
)
Echo %lasr_port%
Echo %lasr_host%

Echo %vaRepLib%
Echo %lasr_engine%
Echo %lasr_tag%

pause
GoTo :Eof

:Ident
	If /I %2=="%Key%" If /I %1==%3 Set "%~1=%~4"
GoTo :Eof