Custom Query (3922 matches)

When running this script in SciTE (F5), it works OK. When omiting the "run" keyword in the ShellExecute statement, the "second instance" message will not occour, but the SciTE window overlays the first message. This means, that the script was again edited by the ShellExecute. It should be mentioned in the help file, that the "run" verb can be used to force the execution of a script.

#include "Misc.au3"
If _Singleton(@ScriptName, 1) = 0 Then Exit MsgBox(0, "","Second instance")
ShellExecute(@ScriptFullPath, "", "", "run")
MsgBox(0, "First instance", "First instance")

#comments-start
	Beep()
	#comments-start
		Beep()
	#comments-end
	Beep()
#comments-end
MsgBox(0,"No Beep","No Beep")

This code work perfect and there is no beep at all. But... in SciTE editor, the last beep() is not shown as comment.

Nesting works fine, but SciTE's display has a bug.

There is a Tidy bug in _ITE function: Error -> "endfunc" is closing previous "if" but the function is running fine.

Local $n1 = 1, $n2
$t = "Steps" & @TAB & "Variants" & @TAB & @TAB & @TAB & @TAB & "Steps" & @TAB & "Variants" & @TAB & @LF & @LF
For $i = 1 To 91
	$n0 = $n1
	$n1 += $n2
	$n2 = $n0
	$t &= $i & @TAB & StringFormat("%-20.0f", $n1) & _ITE(Mod($i, 2), @TAB & @TAB & _ITE($i < 54, @TAB, ""), @LF)
Next
MsgBox(0, "The steps enigma", $t)

Func _ITE($if, $then = 1, $else = 0)
	If $if Then Return $then
		Return $else
;### Tidy Error -> "endfunc" is closing previous "if"
	EndFunc   ;==>_ITE