[求助]：数学公式解析的方法

byyw

我想用vba解析数学公式，也就是用户输入类似a+b/c-(e/(f*g))这样的公式（公式只包含加减乘除和小括号、负号、小数点），我的程序能识别这个公式并当用户输入a,b,c,d,e,f,g的数值时，我能给出结果。这里强调公式由用户输入，是因为我的程序写完后，用户有可能新增公式，而此时我的程序无需修改。
请高手给个算法说明或是vba代码示例，万分感谢。

ntchjie

有一些控件可以实现你搜索搜索看，你也可以自己编写代码实现，我以前编写过的，因为你的计算类型不多，仅有加减乘除和小括号，完全可以实现。

雪山飞狐(lzh)

Dim a As Object
Set a = CreateObject("ScriptControl")
a.language = "vbs"
a.ExecuteStatement "a=1"
a.ExecuteStatement "b=2"
MsgBox a.eval("a+b")

pweish

我记得清华出的那本《数据结构 C＋＋版》上有上述算法的伪码和算法设计思想。你可以找一下修改修改。

byyw

我发现了3楼的办法不能完全实现我的功能，我的公式长度是变化的，也就是abcd不是固定的，用户如果已经有了一个公式，运算项是abcd，他新加的公式可能不是4个运算项了，也许是abcdef，你提供的这方法实现就不容易了。

dashan

可以试试 Class Math Expression Parser
v. 4.0.0  by Leonardo Volpi, Michael Ruder, Thomas Zeutschler, Lieven Dossche.

A nice class for parsing and evaluating math expressions in Visual Basic  and VBA.


http://digilander.libero.it/foxe ... pressionsParser.htm

byyw

谢谢，我先看看

winabcd

dashan：
    不知你知不知道，你给出的网页可能有问题，我打开你给出的网页时，系统警告说，网页中有恶意代码，我不能确定你给出的网页一定有恶意代码，但我希望大家不要在这里给出有恶意代码的网页，保持一片净土，让大家能在这里放心里讨论，放心地获取知识、资料。

dashan

我刚又试了一下那个连接，但没有“恶意代码”的提示，机器装的是Norton 9.0企业版，而且病毒定义是2005年1月26日的。
到现在我也不知道那里面到底有没有病毒，而且从网址的后缀上可以看出那是一个意大利的网址，跟我一点关系都没有，如果出于什么不好的目的的话也不用跑到那么远的一个地方。纯粹是觉得是除了用ScriptControl以外，还可以有其它的方法可以解决，才把它贴出来的。

winabcd

我打开时出现的提示：
我用的是端星2005，2005.1.27.更新。
我不是讲你做这样的事，只是提醒大家，给出连接时，要注意所给的连接是安全的。

MingSoft

解析公式的 基本原理就是《编译原理》方面的课程， 当然如果你用3楼的方法，不如调用 lisp扩展函数 (cal   expresstion ) 非常简单。

lisp的例子可见
http://www.mingsoft.net/bbs/dispbbs.asp?boardid=5&id=27