概述
由于某種原因， 近日編寫(xiě)了一個(gè)使用編譯原理實(shí)現(xiàn)的表達(dá)式計(jì)算器。 使用該程序可以不但可以計(jì)算普通的數(shù)字和字符串表達(dá)式， 而且支持一些VB 的常用函數(shù)及極好的可擴(kuò)展性。 例如：
錄入字符串： len("1234") + 10/2 結(jié)果： 9
錄入字符串： mid("1234",2) & cstr(10/2) 結(jié)果： 2345
在該程序的設(shè)計(jì)中， 使用了編譯的基本概念。所以可以極其方便得加入新的語(yǔ)法， 一個(gè)可能的例子就是實(shí)現(xiàn)宏替換， 作為一個(gè)演示， 考試大在該類(lèi)中也提供了一個(gè)宏替換的接口。
語(yǔ)法
編譯說(shuō)穿了是對(duì)一個(gè)數(shù)據(jù)流進(jìn)行逐字的分析， 把分析過(guò)程看做是不斷的讀取數(shù)據(jù)， 是實(shí)現(xiàn)程序的一個(gè)基本思想?，F(xiàn)在讓我們自頂而下地對(duì)表達(dá)式進(jìn)行分析。
注意： 其中宏替換的字符是在鍵盤(pán)左上角和 ~ 一起的那個(gè)。完整的語(yǔ)法圖應(yīng)該還包括其他幾個(gè)定義， 沒(méi)有表現(xiàn)出來(lái)。
只要理解了語(yǔ)法， 實(shí)現(xiàn)就方便了。
實(shí)現(xiàn)
表達(dá)式
作為一個(gè)語(yǔ)法實(shí)現(xiàn)的例子， 下面是實(shí)現(xiàn)表達(dá)式定義的函數(shù)：
Public Function GetExp(Str1 As String) As String
Dim Val1, Val2, Op1, Op2, Val3
Dim NewVal
Val1 = GetValue(Str1) ’ 得到一個(gè)值
NewVal = Val1
Op1 = ReadOp(Str1) ’ 取下一個(gè)操作字符
Do While Op1 <> "" ’ 直到?jīng)]有任何操作符才結(jié)束
Val2 = GetValue(Str1) ’ 取操作符后面的值
Op2 = ReadOp(Str1) ’ 取下一個(gè)操作符， 目的是實(shí)現(xiàn) * / 的優(yōu)先操作。
Do While Op2 <> ""
If (Op2 = "*" Or Op2 = "/") And (Op1 = "-" Or Op1 = "+") Then
Val3 = GetValue(Str1)
Val2 = CompStr(Val2, Op2, Val3) ’CompStr 函數(shù)完成計(jì)算操作
Op2 = ReadOp(Str1)
Else
Exit Do
End If
Loop
NewVal = CompStr(NewVal, Op1, Val2)
Op1 = Op2
Loop
GetExp = NewVal ’ 返回計(jì)算結(jié)果
End Function
值
Private Function GetValue(Str1 As String) As String
Dim C1 As String
C1 = ReadChar(Str1) ’取一個(gè)字符
Do While C1 = " " And C1 <> ""
C1 = ReadChar(Str1) ’去掉空格
Loop
Select Case C1
Case """" ’ 如果是"， 認(rèn)為是一個(gè)字符串
GetValue = ReadString(Str1) ’讀入一個(gè)字符串
CurType = "string" ’ 為以后的類(lèi)型檢查準(zhǔn)備
Case "("
GetValue = GetExp(Str1) ’ 如果是括號(hào)中的話(huà)， 認(rèn)為是另一個(gè)表達(dá)式
C1 = ReadChar(Str1) ’下面的代碼是檢查括號(hào)匹配
Do While C1 <> "" And C1 = " "
C1 = ReadChar(Str1)
Loop
If C1 <> ")" Then ErrorStr = "需要 )"
Case "0" To "9"
GetValue = C1 & ReadNumber(Str1) ’讀如數(shù)字串
CurType = "number"
Case "`"
GetValue = ReadField(Str1) ’ 進(jìn)行宏處理
Case Else
RetChar Str1, C1 ’如果是其他， 把該字符退回
GetValue = ReadFunction(Str1) ’進(jìn)入函數(shù)處理程序
End Select
End Function
兩個(gè)基本的函數(shù)
下面的兩個(gè)函數(shù)實(shí)現(xiàn)了最基本的從表達(dá)式中取一個(gè)字符或退回一個(gè)字符。
’ ReadChar： 取出一個(gè)字符，
’ 參數(shù)： Str1 要處理的表達(dá)式字符串
’ 返回： 第一個(gè)字符
’ Str1 成為被取后的字符串
Private Function ReadChar(Str1 As String) As String
ReadChar = ""
If Str1 = "" Then Exit Function
ReadChar = Left(Str1, 1)
Str1 = Right(Str1, Len(Str1) - 1)
End Function
’ RetChar退回一個(gè)字符
’ 參數(shù)： Str1 處理的字符串
’ AChar 要退回的字符
’ 返回： Str1 ：被退回的字符串
Private Function RetChar(Str1 As String, AChar As String) As String
Str1 = AChar & Str1
RetChar = Str1
End Function
數(shù)字
’ 讀入數(shù)字
’ 參數(shù)： Str1 處理的字符串
’ 返回： 取到的數(shù)字， "" 為錯(cuò)誤！
’ Str1 ：處理后字符串
Private Function ReadNumber(Str1 As String) As String
Dim C1 As String
Dim rets As String
rets = ""
C1 = ReadChar(Str1)
Do While C1 <> ""
If C1 >= "0" And C1 <= "9" Then
rets = rets & C1
Else
RetChar Str1, C1
Exit Do
End If
C1 = ReadChar(Str1)
Loop
ReadNumber = rets
End Function
由于某種原因， 近日編寫(xiě)了一個(gè)使用編譯原理實(shí)現(xiàn)的表達(dá)式計(jì)算器。 使用該程序可以不但可以計(jì)算普通的數(shù)字和字符串表達(dá)式， 而且支持一些VB 的常用函數(shù)及極好的可擴(kuò)展性。 例如：
錄入字符串： len("1234") + 10/2 結(jié)果： 9
錄入字符串： mid("1234",2) & cstr(10/2) 結(jié)果： 2345
在該程序的設(shè)計(jì)中， 使用了編譯的基本概念。所以可以極其方便得加入新的語(yǔ)法， 一個(gè)可能的例子就是實(shí)現(xiàn)宏替換， 作為一個(gè)演示， 考試大在該類(lèi)中也提供了一個(gè)宏替換的接口。
語(yǔ)法
編譯說(shuō)穿了是對(duì)一個(gè)數(shù)據(jù)流進(jìn)行逐字的分析， 把分析過(guò)程看做是不斷的讀取數(shù)據(jù)， 是實(shí)現(xiàn)程序的一個(gè)基本思想?，F(xiàn)在讓我們自頂而下地對(duì)表達(dá)式進(jìn)行分析。
注意： 其中宏替換的字符是在鍵盤(pán)左上角和 ~ 一起的那個(gè)。完整的語(yǔ)法圖應(yīng)該還包括其他幾個(gè)定義， 沒(méi)有表現(xiàn)出來(lái)。
只要理解了語(yǔ)法， 實(shí)現(xiàn)就方便了。
實(shí)現(xiàn)
表達(dá)式
作為一個(gè)語(yǔ)法實(shí)現(xiàn)的例子， 下面是實(shí)現(xiàn)表達(dá)式定義的函數(shù)：
Public Function GetExp(Str1 As String) As String
Dim Val1, Val2, Op1, Op2, Val3
Dim NewVal
Val1 = GetValue(Str1) ’ 得到一個(gè)值
NewVal = Val1
Op1 = ReadOp(Str1) ’ 取下一個(gè)操作字符
Do While Op1 <> "" ’ 直到?jīng)]有任何操作符才結(jié)束
Val2 = GetValue(Str1) ’ 取操作符后面的值
Op2 = ReadOp(Str1) ’ 取下一個(gè)操作符， 目的是實(shí)現(xiàn) * / 的優(yōu)先操作。
Do While Op2 <> ""
If (Op2 = "*" Or Op2 = "/") And (Op1 = "-" Or Op1 = "+") Then
Val3 = GetValue(Str1)
Val2 = CompStr(Val2, Op2, Val3) ’CompStr 函數(shù)完成計(jì)算操作
Op2 = ReadOp(Str1)
Else
Exit Do
End If
Loop
NewVal = CompStr(NewVal, Op1, Val2)
Op1 = Op2
Loop
GetExp = NewVal ’ 返回計(jì)算結(jié)果
End Function
值
Private Function GetValue(Str1 As String) As String
Dim C1 As String
C1 = ReadChar(Str1) ’取一個(gè)字符
Do While C1 = " " And C1 <> ""
C1 = ReadChar(Str1) ’去掉空格
Loop
Select Case C1
Case """" ’ 如果是"， 認(rèn)為是一個(gè)字符串
GetValue = ReadString(Str1) ’讀入一個(gè)字符串
CurType = "string" ’ 為以后的類(lèi)型檢查準(zhǔn)備
Case "("
GetValue = GetExp(Str1) ’ 如果是括號(hào)中的話(huà)， 認(rèn)為是另一個(gè)表達(dá)式
C1 = ReadChar(Str1) ’下面的代碼是檢查括號(hào)匹配
Do While C1 <> "" And C1 = " "
C1 = ReadChar(Str1)
Loop
If C1 <> ")" Then ErrorStr = "需要 )"
Case "0" To "9"
GetValue = C1 & ReadNumber(Str1) ’讀如數(shù)字串
CurType = "number"
Case "`"
GetValue = ReadField(Str1) ’ 進(jìn)行宏處理
Case Else
RetChar Str1, C1 ’如果是其他， 把該字符退回
GetValue = ReadFunction(Str1) ’進(jìn)入函數(shù)處理程序
End Select
End Function
兩個(gè)基本的函數(shù)
下面的兩個(gè)函數(shù)實(shí)現(xiàn)了最基本的從表達(dá)式中取一個(gè)字符或退回一個(gè)字符。
’ ReadChar： 取出一個(gè)字符，
’ 參數(shù)： Str1 要處理的表達(dá)式字符串
’ 返回： 第一個(gè)字符
’ Str1 成為被取后的字符串
Private Function ReadChar(Str1 As String) As String
ReadChar = ""
If Str1 = "" Then Exit Function
ReadChar = Left(Str1, 1)
Str1 = Right(Str1, Len(Str1) - 1)
End Function
’ RetChar退回一個(gè)字符
’ 參數(shù)： Str1 處理的字符串
’ AChar 要退回的字符
’ 返回： Str1 ：被退回的字符串
Private Function RetChar(Str1 As String, AChar As String) As String
Str1 = AChar & Str1
RetChar = Str1
End Function
數(shù)字
’ 讀入數(shù)字
’ 參數(shù)： Str1 處理的字符串
’ 返回： 取到的數(shù)字， "" 為錯(cuò)誤！
’ Str1 ：處理后字符串
Private Function ReadNumber(Str1 As String) As String
Dim C1 As String
Dim rets As String
rets = ""
C1 = ReadChar(Str1)
Do While C1 <> ""
If C1 >= "0" And C1 <= "9" Then
rets = rets & C1
Else
RetChar Str1, C1
Exit Do
End If
C1 = ReadChar(Str1)
Loop
ReadNumber = rets
End Function