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

Zamyi · 发表于 2010-6-28 14:18

原帖由 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 · 发表于 2010-6-28 14:22

注意有个$1。

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 .Replace(aa, "$1")
End With
End Sub

Zamyi · 发表于 2010-6-28 14:37

原帖由 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 · 发表于 2010-6-29 14:25

原帖由 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 · 发表于 2010-6-29 09:10

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

realfan · 发表于 2010-6-28 15:19

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 · 发表于 2010-6-28 16:26

原帖由 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 · 发表于 2010-6-28 16:31

原帖由 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 · 发表于 2010-6-28 17:01

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

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

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

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

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

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