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

Zamyi

原帖由 figfig 于 2010-6-28 13:48 发表
Sub Getnum()
    Dim Oj As Object, Str$

    Str = "20A+2^2[a2a32]-14/2BC-{sin(1.5708)}*10[a2]"
    Set Oj = CreateObject("ScriptControl"): Oj.Language = "JScript"
    Oj.eval "function gets(str) ...

高！JScript和VBSCRIPT有些不一样，VBSCRIPT中不行，怎么改？
With CreateObject("VBSCRIPT.REGEXP")
    .Global = True
    .Pattern = "\[.*?\]|\{(.*?)\}|[^0-9\.\+\-\*\/\^\%\(\)]"
    msgbox .Replace([a1], "")
    End With

alzeng

注意有个$1。

figfig

Sub aaa()

aa = "20A+2^2[a2a32]-14/2BC-{sin(1.5708)}*10[a2]"

With CreateObject("VBSCRIPT.REGEXP")
    .Global = True
    .Pattern = "\[.*?\]|\{(.*?)\}|[^0-9\.\+\-\*\/\^\%\(\)]"
    MsgBox .Replace(aa, "$1")
    End With
End Sub

Zamyi

原帖由 figfig 于 2010-6-28 14:32 发表
Sub aaa()

aa = "20A+2^2[a2a32]-14/2BC-{sin(1.5708)}*10[a2]"

With CreateObject("VBSCRIPT.REGEXP")
    .Global = True
    .Pattern = "\[.*?\]|\{(.*?)\}|[^0-9\.\+\-\*\/\^\%\(\)]"
    MsgBox .Re ...

学习。。。。。。

Zamyi

原帖由 hnyylx 于 2010-6-29 11:59 发表
对前面的学习做个小结，也算是对大师前辈们对我帮助的感谢！以下代码都经过测试，全部通过：

Sub aaa()
aa = "20A+2^2[a2a32]-14/2BC-{sin(1.5708)}*10[a2]"
With CreateObject("VBSCRIPT.REGEXP")
    .Globa ...

正则我也是初学，二楼的jymao就不吝赐教教导过，这里也谢啦。原先我也用了组，但不会用命名组，而且没注意次序，弄来弄去总把大括号里面的SIN匹丟。看来你的理解比我还逊一点点，我的又没有alzeng的境界高。不介意开个玩笑吧！:lol
就这道题，换个难度高的问法练练：
[A1]=20A+2^2[a2a32]-14/2BC-{sin(1.5708)}*10[a2]
把大括号及以内标成红色，中括号以内及大中括号之外的非字符“0-9.+-*/^%()”标成兰色，其余的黑色。

[ 本帖最后由 Zamyi 于 2010-6-29 14:26 编辑 ]

Zamyi

.Pattern = "\[.*?\]|\{(.*?)\}|[^0-9\.\+\-\*\/\^\%\(\)]"
可改为： .Pattern = "\[.*?\]|\{(.*?)\}|[^0-9.+-*/^%()]"
评价，好一个命名组！而且不能改变次序：改为下面的不行
.Pattern = "\[.*?\]|[^0-9.+-*/^%()]|\{(.*?)\}"

realfan

Sub Command()
    Dim reg As Object '定义reg为一个对象
    Dim s As String
    s = "20A+2^2[2a2]-14/2BC-{sin(1.5708)}*10[a2]"
    Set reg = CreateObject("VBscript.RegExp") '调用正则表达式
    With reg '定义表达式
        .Global = True '匹配所有搜索项
        .ignorecase = True '不区分大小写
        .Pattern = "\[\w+\]|[\aABC]|\{|\}"
    End With
    s = reg.Replace(s, "")  '进行根据模板替换字符串为空值\
    Debug.Print s
   
End Sub
因为找我要的答案到此，绝对新人，得到要求结果，希望不是我理解错误，或是其他

hnyylx

原帖由 figfig 于 2010-6-28 14:32 发表
Sub aaa()

aa = "20A+2^2[a2a32]-14/2BC-{sin(1.5708)}*10[a2]"

With CreateObject("VBSCRIPT.REGEXP")
    .Global = True
    .Pattern = "\[.*?\]|\{(.*?)\}|[^0-9\.\+\-\*\/\^\%\(\)]"
    MsgBox .Re ...

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

hnyylx

原帖由 figfig 于 2010-6-28 14:32 发表
Sub aaa()

aa = "20A+2^2[a2a32]-14/2BC-{sin(1.5708)}*10[a2]"

With CreateObject("VBSCRIPT.REGEXP")
    .Global = True
    .Pattern = "\[.*?\]|\{(.*?)\}|[^0-9\.\+\-\*\/\^\%\(\)]"
    MsgBox .Re ...

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

figfig

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

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

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

replace  $1   表示除了大扩号里面内容,其余全部替换掉