CMD/BAT - помогите оптимизировать скрипт

CMD/BAT - помогите оптимизировать скрипт

dredre

Новый участник

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

Изменения

Автор: dredre
Дата: 18-09-2011

Написано крайне криво и неграмотно, так как со скриптовым языком я впервые познакомился 4 часа назад. Просьба понимающих в этом, оптимизировать скрипт, чтоб не стыдно было людям показать, так же не помешали бы сообщения на русском и возможность запускать скрипт из директории с русскими буквами.

updater.bat

Код:

@Echo off

call :read_settings %~dp0\settings.txt || exit /b 1

echo etkapath : %etkapath%
echo nau : %nau%
echo nse : %nse%
echo nsk : %nsk%
echo nvw : %nvw%

:read_settings

set SETTINGSFILE=%1

rem Проверка существования файла
if not exist %SETTINGSFILE% (
    echo FAIL: Файл с настройками отсутствует
    exit /b 1
)

for /f "eol=# delims== tokens=1,2" %%i in (%SETTINGSFILE%) do (
    set %%i=%%j
)

Echo AUDI

set m=au
set m2=audi

:label1
set /a nau="%nau%+1"

if exist "%etkapath%\%m%\Update\etup%m%%nau%0.exe" GOTO label1

Set ROOT=%etkapath%\%m%\Update
Set KBFile1=etup%m%%nau%0.exe
Set KB_Url1=http://update1.lex-com.net/update/%m2%/0/etup%m%%nau%0.exe

Call :KB_TEST "%KBFile1%" "%KB_Url1%"
Echo.
pause
EXIT

:KB_TEST
<Nul Set /P $_X="%~1..."

If Exist "%ROOT%\%~1" Echo Ok& Exit /B
<Nul Set /P $_X=Loading

CScript //NoLogo "script.vbs" "%ROOT%\%~1" "%~2"
Set ERR=%ErrorLevel%

<Nul Set /P $_X=
If %ERR% EQU 0 (
Echo Ok     
GOTO label1
) Else Echo ERROR  

Echo SEAT

set m=se
set m2=seat

:label2
set /a nse="%nse%+1"

if exist "%etkapath%\%m%\Update\etup%m%%nse%0.exe" GOTO label2

Set ROOT=%etkapath%\%m%\Update
Set KBFile1=etup%m%%nse%0.exe
Set KB_Url1=http://update1.lex-com.net/update/%m2%/0/etup%m%%nse%0.exe

Call :KB_TEST "%KBFile1%" "%KB_Url1%"
Echo.
pause
EXIT

:KB_TEST
<Nul Set /P $_X="%~1..."

If Exist "%ROOT%\%~1" Echo Ok& Exit /B
<Nul Set /P $_X=Loading

CScript //NoLogo "script.vbs" "%ROOT%\%~1" "%~2"
Set ERR=%ErrorLevel%

<Nul Set /P $_X=
If %ERR% EQU 0 (
Echo Ok     
GOTO label2
) Else Echo ERROR  

Echo SKODA

set m=sk
set m2=skoda

:label3
set /a nsk="%nsk%+1"

if exist "%etkapath%\%m%\Update\etup%m%%nsk%0.exe" GOTO label3

Set ROOT=%etkapath%\%m%\Update
Set KBFile1=etup%m%%nsk%0.exe
Set KB_Url1=http://update1.lex-com.net/update/%m2%/0/etup%m%%nsk%0.exe

Call :KB_TEST "%KBFile1%" "%KB_Url1%"
Echo.
pause
EXIT

:KB_TEST
<Nul Set /P $_X="%~1..."

If Exist "%ROOT%\%~1" Echo Ok& Exit /B
<Nul Set /P $_X=Loading

CScript //NoLogo "script.vbs" "%ROOT%\%~1" "%~2"
Set ERR=%ErrorLevel%

<Nul Set /P $_X=
If %ERR% EQU 0 (
Echo Ok     
GOTO label3
) Else Echo ERROR  

Echo VW

set m=vw
set m2=vw

:label4
set /a nvw="%nvw%+1"

if exist "%etkapath%\%m%\Update\etup%m%%nvw%0.exe" GOTO label4

Set ROOT=%etkapath%\%m%\Update
Set KBFile1=etup%m%%nvw%0.exe
Set KB_Url1=http://update1.lex-com.net/update/%m2%/0/etup%m%%nvw%0.exe

Call :KB_TEST "%KBFile1%" "%KB_Url1%"
Echo.
pause
EXIT

:KB_TEST
<Nul Set /P $_X="%~1..."

If Exist "%ROOT%\%~1" Echo Ok& Exit /B
<Nul Set /P $_X=Loading

CScript //NoLogo "script.vbs" "%ROOT%\%~1" "%~2"
Set ERR=%ErrorLevel%

<Nul Set /P $_X=
If %ERR% EQU 0 (
Echo Ok     
GOTO label4
) Else Echo ERROR  

Exit /B

pause

script.vbs

settings.txt

Отправлено: 04:39, 18-09-2011

Iska

Ветеран

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

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

dredre, для помощников было бы хорошим подспорьем (а для Вас — хорошим тоном) Ваше пояснение на предмет того, что делает (или должен делать) этот набор из пакетного файла и скрипта.

Отправлено: 05:10, 18-09-2011 | #2