Если кто не заметил, в документации есть такой пример:
http://ahkscript.org/docs/commands/Run.htm#ExecScript.
Я бы в нём исправил строкуexec := shell.Exec("AutoHotkey.exe /ErrorStdOut *")на
exec := shell.Exec(A_AhkPath . " /ErrorStdOut *")
Спасибо, вроде как мне подходит.
]]>Если кто не заметил, в документации есть такой пример
Заметили, но это запуск кода отдельным процессом, в отличие от предыдущего примера.
]]> exec := shell.Exec("AutoHotkey.exe /ErrorStdOut *")на
exec := shell.Exec(A_AhkPath . " /ErrorStdOut *")хотя не знаю, как быть с откомпилированными скриптами, если нет отдельного AutoHotkey.exe.
----------------------------------------
Файл JS.wsc создан?
Вот бы обойтись без промежуточного файла...
У меня работает через формат MHTML:
/*
MIME-Version: 1.0
Content-Type:multipart/related; boundary="BOUNDARY";
--BOUNDARY
Content-Type: text/scriptlet; charset="windows-1251"
Content-Transfer-Encoding: 8bit
Content-Location: JS.wsc
<component>
<public><method name='eval'/></public>
<script language='JScript'></script>
</component>
--BOUNDARY--
*/
ScriptletURL := "mhtml:" . A_ScriptFullPath . "!JS.wsc"
JS := ComObjGet("script:" . ScriptletURL)
MsgBox % JS.eval("1 + 1 * 2")
/*<component>
<public><method name='eval'/></public>
<script language='JScript'></script>
</component>
*/ JS := ComObjGet("script:" . A_ScriptFullPath)
loop 4 {
q := A_Index "*" A_Index "-" 1
MsgBox % q " = " JS.eval(q)
}ScriptletURL := A_ScriptDir . "\JS.wsc"
if !FileExist(ScriptletURL)
FileAppend,
(
<component>
<public><method name='eval'/></public>
<script language='JScript'></script>
</component>
), %ScriptletURL%
JS := ComObjGet("script:" . ScriptletURL)
MsgBox % JS.eval("1 + 1 * 2")
q := "5+5-2"
w_calc:
if ((((wexp:="") (w1:="") (w2:="") (wloop:=0)) ? "" : "") ((((wexp := RegExMatch(q, "[\+|\-|\*|\/]","",(RegExMatch(q, "[\+|\-|\*|\/]","") + 1))) ? ((wloop:=1) (wexp:=substr(q,1,wexp-1))) : (wexp:=q)) ? "" :)) (((RegExMatch(wexp, "(.*)[\+|\-|\*|\/]",w1) ? "" : "" ) (RegExMatch(wexp, "[\+|\-|\*|\/]",w) ? "" : "" ) (RegExMatch(wexp, "[\+|\-|\*|\/](.*)",w2)) (w1:=substr(w1,1,-1)) (w2:=substr(w2,2,strlen(w2)-1))) ? "" : "") ((q:=(((w="+") ? w1 + w2 : (w="-") ? w1 - w2 : (w="*") ? w1 * w2 : w1 // w2) substr(q,strlen(wexp)+1,strlen(q)-strlen(wexp)+1))) ? "" : "")) wloop
goto w_calc
msgbox % qминус его только то в том, что игнорируется математические правила, то есть высчитывает все по порядку.
например
1+1*2будет как 1) 1+1=2 2)2*2=4
]]>