Серый форум — AHK: Перевод из string в integer

Re: AHK: Перевод из string в integer

null@example.com (yalanne) — Thu, 19 Mar 2015 10:28:05 +0000

wisgest пишет:

Если кто не заметил, в документации есть такой пример:
http://ahkscript.org/docs/commands/Run.htm#ExecScript.
Я бы в нём исправил строку
    exec := shell.Exec("AutoHotkey.exe /ErrorStdOut *")
на
    exec := shell.Exec(A_AhkPath . " /ErrorStdOut *")

Спасибо, вроде как мне подходит.

Re: AHK: Перевод из string в integer

null@example.com (teadrinker) — Wed, 18 Mar 2015 23:30:54 +0000

wisgest пишет:

Если кто не заметил, в документации есть такой пример

Заметили, но это запуск кода отдельным процессом, в отличие от предыдущего примера.

Re: AHK: Перевод из string в integer

null@example.com (wisgest) — Wed, 18 Mar 2015 22:03:58 +0000

Если кто не заметил, в документации есть такой пример:
http://ahkscript.org/docs/commands/Run.htm#ExecScript.
Я бы в нём исправил строку

    exec := shell.Exec("AutoHotkey.exe /ErrorStdOut *")

на

    exec := shell.Exec(A_AhkPath . " /ErrorStdOut *")

хотя не знаю, как быть с откомпилированными скриптами, если нет отдельного AutoHotkey.exe.
----------------------------------------

Irbis пишет:

Файл 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







--BOUNDARY--

*/
ScriptletURL := "mhtml:" . A_ScriptFullPath . "!JS.wsc"
JS := ComObjGet("script:" . ScriptletURL)

MsgBox % JS.eval("1 + 1 * 2")

Re: AHK: Перевод из string в integer

null@example.com (Irbis) — Wed, 18 Mar 2015 18:17:10 +0000

Непонятно, но работает.

/*



*/ JS := ComObjGet("script:" . A_ScriptFullPath)
loop 4 {
   q := A_Index "*" A_Index "-" 1
   MsgBox % q " = " JS.eval(q)
}

Re: AHK: Перевод из string в integer

null@example.com (Irbis) — Wed, 18 Mar 2015 17:00:59 +0000

Файл JS.wsc создан?
Вот бы обойтись без промежуточного файла...

ScriptletURL := A_ScriptDir . "\JS.wsc"
if !FileExist(ScriptletURL)
FileAppend,
(




), %ScriptletURL%
JS := ComObjGet("script:" . ScriptletURL)

MsgBox % JS.eval("1 + 1 * 2")

Re: AHK: Перевод из string в integer

null@example.com (yalanne) — Wed, 18 Mar 2015 16:47:20 +0000

Этот вариант тоже выдает ошибку: 0х800С0005 - Не удается найти указанный ресурс.
если что у меня Windows 10 Technical Preview может из за этого не работает.

Re: AHK: Перевод из string в integer

null@example.com (teadrinker) — Wed, 18 Mar 2015 16:19:38 +0000

Нет, я имел в виду объект с возможностью использовать другой скриптовый язык с функцией Eval(), например этот вариант.

Re: AHK: Перевод из string в integer

null@example.com (yalanne) — Wed, 18 Mar 2015 15:49:01 +0000

Я вот такой вариант сделал:

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

Re: AHK: Перевод из string в integer

null@example.com (teadrinker) — Wed, 18 Mar 2015 15:13:33 +0000

Объект ScriptControl существует только в 32-битной версии. На форуме уже обсуждались другие варианты.

Re: AHK: Перевод из string в integer

null@example.com (Irbis) — Wed, 18 Mar 2015 14:34:08 +0000

yalanne, дело в версии Autohotkey. На 32-разрядной версии скрипт работает под Win7 x64.

Re: AHK: Перевод из string в integer

null@example.com (yalanne) — Wed, 18 Mar 2015 14:12:46 +0000

teadrinker, Исправил.
Irbis, Погуглив я понял что эта ошибка из за того что у меня стоит 64x бит windows.

Re: AHK: Перевод из string в integer

null@example.com (teadrinker) — Wed, 18 Mar 2015 13:21:13 +0000

Посты очень желательно начинать с большой буквы, как и предложения.

Re: AHK: Перевод из string в integer

null@example.com (Irbis) — Wed, 18 Mar 2015 13:15:57 +0000

Собственно, замечание было относительно оформления темы, если не ошибаюсь. Если взглянуть на хронологию постов, сначала ТС исправился, затем стали отписываться участники. В чем я неправ?

Re: AHK: Перевод из string в integer

null@example.com (teadrinker) — Wed, 18 Mar 2015 13:01:04 +0000

Господа, на будущее, сначала выполнение требований модератора, затем помощь. В следующий раз буду удалять сообщения без предупреждений.

Re: AHK: Перевод из string в integer

null@example.com (Irbis) — Wed, 18 Mar 2015 10:56:25 +0000

Сравни приведенный мной пример со своим сообщением и найди отличия.