Function JS(表达式) Set x = CreateObject("MSScriptControl.ScriptControl") 表达式 = Replace(Replace(表达式, "(", "("), ")", ")") x.Language = "vbscript" With CreateObject("VBSCRIPT.REGEXP") .Global = True .Pattern = "\[.*?\]|{(.*?)}|[^0-9.+-/^*()]" JS = x.Eval(.Replace(表达式, "$1")) End With End Function