求解正则表达式

Zamyi

1. s = "(88+88)+sin(45.3)+(22.33)+2(33.99)+(55+77)"
   
2. With CreateObject("VBSCRIPT.REGEXP")
   
3.   .Global = True
   
4.   .Pattern = "([^a-zA-Z])\([0-9.]+\)"
   
5.   MsgBox .Replace(s, "$1")
   
6. End With

复制代码

xd3210

谢谢！您正则表达式通用性更强。

zhouzhongchi

xd3210 发表于 2015-10-23 13:56
颠倒后，用否定环视匹配成功！

这个思路不错！点赞

autumnalRain

wj2368 发表于 2015-10-23 10:42
"\(\d+\.\d+\)"
三个可以提取,就是前面是字母的排除不了

如果既取整又取小数还有负数的情况下，我一般是用  -?\d+\.?\d*

小花鹿

Zamyi 发表于 2015-10-24 09:18

好像要改一下：
Pattern = "([^a-zA-Z]|^)\([0-9.]+\)"

xd3210

小花鹿 发表于 2015-10-24 13:19
好像要改一下：
Pattern = "([^a-zA-Z]|^)\([0-9.]+\)"

这个更全面，当纯数字及括号字符在开头位置时，zamyi的正则是匹配不到的。

小花鹿

xd3210 发表于 2015-10-24 17:50
这个更全面，当纯数字及括号字符在开头位置时，zamyi的正则是匹配不到的。

这个也不怨别人，因为你只有一个样本，所以大家只是根据你的这一个样本写表达式，如果你提供的数据多点，大家可以方便找规律。

yzxiongvip

Sub DDD()
Set regx = CreateObject("vbscript.regexp")
    k = "(88+88)+sin(45.3)+(22.33)+2(33.99)+(55+77）"

With regx
    .Global = True
    .Pattern = "(?:(\+))\d?(\(\d+\.\d+\))"
    Set mat = .Execute(k)
    For i = 0 To mat.Count - 1
       MsgBox mat(i).submatches(1)
    Next
End With
End Sub

小花鹿

来个最容易理解的：
Sub test()
    Dim reg, s
    s = "(25)+(88+88)+sin(45.3)+(22.33)+2(33.99)+(55+77)"
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
    reg.Pattern = "([a-z]+\([\d\.]+\))|\([\d\.]+\)"
    s = reg.Replace(s, "$1")
    MsgBox s
End Sub