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

Показать сообщение отдельно
4zz 4zz вне форума Автор темы

Пользователь


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

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


gora, megaloman,
СПАСИБО ОГРОМНОЕ!!!
все работает!!!
Получилось так (добавил, еще, строчку с путем установки):
Код: Выделить весь код
@Echo Off

Set From=D:\Delete\config.js
Set To=D:\Delete\config.prog

Set Key1=prog[pn]
Set Key2=cmds[pn]
ChCp 1251 >nul
SetLocal EnableExtensions EnableDelayedExpansion

If Exist "%To%" Del "%To%">nul

FOR /F "usebackq delims=" %%s IN (`Type "%From%"`) DO (
	Set ss=%%s
	Set ss=!ss:%Key1%=!
	Set ss=!ss:%Key2%=!
	If /I Not %%s==!ss! (
		Set ss=!ss:*['=!
		>>"%To%" Echo !ss:'];=!
	)
)

Отправлено: 13:54, 25-03-2013 | #9