[原创]用VB实现字符形式的表达式的计算.

zeng29

有时需要计算以字符串保存的数学表达式,又没有直接的函数可供调用,但可以根据表达式的运算规则编制这样的模块程序来实现.
原理:
1.建立两个堆栈,并自左至右扫描表达式;
2.如遇操作数,一律压入堆栈;
3.如遇操作符,如优于栈顶操作符,则压入堆栈,否则以操作符栈顶的操作符计算数据栈顶的两个操作数,以此类推.

CalExp类(3K)


主函数如下:

2. 
   
3. Option Explicit
   
4. 
   
5. '
   
6. '
   
7. '---------------------------------
   
8. 'Class  :CalExp
   
9. '
   
10. 'Program:zeng29
    
11. 'Date   :2003/10/25
    
12. 'Ver.   :1.0.0
    
13. '
    
14. '---------------------------------
    
15. '
    
16. '
    
17. 
    
18. Private Const cPi = 3.14159265358979
    
19. Private Const cE = 2.71828182845905
    
20. 
    
21. Public Function CalExpression(sExp As String) As Variant
    
22.     Dim ReadPoint As Integer, i As Integer, j As Integer, sChar As String
    
23.     Dim sOpArray As Variant, iOpPower As Variant, sFunArray As Variant
    
24.     Dim DataStack() As Double, OpStack() As String
    
25.     Dim sCurOP As String, iIndex As Integer, iFlag As Integer, sPara As String
    
26.     Dim sFunName As String, vRet As Variant
    
27.     Dim dData1 As Variant, dData2 As Variant, sOp As String
    
28.    
    
29.     '初始化...
    
30.     ReDim DataStack(0)
    
31.     ReDim OpStack(0)
    
32.     sOpArray = Array("+", "-", "*", "/", "^", "%")
    
33.     iOpPower = Array(1, 1, 3, 3, 4, 2)
    
34.     sFunArray = Array("sin", "cos", "tan", "asin", "acos", "atn", "abs", "ln", "pi", "e")
    
35.     ReadPoint = 1
    
36.    
    
37.     While ReadPoint <= Len(sExp)
    
38.         sChar = Mid(sExp, ReadPoint, 1)
    
39.         
    
40.         '运用递归处理"( )"...
    
41.         If sChar = "(" Then
    
42.             sPara = ""
    
43.             For i = ReadPoint To Len(sExp)
    
44.                 sChar = Mid(sExp, i, 1)
    
45.                 If sChar = "(" Then
    
46.                     iFlag = iFlag + 1
    
47.                 ElseIf sChar = ")" Then
    
48.                     iFlag = iFlag - 1
    
49.                     If iFlag = 0 Then
    
50.                         vRet = CalExpression(sPara)
    
51.                         If IsNumeric(vRet) Then
    
52.                             PushToStc DataStack, vRet
    
53.                             ReadPoint = i + 1
    
54.                             Exit For
    
55.                         Else
    
56.                             CalExpression = vRet
    
57.                             Exit Function
    
58.                         End If
    
59.                     End If
    
60.                 End If
    
61.                 If iFlag <> 0 And i <> ReadPoint Then sPara = sPara & sChar
    
62.             Next i
    
63.             If iFlag <> 0 Then
    
64.                 CalExpression = "错误的表达式:括号不成对!"
    
65.                 Exit Function
    
66.             End If
    
67.         
    
68.         '读取数值...
    
69.         ElseIf IsNumeric(sChar) Or sChar = "." Or (ReadPoint = 1 And (sChar = "+" Or sChar = "-")) Then
    
70.             sPara = ""
    
71.             For i = ReadPoint To Len(sExp)
    
72.                 sChar = Mid(sExp, i, 1)
    
73.                 If IsNumeric(sChar) Or sChar = "." Or (i = 1 And (sChar = "+" Or sChar = "-")) Then
    
74.                     sPara = sPara & sChar
    
75.                 ElseIf IsNumeric(sPara) Then
    
76.                     PushToStc DataStack, sPara
    
77.                     ReadPoint = i
    
78.                     Exit For
    
79.                 Else
    
80.                     CalExpression = "非法的表达式:" & sPara & sChar
    
81.                     Exit Function
    
82.                 End If
    
83.             Next i
    
84.             If i > Len(sExp) And IsNumeric(sPara) Then PushToStc DataStack, sPara
    
85.             ReadPoint = i
    
86.         Else
    
87.             vRet = GetIndex(sOpArray, sChar)
    
88.             
    
89.             '读取操作符...
    
90.             If vRet <> "Null" Then
    
91. ReCheck:
    
92.                 If PopFromStc(OpStack, False) = "Null" Then
    
93.                     PushToStc OpStack, sChar
    
94.                 Else
    
95.                     If iOpPower(vRet) > iOpPower(GetIndex(sOpArray, PopFromStc(OpStack, False))) Then
    
96.                         PushToStc OpStack, sChar
    
97.                     Else
    
98.                         dData2 = PopFromStc(DataStack)
    
99.                         dData1 = PopFromStc(DataStack)
    
100.                         sOp = PopFromStc(OpStack)
     
101.                         PushToStc DataStack, ProCal(dData1, dData2, sOp)
     
102.                         GoTo ReCheck
     
103.                     End If
     
104.                 End If
     
105.             Else
     
106.             
     
107.                 '读取函数...
     
108.                 vRet = Asc(LCase(sChar))
     
109.                 If vRet >= Asc("a") And vRet <= Asc("z") Then
     
110.                     sFunName = ""
     
111.                     For i = ReadPoint To Len(sExp)
     
112.                         sChar = Mid(sExp, i, 1)
     
113.                         vRet = Asc(LCase(sChar))
     
114.                         If vRet >= Asc("a") And vRet <= Asc("z") Then
     
115.                             sFunName = sFunName & sChar
     
116.                         ElseIf sChar = "(" Then
     
117.                             vRet = GetIndex(sFunArray, sFunName)
     
118.                             If vRet = "Null" Then
     
119.                                 CalExpression = "不知道的函数:" & sFunName
     
120.                                 Exit Function
     
121.                             End If
     
122.                             sPara = ""
     
123.                             iFlag = 0
     
124.                             For j = i To Len(sExp)
     
125.                                 sChar = Mid(sExp, j, 1)
     
126.                                 If sChar = "(" Then
     
127.                                     iFlag = iFlag + 1
     
128.                                 ElseIf sChar = ")" Then
     
129.                                     iFlag = iFlag - 1
     
130.                                     If iFlag = 0 Then
     
131.                                         vRet = CallFun(sFunName, sPara)
     
132.                                         sFunName = ""
     
133.                                         If IsNumeric(vRet) Then
     
134.                                             PushToStc DataStack, vRet
     
135.                                             ReadPoint = j + 1
     
136.                                             GoTo ReadNext
     
137.                                         Else
     
138.                                             CalExpression = vRet
     
139.                                             Exit Function
     
140.                                         End If
     
141.                                     End If
     
142.                                 End If
     
143.                                 If iFlag <> 0 And (j <> i) Then sPara = sPara & sChar
     
144.                             Next j
     
145.                             If iFlag <> 0 Then
     
146.                                 CalExpression = "错误的表达式:括号不成对!"
     
147.                                 Exit Function
     
148.                             End If
     
149.                         End If
     
150.                         If i = Len(sExp) And sFunName <> "" Then
     
151.                             CalExpression = "函数的用法:函数名([参数])"
     
152.                             Exit Function
     
153.                         End If
     
154.                     Next i
     
155.                 Else
     
156.                     CalExpression = "错误的表达式:不知道的操作符:" & sChar
     
157.                     Exit Function
     
158.                 End If
     
159.             End If
     
160.             ReadPoint = ReadPoint + 1
     
161.         End If
     
162. ReadNext:
     
163.     Wend
     
164.    
     
165.     '运算最终结果...
     
166.     If UBound(DataStack) = 1 Then
     
167.         CalExpression = PopFromStc(DataStack)
     
168.     Else
     
169.         Do
     
170.             dData2 = PopFromStc(DataStack)
     
171.             dData1 = PopFromStc(DataStack)
     
172.             sOp = PopFromStc(OpStack)
     
173.             If IsNumeric(dData1) And IsNumeric(dData2) And sOp <> "Null" Then
     
174.                 PushToStc DataStack, ProCal(dData1, dData2, sOp)
     
175.             Else
     
176.                 CalExpression = "非法的表达式!"
     
177.                 Exit Function
     
178.             End If
     
179.         Loop Until PopFromStc(OpStack, False) = "Null"
     
180.         CalExpression = PopFromStc(DataStack)
     
181.     End If
     
182. End Function
     

<br /> Option Explicit<br /> <br /> '<br /> '<br /> '---------------------------------<br /> 'Class  :CalExp<br /> '<br /> 'Program:zeng29<br /> 'Date   :2003/10/25<br /> 'Ver.   :1.0.0<br /> '<br /> '---------------------------------<br /> '<br /> '<br /> <br /> Private Const cPi = 3.14159265358979<br /> Private Const cE = 2.71828182845905<br /> <br /> Public Function CalExpression(sExp As String) As Variant<br />     Dim ReadPoint As Integer, i As Integer, j As Integer, sChar As String<br />     Dim sOpArray As Variant, iOpPower As Variant, sFunArray As Variant<br />     Dim DataStack() As Double, OpStack() As String<br />     Dim sCurOP As String, iIndex As Integer, iFlag As Integer, sPara As String<br />     Dim sFunName As String, vRet As Variant<br />     Dim dData1 As Variant, dData2 As Variant, sOp As String<br />     <br />     '初始化...<br />     ReDim DataStack(0)<br />     ReDim OpStack(0)<br />     sOpArray = Array("+", "-", "*", "/", "^", "%")<br />     iOpPower = Array(1, 1, 3, 3, 4, 2)<br />     sFunArray = Array("sin", "cos", "tan", "asin", "acos", "atn", "abs", "ln", "pi", "e")<br />     ReadPoint = 1<br />     <br />     While ReadPoint <= Len(sExp)<br />         sChar = Mid(sExp, ReadPoint, 1)<br />         <br />         '运用递归处理"( )"...<br />         If sChar = "(" Then<br />             sPara = ""<br />             For i = ReadPoint To Len(sExp)<br />                 sChar = Mid(sExp, i, 1)<br />                 If sChar = "(" Then<br />                     iFlag = iFlag + 1<br />                 ElseIf sChar = ")" Then<br />                     iFlag = iFlag - 1<br />                     If iFlag = 0 Then<br />                         vRet = CalExpression(sPara)<br />                         If IsNumeric(vRet) Then<br />                             PushToStc DataStack, vRet<br />                             ReadPoint = i + 1<br />                             Exit For<br />                         Else<br />                             CalExpression = vRet<br />                             Exit Function<br />                         End If<br />                     End If<br />                 End If<br />                 If iFlag <> 0 And i <> ReadPoint Then sPara = sPara & sChar<br />             Next i<br />             If iFlag <> 0 Then<br />                 CalExpression = "错误的表达式:括号不成对!"<br />                 Exit Function<br />             End If<br />         <br />         '读取数值...<br />         ElseIf IsNumeric(sChar) Or sChar = "." Or (ReadPoint = 1 And (sChar = "+" Or sChar = "-")) Then<br />             sPara = ""<br />             For i = ReadPoint To Len(sExp)<br />                 sChar = Mid(sExp, i, 1)<br />                 If IsNumeric(sChar) Or sChar = "." Or (i = 1 And (sChar = "+" Or sChar = "-")) Then<br />                     sPara = sPara & sChar<br />                 ElseIf IsNumeric(sPara) Then<br />                     PushToStc DataStack, sPara<br />                     ReadPoint = i<br />                     Exit For<br />                 Else<br />                     CalExpression = "非法的表达式:" & sPara & sChar<br />                     Exit Function<br />                 End If<br />             Next i<br />             If i > Len(sExp) And IsNumeric(sPara) Then PushToStc DataStack, sPara<br />             ReadPoint = i<br />         Else<br />             vRet = GetIndex(sOpArray, sChar)<br />             <br />             '读取操作符...<br />             If vRet <> "Null" Then<br /> ReCheck:<br />                 If PopFromStc(OpStack, False) = "Null" Then<br />                     PushToStc OpStack, sChar<br />                 Else<br />                     If iOpPower(vRet) > iOpPower(GetIndex(sOpArray, PopFromStc(OpStack, False))) Then<br />                         PushToStc OpStack, sChar<br />                     Else<br />                         dData2 = PopFromStc(DataStack)<br />                         dData1 = PopFromStc(DataStack)<br />                         sOp = PopFromStc(OpStack)<br />                         PushToStc DataStack, ProCal(dData1, dData2, sOp)<br />                         GoTo ReCheck<br />                     End If<br />                 End If<br />             Else<br />             <br />                 '读取函数...<br />                 vRet = Asc(LCase(sChar))<br />                 If vRet >= Asc("a") And vRet <= Asc("z") Then<br />                     sFunName = ""<br />                     For i = ReadPoint To Len(sExp)<br />                         sChar = Mid(sExp, i, 1)<br />                         vRet = Asc(LCase(sChar))<br />                         If vRet >= Asc("a") And vRet <= Asc("z") Then<br />                             sFunName = sFunName & sChar<br />                         ElseIf sChar = "(" Then<br />                             vRet = GetIndex(sFunArray, sFunName)<br />                             If vRet = "Null" Then<br />                                 CalExpression = "不知道的函数:" & sFunName<br />                                 Exit Function<br />                             End If<br />                             sPara = ""<br />                             iFlag = 0<br />                             For j = i To Len(sExp)<br />                                 sChar = Mid(sExp, j, 1)<br />                                 If sChar = "(" Then<br />                                     iFlag = iFlag + 1<br />                                 ElseIf sChar = ")" Then<br />                                     iFlag = iFlag - 1<br />                                     If iFlag = 0 Then<br />                                         vRet = CallFun(sFunName, sPara)<br />                                         sFunName = ""<br />                                         If IsNumeric(vRet) Then<br />                                             PushToStc DataStack, vRet<br />                                             ReadPoint = j + 1<br />                                             GoTo ReadNext<br />                                         Else<br />                                             CalExpression = vRet<br />                                             Exit Function<br />                                         End If<br />                                     End If<br />                                 End If<br />                                 If iFlag <> 0 And (j <> i) Then sPara = sPara & sChar<br />                             Next j<br />                             If iFlag <> 0 Then<br />                                 CalExpression = "错误的表达式:括号不成对!"<br />                                 Exit Function<br />                             End If<br />                         End If<br />                         If i = Len(sExp) And sFunName <> "" Then<br />                             CalExpression = "函数的用法:函数名([参数])"<br />                             Exit Function<br />                         End If<br />                     Next i<br />                 Else<br />                     CalExpression = "错误的表达式:不知道的操作符:" & sChar<br />                     Exit Function<br />                 End If<br />             End If<br />             ReadPoint = ReadPoint + 1<br />         End If<br /> ReadNext:<br />     Wend<br />     <br />     '运算最终结果...<br />     If UBound(DataStack) = 1 Then<br />         CalExpression = PopFromStc(DataStack)<br />     Else<br />         Do<br />             dData2 = PopFromStc(DataStack)<br />             dData1 = PopFromStc(DataStack)<br />             sOp = PopFromStc(OpStack)<br />             If IsNumeric(dData1) And IsNumeric(dData2) And sOp <> "Null" Then<br />                 PushToStc DataStack, ProCal(dData1, dData2, sOp)<br />             Else<br />                 CalExpression = "非法的表达式!"<br />                 Exit Function<br />             End If<br />         Loop Until PopFromStc(OpStack, False) = "Null"<br />         CalExpression = PopFromStc(DataStack)<br />     End If<br /> End Function<br />

subtlation

怎么用？
我导入模块后写
k="2*3"
msgbox calexpression(k)
不能运行，显示：函数未定义。
我把calex类模块的内容全部复制到自己建立的模块1时，就可以使用了。

今晚打老虎

这与数据结构里面的算符优先算法很相似阿~~~~

alldying

cvbndvhcnddfd

likejishu

表达式可用于CAD的常用计算中，好！