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

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

Ветеран


Contributor


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

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


Ka3hak,
Код: Выделить весь код
@Echo OFF

Set "cfgIn=Z:\Soft_In\tra la la.cfg"

Set Rep="Dreamcast.Region=333" "Dreamcast.Broadcast=444" "Dreamcast.RTC=5552127595098" "DefaultImage=image.gdi" "Dynarec.Enabled=0"

Copy "%cfgIn%" "%cfgIn%.tmp" >nul

>"%cfgIn%" (FOR /F "usebackq tokens=*" %%a IN ("%cfgIn%.tmp") DO Call :Rezult "%%a" %Rep%)

rem Del "%cfgIn%.tmp"
GoTo :Eof

:Rezult
	Set "InStr=%~1"
 	FOR /F "usebackq eol==" %%i IN ('%InStr%') DO Set "Par1=%%i"
	:Begin
 		FOR /F "usebackq eol==" %%j IN ('%~2') DO Set "Par2=%%j"
		If /I "%Par1%"=="%Par2%" Set "InStr=%~2" &GoTo :End                                              
		Shift
		If Not "%~2"=="" GoTo :Begin
	:End
	Echo %InStr%
GoTo :Eof
При работе батника создаётся копия исходного файла. Если её надо удалять, уберите rem перед Del
Кроме того, все пустые строки в файле будут удалены.
Лирическое отступление
Сделайте мне суперсовременный компьютер, но, так как мне его обслуживать, пусть он будет простым и на лампах

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


Последний раз редактировалось megaloman, 03-06-2017 в 00:50.

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

Отправлено: 22:24, 02-06-2017 | #3