正则替换实现$1回调的尝试

zopey

去括号

①只有“＋”“－”算式里，括号在“＋”后面，去括号后，括号里面所有符号不变：
A＋（B＋C）＝A＋B＋C     例子：9＋（2＋1）＝9＋2＋1
A＋（B－C）＝A＋B－C     例子：9＋（2－1）＝9＋2－1

②只有“＋”“－”算式里，括号在“－”后面，去括号后，括号里面的所有符号变相反：
A－（B－C）＝A－B＋C     例子：9－（5－1）＝9－5＋1
A－（B＋C）＝A－B－C     例子：9－（1＋8）＝9－1－8

方法对比（推荐testb）：


测试附件：
正则之函数替换.rar (13.53 KB, 下载次数: 77)

2019-6-5 19:48 上传

点击文件名下载附件

zopey

题目


http://club.excelhome.net/thread-1481398-1-3.html

答案

宏替换指定字符.rar (13.49 KB, 下载次数: 40)

2019-6-6 14:28 上传

点击文件名下载附件

zopey

1. Function 算式(s As Range) As String
   
2. With CreateObject("VBScript.RegExp")
   
3.   .Global = True
   
4.   .IgnoreCase = False
   
5.   
   
6.   .Pattern = "(材料表\!\$?[A-Z]\$?\d+)"
   
7.    算式 = Evaluate("=""" & .Replace(s.Formula, """&qukh(" & """$1""" & ")&""") & """")
   
8. End With
   
9. End Function
   
10. 
    
11. Function qukh(a)
    
12.     qukh = Range(a).Offset(0, -8).Value
    
13. End Function

复制代码

工程算式.rar (34.08 KB, 下载次数: 39)

2019-9-1 17:33 上传

点击文件名下载附件

zopey

1. 
   

复制代码

1. Sub pey_testb()
   
2. sss = "string=1+count=101;string=1+count=225"
   
3. bbb = "count="
   
4. kkk = 5
   
5. 
   
6. Debug.Print zz(sss, bbb, kkk)
   
7. End Sub
   
8. 
   
9. 
   
10. Function zz(mystr, qz, bs)
    
11. With CreateObject("VBSCRIPT.REGEXP")
    
12.     .Global = True
    
13.     .Pattern = "(" & qz & ")(\d*)"
    
14.    
    
15.      zz = Evaluate("=""" & .Replace(mystr, """&  cheng(" & """$1""" & "," & """$2""" & "," & bs & ") & """) & """")
    
16. End With
    
17. End Function
    
18. 
    
19. Function cheng(a, b, c)
    
20.     cheng = a & b * c
    
21. End Function
    

复制代码

给定sss ，指定 bbb后面的数字 乘以kkk ，替换回 sss。

aoe1981

为何不将正则表达式：
([+|-]?\([\d|+|-]+\))
写成这样：
([+-]?\([\d+-]+\))

是因为“选择结构”执行起来效率高吗？


您的这个“去括号”自定义函数真是巧妙，佩服佩服！

1. Function qukh(a) 'a-b???????????????
   
2.     Select Case Left(a, 1)
   
3.          Case "+"
   
4.               b = Mid(a, 3, Len(a) - 3)
   
5.               If IsNumeric(Left(b, 1)) Then b = "+" & b
   
6.          Case "-"
   
7.               b = Mid(a, 3, Len(a) - 3)
   
8.               b = Replace(b, "+", "t")
   
9.               b = Replace(b, "-", "+")
   
10.               b = Replace(b, "t", "-")
    
11.               If IsNumeric(Left(b, 1)) Then b = "-" & b
    
12.          Case "("
    
13.               b = Mid(a, 2, Len(a) - 2)
    
14.     End Select
    
15.     qukh = b
    
16. End Function
    

复制代码

aoe1981

1. Sub pey_testa()
   
2.     txt = "1-(-1-((((+2)))+3-4)-(5-1))-(-(+6-7)+7)"
   
3. '    txt = "1-((2+3-4)-5)-(6+7)"
   
4.     Debug.Print txt
   
5.     With CreateObject("VBScript.RegExp")
   
6.         .Pattern = "[+|-]?\([\d|+|-]+\)"
   
7.         .Global = True
   
8.         .IgnoreCase = False
   
9.         Do While InStr(txt, "(") > 0
   
10.             Set matchs = .Execute(txt)
    
11.                 For Each ma In matchs '??????????滻???
    
12.                     txt = Replace(txt, ma, qukh(ma))
    
13.                 Next ma
    
14.             Debug.Print txt
    
15.         Loop
    
16.     End With
    
17. End Sub
    
18. Sub pey_testb()
    
19. '    txt = "1-(-1-((((2)))+3-4)-(5-1))-(-(6-7)+7)"
    
20.     txt = "1-((2+3-4)-5)-(6+7)"
    
21.     Debug.Print txt
    
22.     With CreateObject("VBScript.RegExp")
    
23.         .Pattern = "([+|-]?\([\d|+|-]+\))"
    
24.         .Global = True
    
25.         .IgnoreCase = False
    
26.         Do While InStr(txt, "(") > 0 '???????????滻????
    
27.             txt = Evaluate("=" & Chr(34) & .Replace(txt, """ & qukh(" & """$1""" & ") &""") & Chr(34))
    
28.             Debug.Print txt
    
29.         Loop
    
30.     End With
    
31. End Sub
    

复制代码

还是觉得testa好理解一些，testb中：
Evaluate("=" & Chr(34) & .Replace(txt, """ & qukh(" & """$1""" & ") &""") & Chr(34))
还真是让人费解，没搞明白其中引号叠加的道理。

aoe1981

zopey 发表于 2019-6-6 14:28
题目

关于:
周老师（ab)
替换为：
周老师（语文、数学)
您的代码中的正则表达式是：
([a-f]*)

我个人感觉应该是：
([a-f]+)

整理学习代码如下：

1. Public dic
   
2. Sub pey_testb()
   
3.     Dim brr, k2
   
4.     k2 = [h1].End(4).Row - 1
   
5.     brr = [h2].Resize(k2, 2)
   
6.     Set dic = CreateObject("scripting.dictionary")
   
7.     For i = 1 To k2
   
8.        dic(brr(i, 1)) = brr(i, 2)
   
9.     Next i
   
10.     k0 = [c1].End(4).Row - 1
    
11.     arr = [c2].Resize(k0, 2)
    
12.     With CreateObject("VBScript.RegExp")
    
13.         .Global = True
    
14.         .IgnoreCase = False
    
15.         .Pattern = "([a-f]+)"
    
16.         For i = 1 To k0
    
17.             For j = 1 To 2
    
18.                 txt = arr(i, j)
    
19.                 arr(i, j) = Evaluate("=""" & .Replace(txt, """&qukh(" & """$1""" & ")&""") & """")
    
20.             Next j
    
21.         Next i
    
22.     End With
    
23.     Cells(2, 11).Resize(k0, 2) = arr
    
24. End Sub
    
25. Function qukh(a) 'a-b???????????????
    
26.     b = dic(Mid(a, 1, 1))
    
27.     For i = 2 To Len(a)
    
28.         b = b & "??" & dic(Mid(a, i, 1))
    
29.     Next i
    
30.     qukh = b
    
31. End Function

复制代码

您的代码真是奇思妙想，无一行一字之多余，严谨熟练啊。

liu-aguang

aoe1981 发表于 2019-11-23 22:59
为何不将正则表达式：
([+|-]?\([\d|+|-]+\))
写成这样：

你的质疑是对的。例如：正则[+|-]表示匹配+，-或|，三种字母之一；匹配+或-可用正则：[+-]或(+|-)，但前者的效率更高。

liu-aguang

对$1应用于函数很有开创意义。

zopey

aoe1981 发表于 2019-11-23 23:20
还是觉得testa好理解一些，testb中：
Evaluate("=" & Chr(34) & .Replace(txt, """ & qukh(" & """$1" ...

A方案 为普通字符替换，依次进行，前面的替换 可能影响到后面，使结果不对。
所以推荐B方案 ，正则对象应记录了匹配位置信息，一次性完成的整体替换。

正则表达式不会优化，直观写法，最后结果能符合 题目要求 就行。