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

hnyylx

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

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

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

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

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

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

kevinchengcw

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

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

figfig

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


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

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

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

Excel2003初学者

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

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

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

kevinchengcw

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

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

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

alzeng

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

hnyylx

原帖由 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

原帖由 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类推