Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2728
Благодарности: 1697

Профиль | Отправить PM | Цитировать


Цитата alpap:
вашу строку бьем по пробелу и в файл »
Без файла. Оформил в виде процедуры. Избежал setlocal enabledelayedexpansion
В пароле не должно быть пробелов
Код: Выделить весь код
@Echo Off
cls

Set "Str=fast slow errOr    password       Error garbage test text blabla"
Set "Teg=error"

Call :Password "%Str%" "Pass"
Echo "%Pass%"

pause
GoTo :Eof

:Password
	Set /A nTeg=0
	:Begin
	Set /A nTeg+=1
	FOR /F "tokens=%nTeg% delims= " %%i IN ("%Str%") DO If /I %Teg%==%%i GoTo :Cont
	GoTo :Begin
	:Cont
	Set /A nTeg+=1
	FOR /F "tokens=%nTeg% delims= " %%i IN ("%Str%") DO Set "%~2=%%i"
GoTo :Eof

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Последний раз редактировалось megaloman, 06-02-2018 в 17:30.

Это сообщение посчитали полезным следующие участники:

Отправлено: 17:20, 06-02-2018 | #6