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

hnyylx · 发表于 2010-6-28 20:50

原帖由 figfig 于 2010-6-28 17:01 发表

"\[.*?\]中括号及里面内容

\{(.*?)\} 大扩号及里面内容.$1代表括号里面内容
[^0-9\.\+\-\*\/\^\%]" 除了0-9.+-*/^%()之外的文字"

这3项用 | 连接,表示或者

replace $1 表示除了大扩号里面内 ...

谢谢！这个$1是怎么用的，如果要是除了中扩号里面内容，其余全部替换掉，这个$1该换为啥呢？

kevinchengcw · 发表于 2010-6-28 22:30

屡败屡战
"\[.*?\]|\{(.*?)\}|[a-zA-Z]"
也试下$1

才学正则没多久,各位不要见笑

figfig · 发表于 2010-6-28 22:46

原帖由 hnyylx 于 2010-6-28 20:50 发表

谢谢！这个$1是怎么用的，如果要是除了中扩号里面内容，其余全部替换掉，这个$1该换为啥呢？

$1代表第一个（括号里面找到的匹配，是一个记忆功能，$2,$3类推

.Pattern = "\[(.*?)\]|\{.*?\}|[^0-9\.\+\-\*\/\^\%]"

Excel2003初学者 · 发表于 2010-6-28 22:55

原帖由 hnyylx 于 2010-6-28 16:31 发表

老前辈，您在vba领域，特别是这个正则表达式方面，真的神通广博！能否把这句给注释下：Pattern = "\[.*?\]|\{(.*?)\}|[^0-9\.\+\-\*\/\^\%]"，给小的们引引路啊！

呵呵，正则表达式，是正宗的“只写” 语言（WriteOnly）。也就是说，写的时候明明白白，回过头来再看，连作者都一头雾水，更别说初学者了。

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 = CreateObject("vbscript.regexp")
With RegEx
.Global = True
.Pattern = "\[(.*?)\]|\{(.*?)\}|[^0-9\.\+\-\*\/\^\%]"
Set MCol = .Execute(Str)
End With
For Each mMatch In MCol
M = 0
Do
      N = InStr(Right(Str, Len(Str) - M), mMatch.Value)
      If Left(mMatch.Value, 1) = "{" Then
         [a1].Characters(Start:=M + N, Length:=Len(mMatch.Value)).Font.Color = vbRed
      Else
         [a1].Characters(Start:=M + N, Length:=Len(mMatch.Value)).Font.Color = vbBlue
      End If
      M = M + N + Len(mMatch.Value) - 1
Loop While InStr(Right(Str, Len(Str) - M), mMatch.Value) > 0
Next mMatch
End Sub

这个容错度高些

[ 本帖最后由 kevinchengcw 于 2010-6-29 19:13 编辑 ]

kevinchengcw · 发表于 2010-6-29 18:49

Sub test()
Dim Str As String
Dim N As Integer
Dim RegEx As Object
Dim mMatch As Match
Dim MCol As MatchCollection
Str = "20A+2^2[a2a32]-14/2BC-{sin(1.5708)}*10[a2]"
[a1] = Str
Set RegEx = CreateObject("vbscript.regexp")
With RegEx
.Global = True
.Pattern = "\[(.*?)\]|\{.*?\}|[^0-9\.\+\-\*\/\^\%]"
Set MCol = .Execute(Str)
End With
For Each mMatch In MCol
N = InStr(Str, mMatch.Value)
If Left(mMatch.Value, 1) = "{" Then
[a1].Characters(Start:=N, Length:=Len(mMatch.Value)).Font.Color = vbRed
Else
[a1].Characters(Start:=N, Length:=Len(mMatch.Value)).Font.Color = vbBlue
End If
Next mMatch
End Sub

继续学习

hanter007 · 发表于 2010-6-29 09:25

看着头痛，要慢慢消化才行。

alzeng · 发表于 2010-6-29 10:07

以前听人说：“正则表达式是一种语言艺术”，现在这种感受越来越深……

hnyylx · 发表于 2010-6-29 10:58

原帖由 figfig 于 2010-6-28 22:46 发表

$1代表第一个（括号里面找到的匹配，是一个记忆功能，$2,$3类推

.Pattern = "\[(.*?)\]|\{.*?\}|[^0-9\.\+\-\*\/\^\%]"

在大师们的指点下，我又学通了一点，为了验证以上大师的指点，理解$1，$2，$3；下面修改代码如下，经测试大师的指点正确无误！

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.+-*/^%()之外的文字; 这3项用 | 连接,表示或者
MsgBox .Replace(aa, "$2") 'replace $2 表示除了&号里面内容,其余全部替换掉; $2代表第2个（括号里面找到的匹配，是一个记忆功能，$2,$3类推
End With
End Sub

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

原帖由 hnyylx 于 2010-6-29 10:58 发表

在大师们的指点下，我又学通了一点，为了验证以上大师的指点，理解$1，$2，$3；下面修改代码如下，经测试大师的指点正确无误！

Sub bbb()
aa = "20A+2^2[a2a32]-14/2BC-{sin(1.5708)}*10[a2]+10*12*&cos(1.570 ...

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

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

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