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

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

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


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

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


Creat0R
Ты не понимаешь суть базового понятия "цикл".
+
Несколько раз перечитал твое
Цитата:
Как я могу сделать так, что если в том окне, которое появится после нажатия на 'Отмена' (в первом окне), пользователь нажимает в нём 'Нет', то будет запущено первое окно снова. Т.е нужно как-то вернуться на метку, которая будет стоять перед выводом первого окна.
В твоем описании задачи все окна "первые"...

Поэтому могут лишь подправить твой скрипт:
Код: Выделить весь код
While 1
$var = FileSelectFolder("Select a folder.", "")
If NOT @error Then
  $iMsgBoxAnswer = MsgBox(292,"Msg","you sure?")
  Select
    Case $iMsgBoxAnswer = 6 ;Yes
      $var = StringReplace($var, "|", @CRLF)
      MsgBox(64,".....","Вы выбрали:  " & $var)
      FileWrite ( "c.tmp", $var )
      Exit
    Case $iMsgBoxAnswer = 7 ;No
    Case Else
      Exit
  EndSelect
Else
  Exit
EndIf
Wend
SyCraft
Цитата:
Не подскажите где я вновь учудил?
Везде:
1. У оператора MsgBox другой синтаксис MsgBox(0,"", "",1)
2. Считывать значения редактируемых переменных нужно в цикле
Код: Выделить весь код
While 1
$msg = GuiGetMsg()
$SecondPath = GUICtrlRead($Output) 
$FirstPath = GUICtrlRead($Input)
...
3. Следи за условными переходами! У тебя $cache будет копироваться только, если копируется $download!
Сделай так:
Код: Выделить весь код
While 1
...
If $msg = $GUI_EVENT_CLOSE  Or $msg = $Close Then 
        Exit
ElseIf $msg = $Start Then 
       MsgBox(0,"Идет копирование файлов","Дождитесь окончания копирования файлов",1)
       If GUICtrlRead($Bookmaarks) = 1 Then
              ...
              EndIf
       ...
EndIf
WEnd
4. Учись отлаживать свои скрипты сам! Мне очень помогает вставка в проверяемое место MsgBox(0,"", "",1).
Например, в твой скрипт я вставил вместо FileCopy("$FirstPath$\profile\opera6.adr", "$SecondPath$\profile\*.*",1)
проверку MsgBox(0,"","$FirstPath$\profile\opera6.adr TO $FirstPath$\profile\*.*").
Тут же все твои косяки вылезли наружу.
5. Много мелких недочетов. В частности, зачем циклишь объявление опции Opt("ExpandVarStrings",1)? Обычно это делается в начале скрипта.
Это сообщение посчитали полезным следующие участники:

Отправлено: 08:33, 07-07-2006 | #187