[Quote]

    conty9
  • 100
  • Longevity: 6 years 9 months
  • Posts: 1380
  • REPUTATION:127

    [+] [-]
  • Location: Прикарпаття
bnn17, обычно такое происходит, если косяки с парами _sub Sel ... _end, т.е., имеется лишний _end или _sub. Выложи, скрипт, который глючит.

[Quote]

    rezorustavi
  • 2337
  • Longevity: 5 years 8 months
  • Posts: 626
  • REPUTATION:27

    [+] [-]
  • Location: Грузия, город Рустави
puhpol,
Полезный набор софта ay

[Quote]

    bnn17
  • 24171
  • Longevity: 1 year 5 months
  • Posts: 13
  • REPUTATION:0

    [+] [-]
83819bnn17, обычно такое происходит, если косяки с парами _sub Sel ... _end, т.е., имеется лишний _end или _sub. Выложи, скрипт, который глючит.

Если совместить с демкой от nikzzzz

CALC #i=0
CALC #NEnvi=0
FNAM TEnvi=%MyName%
ENVI TEnvi=%TEnvi%.cfg
IFEX %CurDir%\%TEnvi%,
{* READ %CurDir%\%TEnvi%,*r,DataCFG
READ -,-1,DEnvi,%DataCFG%
LOOP #%NEnvi%<%DEnvi%,
{* READ -,%NEnvi%,XEnvi,%DataCFG%
CALC #NEnvi=%NEnvi%+1
MSTR -delims:# TEnvi=<4>%XEnvi%
FIND $%TEnvi%<>,
{* MSTR -delims:# Name[%i%],StartType[%i%],InstString[%i%],InstTime[%i%]=<1*>%XEnvi%
CALC #i=%i%+1
} } ! EXIT
//----------------------------------------------------------------
//%n% - к-во пунктов меню
calc #n=%i%
//Вычисляем размер окна
calc w=400
calc h=int(%n%/2)*20 + 170
//Создаем основное окно
@Windows %w% %h%
exit
_sub Windows,w%1h%2,Установка программ,, // Размер основного окна и его название.
labe Label1,l10t10w%1h20,Выберите программы для установки ,,0xaaaaaa,16 // Местоположение надписи, цвет,размер шрифта.
//Инфо
calc l=15
calc t=int(%n%/2)*20 + 64
labe Label2,l%l%t%t%w%1h20,====== Привет ======
//Создаем в цикле Чек боксы
envi i=0
loop %i%<%n%,
{
calc l=mod(%i%,2)*205 + 15
calc t=int(%i%/2)*20 + 40
chek Chk[%i%],l%l%t%t%w150h20,%Name[%i%]%,,1 // Чек бокс и его местоположение в окне + Имя программы
calc i=%i% + 1
}
//Кнопки
calc l=15
calc t=int(%n%/2)*20 + 108
item Button1,l%l%t%t%w100h24,Выбрать все,Sel 1 // местоположение кнопки "выбрать все"
calc l=120
item Button2,l%l%t%t%w100h24,Снять выбор,Sel 0 // местоположение кнопки "снять выбор"
calc l=280
item Button3,l%l%t%t%w100h24,Установить,Install // местоположение кнопки "Установить"
calc l=15
calc t=int(%n%/2)*20 + 84
pbar Pbar,l%l%t%t%w365h20,, // Прогрес бар и его место положение в окне
_end
_sub Sel
envi i=0
loop %i%<=%n%,
{
envi @Chk[%i%].Check=%1 //ЭТО ЗДЕСЬ ГЛЮЧИТ, _end не заканчивает, дальше все подпрограммы не работают, если _sub Sel перенести в конец скрипта всё работает
calc i=%i% + 1
}
_end
_sub CheckSel
//Вычисляем общее время выполнения выбранных пунктов
envi SummaryTime=0
envi i=0
loop %i%<=%n%,
{
ifex $%Chk[%i%].Check%=1,calc SummaryTime=%SummaryTime% + %InstTime[%i%]%
calc i=%i% + 1
}
_end
_sub Install
mess Установить выбранные приложения?@#YN
find $%YESNO%=YES,
{
envi @Pbar=0
CheckSel
envi CurrentTime=0
envi i=0
loop %i%<=%n%,
{
ifex $%Chk[%i%].Check%=1,
{
envi @Label2=*** Установка %Name[%i%]% ***
exec %StartType[%i%]% %InstString[%i%]%
calc CurrentTime=%CurrentTime% + %InstTime[%i%]%
calc Percent=%CurrentTime%/%SummaryTime%*100
envi @Pbar=%Percent%
envi @Chk[%i%].Check=0
}
calc i=%i% + 1
}
envi @Label2=*** Все задания выполнены !!! ***
}
_end

[Quote]

    avalat
  • 222
  • Longevity: 6 years 7 months
  • Posts: 217
  • REPUTATION:67

    [+] [-]
bnn17, Всё работает. И неважно, в каком месте _Sub Sel.

[Quote]

    bnn17
  • 24171
  • Longevity: 1 year 5 months
  • Posts: 13
  • REPUTATION:0

    [+] [-]
83848bnn17, Всё работает. И неважно, в каком месте _Sub Sel.
У меня галочки ставятся, убираются. А программы не инсталлируются.
_Sub Sel не заканчивается _end
Вот картинка с notepad++

[Quote]

    avalat
  • 222
  • Longevity: 6 years 7 months
  • Posts: 217
  • REPUTATION:67

    [+] [-]
bnn17, Вот мой *.cfg
SumatraPDF-3.1.2#-wait#%CurDir%\prog\SumatraPDF-3.1.2.exe#1
Моя программа#-wait#%CurDir%\prog\Proga2.cmd#5
Тест#-wait#%CurDir%\prog\Proga4.cmd#7
Proga5#-wait#%CurDir%\prog\Proga5.cmd#2
Тест123456#-wait#%CurDir%\prog\Proga4.cmd#7
Prog#-wait#%CurDir%\prog\Proga5.cmd#2
установка SumatraPDF-3.1.2.exe идёт с этим скриптом
--------------
83857_Sub Sel не заканчивается _end
Я вижу, что заканчивается...
-------------
P.S. Если у тебя Notepad со встроенным PECMD (F5), - переименуй пока в pecmd.cfg. Он должен называться по имени exe-шника

Page 3 of 3


Display posts:    

Current time is: 20-Sep 22:41

All times are UTC + 3


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum