再谈Eval——关于计算器的那些事

roych

不久前，我遇到一个朋友，他说看到了一个Access短视频，里面有个函数，可以实时显示计算结果。我很奇怪，为什么会写这样的函数。他说，人最大的烦恼，就是不能随时实现愿望。如果什么愿望都能像这个函数一样，随时实现，你说多开心。这个函数本来打算发给你，现在看起来，我们得一起研究了。

1. Function Calculate(s As String) As Long
   
2.     Dim ops() As Long
   
3.     ReDim ops(0)
   
4.     ops(0) = 1
   
5. 
   
6.     Dim sign As Long
   
7.     sign = 1
   
8. 
   
9.     Dim ret As Long
   
10.     ret = 0
    
11.    
    
12.     Dim n As Long
    
13.     n = Len(s)
    
14. 
    
15.     Dim i As Long
    
16.     i = 1
    
17. 
    
18.     Do While i <= n
    
19.         Select Case Mid(s, i, 1)
    
20.         
    
21.             Case " "
    
22.                 i = i + 1
    
23.             Case "+"
    
24.                 sign = ops(UBound(ops))
    
25. 
    
26.                 i = i + 1
    
27. 
    
28.             Case "-"
    
29.                 sign = -ops(UBound(ops))
    
30.                 i = i + 1
    
31. 
    
32.             Case "("
    
33. 
    
34.                 ReDim Preserve ops(UBound(ops) + 1)
    
35. 
    
36.                 ops(UBound(ops)) = sign
    
37. 
    
38.                 i = i + 1
    
39. 
    
40.             Case ")"
    
41. 
    
42.                 ReDim Preserve ops(UBound(ops) - 1)
    
43. 
    
44.                 i = i + 1
    
45. 
    
46.             Case Else
    
47.                 Dim num As Long
    
48.                 num = 0
    
49. 
    
50.                 Do While i <= n And IsNumeric(Mid(s, i, 1))
    
51. 
    
52.                     num = num * 10 + CLng(Mid(s, i, 1))
    
53. 
    
54.                     i = i + 1
    
55.                 Loop
    
56.                 ret = ret + sign * num
    
57.         End Select
    
58.     Loop
    
59. 
    
60.     Calculate = ret
    
61. 
    
62. End Function

复制代码

我看了一眼，虽然可以实时显示，但还是太复杂了。我很奇怪，为什么博主不用eval函数，而是非要使用数组？
关于eval函数，很久以前写过一个帖子，用于计算学杂费之类：
http://www.office-cn.net/thread-108898-1-1.html
在我看来，使用eval函数应该会更简单些。另外，考虑到只有加减法，根据加减法结合律，小括号对加减运算没任何影响，所以干脆去掉小括号的判定，于是有了这个简单版本：

1. Function StrtoLong(ByVal strExpress As String) As Long
   
2.     Dim strResult As String
   
3.     '如果最后一个字符是运算符，剔除
   
4.     If InStr(1, "+-*/^", Right(strExpress, 1)) Then
   
5.         strResult = Left(strExpress, Len(strExpress) - 1)
   
6.         
   
7.     Else
   
8.         strResult = strExpress
   
9.     End If
   
10. 
    
11.     StrtoLong = Eval(strResult)
    
12. End Function

复制代码

写完这个，后来想想，既然非要使用小括号，那不如把乘、除和幂方也加上吧，便有了一个进阶版。
这里就不贴代码了。有需要的版友可以自行下载附件。
需要说明的是：

• 三个窗体都没有进行错误处理，使用时请确保输入字符为指定的字符。否则会出错，导致Access”假死“（目前我遇到的是这个情况）。
• 进阶版虽然支持小括号运算，但暂时还不能处理嵌套小括号的问题。这是因为需要使用正则表达式来提取小括号内部的表达式，再进行处理，可能需要用到递归算法，处理完毕后再拼接回去，过程相对复杂。而且一旦存在多个嵌套小括号的情况，复杂度将成倍增加。因此暂时不加上。
  

huanghyd

学习了，谢谢大神分享