为AutoHotkey打造 表达式求值功能(eval函数),方案很多可以是中缀表达式转后缀表达式、也可以是利用正则表达式处理表达式形式。
本位列举两种方案,方案一:利用Excel的Com对象来辅助计算,好处是支持% 自动忽略空格 还支持excel的内置函数,比如sum这类函数。
方案二:利用VBScript的Com对象来辅助计算,简洁明了,不过不支持% ,也能自动忽略空格,不支持英文函数。
;用excel当计算器 支持% 空格
;作者: David 尹(153671978)
oExcel := ComObjCreate("Excel.Application")
oExcel.Workbooks.Add
MsgBox % oExcalc("(1 + 4%)*100 ")
MsgBox % oExcalc("(1 + 12^2 )*100 /3400")
MsgBox % oExcalc("sum(1 + 2 +3+4+5+6+7+8+9+10)")
oExcel.DisplayAlerts:= False
oExcel.Quit
return
oExcalc(string,format="")
{
global oExcel
try{
oExcel.Range("A1").Formula := "= " . string
}
return % oExcel.Range("A1").Value
}
;这个借用Vbs也可以,不过不支持百分号。
eval(str)
{
spt := ComObjCreate("ScriptControl")
spt.Language := "VBScript"
Return,% spt.Eval(str)
}