📄 m53.htm
字号:
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
<td bgcolor=#000000 height=9>
<div align=center class=H1> 表达式编译计算器(上)</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=76>
<p align="left"> <br>
</font></p>
<div align="left"> 概述由于某种原因，
近日编写了一个使用编译原理实现的表达式计算器。 使用该程序可以不但可以计算普通的数字和字符串表达式， 而且支持一些VB 的常用函数及极好的可扩展性。
例如：<br>
录入字符串： len("1234") + 10/2 结果： 9<br>
录入字符串： mid("1234",2) & cstr(10/2) 结果： 2345<br>
<br>
在该程序的设计中， 使用了编译的基本概念。所以可以极其方便得加入新的语法， 一个可能的例子就是实现宏替换， 作为一个演示， 我在该类中也提供了一个宏替换的接口。语法编译说穿了是对一个数据流进行逐字的分析，
把分析过程看做是不断的读取数据， 是实现程序的一个基本思想。现在让我们自顶而下地对表达式进行分析， 该语法图如下：<br>
<img alt="flow.jpg (39477 字节)" height=656
src="../../pic/flow.jpg" width=365 align="absmiddle"><br>
注意： 其中宏替换的字符是在键盘左上角和 ~ 一起的那个。完整的语法图应该还包括其他几个定义， 没有在上图表现出来。<br>
<br>
只要理解了语法， 实现就方便了。实现表达式作为一个语法实现的例子， 下面是实现表达式定义的函数：<br>
Public Function GetExp(Str1 As String) As String<br>
Dim Val1, Val2, Op1, Op2, Val3<br>
Dim NewVal<br>
Val1 = GetValue(Str1) ' 得到一个值<br>
NewVal = Val1<br>
Op1 = ReadOp(Str1) ' 取下一个操作字符<br>
Do While Op1 <> "" ' 直到没有任何操作符才结束<br>
Val2 = GetValue(Str1) ' 取操作符后面的值<br>
Op2 = ReadOp(Str1) ' 取下一个操作符， 目的是实现 * / 的优先操作。<br>
Do While Op2 <> ""<br>
If (Op2 = "*" Or Op2 = "/") And (Op1 = "-" Or Op1 = "+") Then<br>
Val3 = GetValue(Str1)<br>
Val2 = CompStr(Val2, Op2, Val3) 'CompStr 函数完成计算操作<br>
Op2 = ReadOp(Str1)<br>
Else<br>
Exit Do<br>
End If<br>
Loop<br>
NewVal = CompStr(NewVal, Op1, Val2)<br>
Op1 = Op2<br>
Loop<br>
GetExp = NewVal ' 返回计算结果<br>
End Function值Private Function GetValue(Str1 As String) As String<br>
Dim C1 As String<br>
C1 = ReadChar(Str1) '取一个字符<br>
Do While C1 = " " And C1 <> ""<br>
C1 = ReadChar(Str1) '去掉空格<br>
Loop<br>
Select Case C1<br>
Case """" ' 如果是"， 认为是一个字符串<br>
GetValue = ReadString(Str1) '读入一个字符串<br>
CurType = "string" ' 为以后的类型检查准备<br>
Case "("<br>
GetValue = GetExp(Str1) ' 如果是括号中的话， 认为是另一个表达式<br>
C1 = ReadChar(Str1) '下面的代码是检查括号匹配<br>
Do While C1 <> "" And C1 = " "<br>
C1 = ReadChar(Str1)<br>
Loop<br>
If C1 <> ")" Then ErrorStr = "需要 )"<br>
Case "0" To "9"<br>
GetValue = C1 & ReadNumber(Str1) '读如数字串<br>
CurType = "number"<br>
Case "`"<br>
GetValue = ReadField(Str1) ' 进行宏处理<br>
Case Else<br>
RetChar Str1, C1 '如果是其他， 把该字符退回<br>
GetValue = ReadFunction(Str1) '进入函数处理程序<br>
End Select<br>
End Function两个基本的函数下面的两个函数实现了最基本的从表达式中取一个字符或退回一个字符。' ReadChar： 取出一个字符，
<br>
' 参数： Str1 要处理的表达式字符串<br>
' 返回： 第一个字符<br>
' Str1 成为被取后的字符串<br>
Private Function ReadChar(Str1 As String) As String<br>
ReadChar = ""<br>
If Str1 = "" Then Exit Function<br>
ReadChar = Left(Str1, 1)<br>
Str1 = Right(Str1, Len(Str1) - 1)<br>
End Function<br>
<br>
' RetChar退回一个字符<br>
' 参数： Str1 处理的字符串<br>
' AChar 要退回的字符<br>
' 返回： Str1 ：被退回的字符串<br>
Private Function RetChar(Str1 As String, AChar As String) As String<br>
Str1 = AChar & Str1<br>
RetChar = Str1<br>
End Function数字' 读入数字<br>
' 参数： Str1 处理的字符串<br>
' 返回： 取到的数字， "" 为错误！<br>
' Str1 ：处理后字符串<br>
Private Function ReadNumber(Str1 As String) As String<br>
Dim C1 As String<br>
Dim rets As String<br>
rets = ""<br>
C1 = ReadChar(Str1)<br>
Do While C1 <> ""<br>
If C1 >= "0" And C1 <= "9" Then<br>
rets = rets & C1<br>
Else<br>
RetChar Str1, C1<br>
Exit Do<br>
End If<br>
C1 = ReadChar(Str1)<br>
Loop<br>
ReadNumber = rets<br>
End FunctionTo Be Continue...谢谢您看到这里， 看来您是对该程序真的有兴趣。 请发Mail 给我，
好让我把该程序的源代码(请写明是文档 Y022 的代码) 发给您。 谢谢。在下一篇中， 我将继续就其他的一些语法的实现和该程序的扩展进行进一步的讨论。（PS:
如果没有什么人对该程序兴趣， 我就不写下篇了） <br>
</span></font> <br>
<br>
</b></font> </div>
</td>
</tr>
</table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -