正则匹配，想了两晚想不出结果

hnyylx · 发表于 2010-6-29 11:18

原帖由 Zamyi 于 2010-6-29 09:10 发表
.Pattern = "\[.*?\]|\{(.*?)\}|[^0-9\.\+\-\*\/\^\%]"
可改为： .Pattern = "\[.*?\]|\{(.*?)\}|[^0-9.+-*/^%()]"
评价，好一个命名组！而且不能改变次序：改为下面的不行
.Pattern = "\[.*?\]|[^0-9.+-*/^ ...

我分析了下：替换的时候，可能是按从左至右的顺序执行的，所以导致达不到目的！如果做以下次序调换就可以！因为\{(.*?)\}与\[.*?\]之间的调换位置不影响替换后的结果，但是与[^0-9\.\+\-\*\/\^\%]之间的位置互换就要影响替换后的结果。
.Pattern = "\{(.*?)\}|\[.*?\]|[^0-9\.\+\-\*\/\^\%]"

hnyylx · 发表于 2010-6-29 11:59

对前面的学习做个小结，也算是对大师前辈们对我帮助的感谢！以下代码都经过测试，全部通过：

Sub aaa()
aa = "20A+2^2[a2a32]-14/2BC-{sin(1.5708)}*10[a2]"
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.Pattern = "\[.*?\]|\{(.*?)\}|[^0-9\.\+\-\*\/\^\%]" '\[.*?\]中括号及里面内容; \{(.*?)\} 大扩号及里面内容; [^0-9\.\+\-\*\/\^\%]" 除了0-9.+-*/^%()之外的文字; 这3项用 | 连接,表示或者
MsgBox .Replace(aa, "$1")  'replace $1 表示除了大扩号里面内容,其余全部替换掉;  $1代表第一个（括号里面找到的匹配，是一个记忆功能，$2,$3类推
End With
End Sub

Sub bbb()
aa = "20A+2^2[a2a32]-14/2BC-{sin(1.5708)}*10[a2]+10*12*&cos(1.5708)&"
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.Pattern = "\[.*?\]|\{(.*?)\}|\&(.*?)\&|[^0-9\.\+\-\*\/\^\%]" '\[.*?\]中括号及里面内容; \{(.*?)\} 大扩号及里面内容; \&(.*?)\& 代表&号里面的内容;  [^0-9\.\+\-\*\/\^\%]" 除了0-9.+-*/^%()之外的文字; 这4项用 | 连接,表示或者
MsgBox .Replace(aa, "$2")  'replace $2 表示除了&号里面内容,其余全部替换掉;  $2代表第2个（括号里面找到的匹配，是一个记忆功能，$2,$3类推
End With
End Sub

.Pattern = "\[.*?\]|[^0-9.+-*/^%()]|\{(.*?)\}"
Sub ccc() '替换的时候，可能是按从左至右的顺序执行的，所以导致达不到目的！如果做以下次序调换就可以！因为\{(.*?)\}与\[.*?\]之间的调换位置不影响替换后的结果，但是与[^0-9\.\+\-\*\/\^\%]之间的位置互换就要影响替换后的结果。
aa = "20A+2^2[a2a32]-14/2BC-{sin(1.5708)}*10[a2]"
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.Pattern = "\{(.*?)\}|\[.*?\]|[^0-9\.\+\-\*\/\^\%]" '\[.*?\]中括号及里面内容; \{(.*?)\} 大扩号及里面内容; [^0-9\.\+\-\*\/\^\%]" 除了0-9.+-*/^%()之外的文字; 这3项用 | 连接,表示或者
MsgBox .Replace(aa, "$1")  'replace $1 表示除了大扩号里面内容,其余全部替换掉;  $1代表第一个（括号里面找到的匹配，是一个记忆功能，$2,$3类推
End With
End Sub

Sub ddd() '替换的时候，可能是按从左至右的顺序执行的，所以导致达不到目的！如果做以下次序调换就不可以！因为\{(.*?)\}与\[.*?\]之间的调换位置不影响替换后的结果，但是与[^0-9\.\+\-\*\/\^\%]之间的位置互换就要影响替换后的结果。
aa = "20A+2^2[a2a32]-14/2BC-{sin(1.5708)}*10[a2]"
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.Pattern = "\[.*?\]|[^0-9\.\+\-\*\/\^\%]|\{(.*?)\}" '\[.*?\]中括号及里面内容; \{(.*?)\} 大扩号及里面内容; [^0-9\.\+\-\*\/\^\%]" 除了0-9.+-*/^%()之外的文字; 这3项用 | 连接,表示或者
MsgBox .Replace(aa, "$1")  'replace $1 表示除了大扩号里面内容,其余全部替换掉;  $1代表第一个（括号里面找到的匹配，是一个记忆功能，$2,$3类推
End With
End Sub

aidixiao · 发表于 2010-6-29 20:49

感谢大师们分享思路。

jie-jie · 发表于 2010-6-29 21:23

占位来学习

Zamyi · 发表于 2010-6-30 09:36

原帖由 kevinchengcw 于 2010-6-29 19:12 发表
Sub test()
Dim Str As String
Dim M, N As Integer
Dim RegEx As Object
Dim mMatch As Match
Dim MCol As MatchCollection
Str = "20A+2^2[a2][a32]-14/2BC-{sin(1.5708)}*10[a2]"
[a1] = Str
Set RegEx = ...

思路不错，应该还有提速的空间。对比：http://club.excelhome.net/thread-448962-1-1.html
好象没有快。

Zamyi · 发表于 2010-6-30 15:01

Public x As New RegExp
Sub BZ(R As Range)
Dim i, j As Integer, m
With x
  .Global = True
  .Pattern = "\[.*?\]|\{.*?\}|[^0-9.\+\-\*\/\^]+"
  j = 1
  For Each m In .Execute(R)
j = InStr(j, R, m)
If Left(m, 1) = "{" Then col = vbRed Else col = vbBlue
R.Characters(j, Len(m)).Font.Color = col
Next
  End With
End Sub
这样快些

lxbinternet · 发表于 2010-7-21 21:57

我承认我是个菜鸟

yaojil · 发表于 2011-4-14 14:46

先留个记号，慢慢学

cried · 发表于 2010-10-26 23:36

唉~，我去打酱油好了 ...

wanghaiqn1957 · 发表于 2011-3-4 14:54

原帖由 Zamyi 于 2010-6-30 15:01 发表
Public x As New RegExp
Sub BZ(R As Range)
Dim i, j As Integer, m
With x
  .Global = True
  .Pattern = "\[.*?\]|\{.*?\}|[^0-9.\+\-\*\/\^]+"
  j = 1
  For Each m In .Execute(R)
j = InStr ...

慢慢消化再说

		自动登录	找回密码
密码			免费注册

[求助] 正则匹配，想了两晚想不出结果

对前面的学习做个小结，也算是对大师前辈们对我帮助的感谢！