[Maza Faka]

Только как это грамотно сделать, чтоб Then переходил в основной код »

Смотри в справке Func()

[Grammaton Cleric]

amel27, Creat0R ну в общем-то эти варианты работают... Спасибо за помощь а так как частенько приходится эти файлы на дискетах проверять, наваял себе небольшую функцию...

Код:

;_Fileona ('param1', 'param2', 'param3')
;в функцию отравляется название файла... проверяется наличие дискеты и наличие на ней файла
;param1 = имя файла (если указывается путь, то без первого слэша) 
;пример: 'test.txt' или, во втором случае, 'mydir\test.txt'
;param2 = Титл окна выдаваемого в случае отстутствия дискеты или файла
;param3 = текст окна выдаваемого в случае отстутствия дискеты или файла
Func _Fileona ($onafile, $onatitle, $onatext)
	While DriveStatus ('A:\') <> 'Ready' or Not FileExists ( 'A:\'&$onafile)
		if MsgBox ( 36, $onatitle, $onatext&@CRLF&'Вы хотите продолжить?') = 7 Then 
			ExitLoop
		EndIf
	WEnd
$onafile = 0
$onatitle = 0
$onatext = 0
EndFunc

Вдруг кому пригодится.
-------
И еще вопрос к amel27 и Creat0R объясните пожалуйста чем "ContinueLoop" отличается от его отстутствия?

[amel27]

Creat0R

Если первое услове истина »

компилятор сам решает какое "первое", какое "второе" - он в курсе, что "от перестановки слагаемых результат не меняется" ... к примеру, из соображений оптимизации он может поставить на выполнение сначала расчет самого короткого (с его точки зрения) условия, а потом длинного... или даже одновременно

Тем то AutoIt мне и нравится »

угу, только надо держать "в уме" это различие

Не обязательно »

твой код не выдаст предупреждения на дискету без файла


semiono

Или есть лучше вариант?»

имхо надежней через реестр - например, проверить параметр "Start" ключа "HKLM\System\CurrentControlSet\Services\SPTD", если =1, то драйвер установлен, смотри в справке RegRead()


Grammaton Cleric

чем "ContinueLoop" отличается от его отстутствия? »

ContinueLoop - силовое завершение текщего цикла - т.е. пропускается весь код до конца цикла и управление передается сразу на Next/WEnd/Until, при вложенных циклах можно указать, какой именно цикл мы хотим завершить, по умолчанию =1 (текущий)

[Grammaton Cleric]

ContinueLoop - силовое завершение текщего цикла... »

Теперь дошло... спасибо за объяснение..
Теперь еще одна непонятка...

Код: $Next = (DriveStatus("A:")=="READY") If $Next Then $Next = FileExists('A:\gk.db3') If $Next Then ExitLoop »

Вторая проверка, по моим соображениям, всегда будет успешно выполняться... То есть при любом результате - выход из цикла... почему-то мне кажется, что здесь If $Next Then $Next = FileExists('A:\gk.db3') должно иметь вид If $Next Then $Next = (FileExists('A:\gk.db3')==1) или я не прав?

[amel27]

If $Next Then $Next = FileExists('A:\gk.db3') должно иметь вид If $Next Then $Next = (FileExists('A:\gk.db3')==1) »

в обоих случаях $Next присвоится 1/True при наличии файла и 0/False при его отсутствии
любое число <>0 обрабатывается при проверке как TRUE, 0 соотвественно FALSE, так что эти варианты эквивалентны

[Creat0R]

amel27,

компилятор сам решает какое "первое", какое "второе" - он в курсе, что "от перестановки слагаемых результат не меняется"

Компилятор? я если честно не вижу связи, компилятор преобразовывает в машинный код, возможно ты имел в виду интерпритатор?
И тут мне немного не понятно, что значит он сам решает, тогда получается можно условия написать как угодно? на практике однако это не так...

Код:

;Пример 1
If 1 = 1 Or TestFunc() Then MsgBox(0, "", "1 = 1")

;Пример 2
If 1 = 0 And TestFunc() Then MsgBox(0, "", "1 = 0?")

;Эта функция никогда не запустится с условиями выше
Func TestFunc()
    Return MsgBox(0, "", "MsgBox from TestFunc()")
EndFunc

твой код не выдаст предупреждения на дискету без файла

А про это сообщение небыло речи - Имхо, мой первый вариант самый оптимальный.

ContinueLoop - силовое завершение текщего цикла

Разве? Мне казалось что это продолжение цикла с начала Выход это ExitLoop.

$Next = (DriveStatus("A:")=="READY") If $Next Then $Next = FileExists('A:\gk.db3') If $Next Then ExitLoop

Вместо этого можно просто If DriveStatus("A:") == "READY" And FileExists('A:\gk.db3') Then ExitLoop

[amel27]

Creat0R

не вижу связи »

это я про про алгоритмы вообще и про скрипты vs компиляторы в частности

про это сообщение небыло речи »

имхо бессмысленно кричать пользователю о том что нужна дискета и радостно жевать до опупения первую попавшуюся

мне казалось что это продолжение цикла с начала

подтверждаю, слово "цикл" применил не по назначению, имел ввиду текущий проход цикла

мой первый вариант самый оптимальный »

дык потому и отметил полезняшкой

Вместо этого можно просто »

зациклились однако

[Creat0R]

amel27,

зациклились однако »

Да, пора закругляться

У меня тут на другую тему есть вопрос: Обязательно ли освобождать разного рода хендлы (типа Callback, FileOpen и т.п.) при выходе из скрипта (OnAutoItExit)?

В справке у FileClose() сказано:

Upon termination, AutoIt automatically closes any files it opened, but calling FileClose is still a good idea.

Возможно это относится и к другим хендлам? И если нет, то что происходит если не закрывать хендлы на выходе, возможно будет излишнее переполнение памяти?

[amel27]

Обязательно ли освобождать разного рода хендлы »

Те что открыты через API обязательно, через ф-ции AutoIT необязательно (при штатном выходе из скрипта), если скрипт прерывается системой (обычно при тестировании), то хвосты остаются полюбому... помогает только регулярная перезагрузка. С другой стороны, для "тяжелых" скриптов полезно своевременно закрывать освободившиеся описатели из соображений экономии ресурсов.

ADD: ИМХО вопрос упирается в поддерживаемые типы данных, примерно так: если для к-либо описателя есть ф-ция типа Is*(), где * - тип описателя, то AutoIT должен уметь сам корректно закрывать такие переменные-описатели... Но если, к примеру, обычная переменная содержит несвойственный ей тип (целое число -> указатель на стуктуру, полученный через API), то тут понятно ответственность полностью на авторе скрипта

[Dump]