Variable with Operator inside

[euras]

Hi, is it possible to set a value to variable using expresions, where the Operator is also into variable?

Code: Select all

var1 := "+1"
var2 := 5
var3 := var2 var1 ; should get 6
MsgBox % var3

[TheDewd]

You can use the VBScript function Eval(), however it's only compatible with 32-bit AutoHotkey. You will be unable to use it with 64-bit AutoHotkey builds.

Code: Select all

#SingleInstance, Force

var1 := "+1"
var2 := 5
var3 := var2 var1

ScriptControl := ComObjCreate("ScriptControl")
ScriptControl.Language := "VBScript"
MsgBox, % ScriptControl.Eval(var3)

[garry]

eval from user Laszlo
https://autohotkey.com/board/topic/2411 ... evaluator/

Code: Select all

;- eval from user Laszlo 
;- https://autohotkey.com/board/topic/24114-popup-calculator-expression-evaluator/
v1 := "+1"
v2 := 5
v3 := eval(v2 v1)
msgBox, %v3%
return

;-------------------------------------
Eval(x)
{
   StringGetPos i, x, +, R
   StringGetPos j, x, -, R
   If (i > j)
      Return Left(x,i)+Right(x,i)
   If (j > i)
      Return Left(x,j)-Right(x,j)
   StringGetPos i, x, *, R
   StringGetPos j, x, /, R
   If (i > j)
      Return Left(x,i)*Right(x,i)
   If (j > i)
      Return Left(x,j)/Right(x,j)
   Return x
}
Left(x,i)
{
   StringLeft x, x, i
   Return Eval(x)
}
Right(x,i)
{
   StringTrimLeft x, x, i+1
   Return Eval(x)
}
;=== end function Laszlo ==========

[TheDewd]

My attempt at combining the functions from Laszlo's approach into a single function:

Code: Select all

#SingleInstance, Force

MsgBox, % Eval("5+5")

Eval(x) {
	i := InStr(x, "+",, 0) - 1
	j := InStr(x, "-",, 0) - 1

	If (i > j) {
		return Eval(SubStr(x, 1, i)) + Eval(SubStr(x, 0, i + 1))
	}

	If (j > i) {
		return Eval(SubStr(x, 1, j)) - Eval(SubStr(x, 0, j + 1))
	}

	i := InStr(x, "*",, 0) - 1
	j := InStr(x, "/",, 0) - 1

	If (i > j) {
		return Eval(SubStr(x, 1, i)) * Eval(SubStr(x, 0, i + 1))
	}

	If (j > i) {
		return Eval(SubStr(x, 1, j)) / Eval(SubStr(x, 0, i + 1))
	}

	return x
}

[garry]

@TheDewd , thank you
here a calculator from LaBouche
https://autohotkey.com/board/topic/2523 ... -favorite/

Your example with inputbox

Code: Select all

#SingleInstance, Force

example=5*3
InputBox,c,calculate +-/*,Input> 4+3+5 ... etc, ,500,200,10,100,, Timeout,%example%
if c=
   return
if ErrorLevel
   return
d:=eval(c)
msgbox,%d%
return

;MsgBox, % Eval("5+5")
Eval(x) {
	i := InStr(x, "+",, 0) - 1
	j := InStr(x, "-",, 0) - 1
	If (i > j) {
		return Eval(SubStr(x, 1, i)) + Eval(SubStr(x, 0, i + 1))
	}
	If (j > i) {
		return Eval(SubStr(x, 1, j)) - Eval(SubStr(x, 0, j + 1))
	}
	i := InStr(x, "*",, 0) - 1
	j := InStr(x, "/",, 0) - 1
	If (i > j) {
		return Eval(SubStr(x, 1, i)) * Eval(SubStr(x, 0, i + 1))
	}
	If (j > i) {
		return Eval(SubStr(x, 1, j)) / Eval(SubStr(x, 0, i + 1))
	}
	return x
}