VBA之正则表达式（46）-- 解析业务逻辑公式

实例需求：某业务系统的逻辑公式如下所示（单行文本），保存在活动工作表的A1单元格中。

"DSO_90Day"->"FA_NoFunc"->"FCCS_No Intercompany"->"FCCS_Data Input"->"FCCS_No Movement"->"NoCC"->"FCCS_YTD_Input" = (("TradeAR"->"Total Functional Area"->"FCCS_Intercompany Top"->"FCCS_Total Data Source"->"FCCS_Movements"->"Total Business Unit"->"FCCS_Periodic" - "TradeARTooling"->"Total Functional Area"->"FCCS_Intercompany Top"->"FCCS_Total Data Source"->"FCCS_Movements"->"Total Business Unit"->"FCCS_Periodic" + "AllowDbtflAcc"->"Total Functional Area"->"FCCS_Intercompany Top"->"FCCS_Total Data Source"->"FCCS_Movements"->"Total Business Unit"->"FCCS_Periodic" ) / ("NetSalesTwoMthsPrior"->"Total Functional Area"->"FCCS_Intercompany Top"->"FCCS_Total Data Source"->"FCCS_Movements"->"Total Business Unit"->"FCCS_Periodic" + "NetSalesCurrent"->"Total Functional Area"->"FCCS_Intercompany Top"->"FCCS_Total Data Source"->"FCCS_Movements"->"Total Business Unit"->"FCCS_Periodic" + "NetSalesPrior"->"Total Functional Area"->"FCCS_Intercompany Top"->"FCCS_Total Data Source"->"FCCS_Movements"->"Total Business Unit"->"FCCS_Periodic")) * 90;

为了便于大家理解数据提取需求，将逻辑公式格式化为缩进格式。

"DSO_90Day"->"FA_NoFunc"->"FCCS_No Intercompany"->"FCCS_Data Input"->"FCCS_No Movement"->"NoCC"->"FCCS_YTD_Input"  = 
(
	("TradeAR"->"Total Functional Area"->"FCCS_Intercompany Top"->"FCCS_Total Data Source"->"FCCS_Movements"->"Total Business Unit"->"FCCS_Periodic" - 
	"TradeARTooling"->"Total Functional Area"->"FCCS_Intercompany Top"->"FCCS_Total Data Source"->"FCCS_Movements"->"Total Business Unit"->"FCCS_Periodic"  + 
	"AllowDbtflAcc"->"Total Functional Area"->"FCCS_Intercompany Top"->"FCCS_Total Data Source"->"FCCS_Movements"->"Total Business Unit"->"FCCS_Periodic" ) / 
	("NetSalesTwoMthsPrior"->"Total Functional Area"->"FCCS_Intercompany Top"->"FCCS_Total Data Source"->"FCCS_Movements"->"Total Business Unit"->"FCCS_Periodic" + 
	"NetSalesCurrent"->"Total Functional Area"->"FCCS_Intercompany Top"->"FCCS_Total Data Source"->"FCCS_Movements"->"Total Business Unit"->"FCCS_Periodic" + 
	"NetSalesPrior"->"Total Functional Area"->"FCCS_Intercompany Top"->"FCCS_Total Data Source"->"FCCS_Movements"->"Total Business Unit"->"FCCS_Periodic")
	) * 
	90;

现在需要按如下规则提取数据，结果如下所示。

• 提取引号之间的的关键字，可能包含空格
• 提取相应的操作符合： + - * / =
• 提取最后的数字

示例代码如下。

Sub ParseRule()
    Dim ruleSheet As Worksheet
    Dim smartViewSheet As Worksheet
    Dim rule As String, res()
    Dim i As Long, j As Long, iR As Long
    Dim aTxt, strMatch As String, arrRes
    Dim objRegExp As Object, objMatch As Object
    Set ruleSheet = ThisWorkbook.Sheets(1)
    Set smartViewSheet = ThisWorkbook.Sheets(2)
    smartViewSheet.Cells.Clear
    rule = ruleSheet.Range("A1").Value
    Set objRegExp = CreateObject("vbscript.regexp")
    objRegExp.Pattern = "((?:[\w ]+->){6}[\w]+)[\s)]*([=+\-*\/])\s([\d]*)"
    objRegExp.Global = True
    objRegExp.IgnoreCase = True
    objRegExp.MultiLine = False
    Set objMatch = objRegExp.Execute(Replace(rule, Chr(34), ""))
    If objMatch.Count > 0 Then
        ReDim arrRes(1 To objMatch.Count + 1, UBound(Split(objMatch(0).submatches(0), "->")) + 2)
        For j = 0 To objMatch.Count - 1
            strMatch = objMatch(j).submatches(0)
            aTxt = Split(strMatch, "->")
            iR = iR + 1
            For i = 0 To UBound(aTxt)
                arrRes(iR, i) = Trim(aTxt(i))
            Next
            arrRes(iR, i + 1) = objMatch(j).submatches(1)
            If Len(objMatch(j).submatches(2)) > 0 Then
                arrRes(iR + 1, i + 1) = objMatch(j).submatches(2)
            End If
        Next
    End If
    smartViewSheet.Range("A1").Resize(UBound(arrRes, 1), UBound(arrRes, 2) + 1).Value = arrRes
End Sub

【代码解析】
第9~10行代码获取工作表对象。
第11行代码清空工作表用于保存结果。
第12行代码由A1单元格读取字符串。
第13行代码创建正则对象。
第14行代码设置正则匹配模式。

正则表达式	说明
[\w ]	非提取组用于匹配数字、字母和空格
(?:[\w ]+->){6}	非提取组，用于6匹配关键字（单个或者多个）->
((?:[\w ]+->){6}[\w]+)	之后匹配一个或者多个字符，作为第一个提取组
[\s)]*	匹配任意个数的白字符或者右括号
([=+-*/])	第二个匹配组，用于提取符号
\s	匹配单个白字符
([\d]*)	第3个匹配组，用于匹配任意数量的数字

第15行代码设置正则全局匹配。
第16行代码设置正则匹配忽略大小写。
第16行代码设置正则匹配使用单行模式。
第17行代码执行正则匹配，注意此处使用Replace函数去除了字符串中的双引号。
第19行代码判断匹配成功。
第20行代码创建数组用于保存结果。
第21~32行代码循环提取每个匹配数据。
第22行代码获取第一个匹配组字符串内容。
第23行代码使用->作为分界符拆分字符串。
第25~27行代码将拆分后的内容保存在数组中。
第28行代码获取第2个匹配组字符串内容。
第29行代码判断是否成功匹配第3个匹配组，如果存在，那么第30行代码将其保存在结果数组中。
第34行代码将结果写入工作表。