A+B→MatchCollection获得字符串"+"

ning84

A+(B-C)/2采用 .Pattern ="A|B|C"方法，获得结果如图。





‘*******************

1. Sub Test20180109()
   
2.    Dim RegX As New RegExp, S$, Strnew$
   
3.    Dim Str, Str1, PattStr
   
4.    Dim Arr(0), PattArr(10)
   
5.    Dim MatColl As MatchCollection
   
6.         Arr(0) = "A+(B-C)/2"
   
7.         ''
   
8.         PattArr(0) = "A|B|C"
   
9.         With RegX
   
10.            .Global = True
    
11.            For ii = 0 To UBound(Arr)
    
12.                Str = Arr(ii)
    
13.                Debug.Print Str, IsEmpty(Str)
    
14.                If Not IsEmpty(Str) Then
    
15.                    .Pattern = PattArr(ii)
    
16.                    Set MatColl = .Execute(Str)
    
17.                    Str1 = .Replace(Str, "")
    
18.                    Debug.Print Str1
    
19.                    Stop
    
20.                End If
    
21.            Next ii
    
22.         End With
    
23.         Stop
    
24. End Sub
    

复制代码

********************************

A+(B-C)/2分离目标需要的结果
+
(
-
)/2

ning84

1. Function RegXToCalculate(RegX As RegExp, Rng As Range)
   
2.     Dim oRng As Range
   
3.     Dim PattStr
   
4.     Dim ii As Integer, Str, Str1, RepStr As String
   
5.          Str1 = Replace(Rng.Formula, "=", "")
   
6.         
   
7.     Dim MatColl As MatchCollection, MatColl1 As MatchCollection
   
8.         With RegX
   
9.                .Pattern = Rng(, 2)
   
10.                Set MatColl = .Execute(Str1) '
    
11.                If Rng <> "" Then
    
12.                      Set oRng = Rng(, "D")
    
13.                      oRng.Interior.ColorIndex = 4
    
14.                      ''
    
15.                      With MatColl
    
16.                             Set oRng = Rng(, "E")
    
17.                             oRng.Interior.ColorIndex = 40
    
18.                             oRng(, 1) = .Count
    
19.                             ''
    
20.                             For jj = 0 To .Count - 2
    
21.                                PattStr = .Item(jj) & "(.*?)" & .Item(jj + 1)
    
22.                                RegX.Pattern = (PattStr)
    
23.                                Set MatColl1 = RegX.Execute(Str1)
    
24.                                Str = .Item(jj) & " & """ & MatColl1(0).submatches(0) & """ & " & .Item(jj + 1)
    
25.                                Rng(, "C") = Str
    
26.                                Rng(, "D") = "=" & Str
    
27.                             Next jj
    
28.                             oRng(, 0) = Str
    
29.                      End With
    
30.                      'Stop
    
31.                End If
    
32.         End With
    
33. End Function

复制代码