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

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

Старожил


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

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


Использована унифицированная для моих скриптов функция чтения\записи ini
Код: Выделить весь код
@Echo Off
SetLocal EnableDelayedExpansion
Set CfgFile=config.ini
Call :ReadKeyValue
:Start
For /L %%A In (1,1,3) Do (Ping -n 1 -w 111 !pingip%%A!)
GoTo Start




rem ====== Функции для работы с ini
:ReadKeyValue
If Not Exist %CfgFile% (Exit 1)
Set i=0
For /F "tokens=1,2 delims== usebackq" %%A In ("%CfgFile%") Do (
	Set /A i+=1
	Set %%A=%%B
	Set CfgKey!i!=%%A
	Set CfgStrings=!i!
)
Exit /B

:WriteKeyValue
If Exist "%CfgFile%" (Del "%CfgFile%")
For /L %%S In (1,1,%CfgStrings%) Do (
	Call :SingleLine "!CfgKey%%S!"
)
Exit /B
:SingleLine
If Not "!%~1!"=="" (Echo %~1=!%~1!>>"%CfgFile%") Else (Echo %~1>>"%CfgFile%")
Exit /B
rem ===============================
Это сообщение посчитали полезным следующие участники:

Отправлено: 01:18, 08-02-2012 | #2