求解正则表达式

xd3210

紫川文秀 发表于 2015-10-23 12:58

不在电脑边没有验证，此正则只能匹配“n(4t.3)”吧？

紫川文秀

xd3210 发表于 2015-10-23 13:04
不在电脑边没有验证，此正则只能匹配“n(4t.3)”吧？

你试试就知道了

zhouzhongchi

紫川文秀 发表于 2015-10-23 12:58

“美丽动人"的头像，不错。

39660519

xd3210 发表于 2015-10-23 13:04
不在电脑边没有验证，此正则只能匹配“n(4t.3)”吧？

不对，"[^n]\(\d+\.?\d+\)"，能匹配+(22.33)和2(33.99)，再把+和2咔嚓掉就行了，但是也属于2次加工

袁振涛

(1+(2))这个如何处理

xd3210

袁振涛 发表于 2015-10-23 13:40
(1+(2))这个如何处理

括号内纯数字的一同消除

袁振涛

StrReverse这个函数这几天刚学到。

1. 
   
2. Dim reg, s
   
3.     s = "(88+88)+79+(32-18)+sin(45.3)+(22/33)+2(33.99)+(55+77)+(1+(2+(1)))"
   
4. Set reg = CreateObject("vbscript.regexp")
   
5.     s = StrReverse(s)
   
6.     reg.Global = True
   
7. 
   
8.     reg.Pattern = "\)\d+(?:\.\d+)?\((?![a-z]+)(\d+|)[\+\-\*/]?"
   
9. 
   
10.     While reg.test(s)
    
11.           s = reg.Replace(s, "")
    
12.     Wend
    
13. 
    
14.     MsgBox StrReverse(s)

复制代码

xd3210

颠倒后，用否定环视匹配成功！

xd3210

紫川文秀 发表于 2015-10-23 12:58

谢谢美女老师的帮助！虽然不能一次达到要求，变通一下还能达到目的。
Sub th()
     Dim s$, m, matches
     s = "(88+88)+sin(45.3)+(22.33)+2(33.99)+(55+77）"
     With CreateObject("VBScript.RegExp")
         .Pattern = "([^n])\(\d+\.?\d+\)"
         .Global = True
         s = .Replace(s, "$1")
     End With
     Debug.Print s
     Debug.Print Evaluate(s)
     
End Sub

xd3210

袁振涛 发表于 2015-10-23 13:55
StrReverse这个函数这几天刚学到。

感谢袁老师帮助！在您的思路启发下，颠倒后配合否定环视圆满解决！

Dim reg, s
    s = "(88+88)+79+(32-18)+sin(45.3)+(22/33)+2(33.99)+(55+77)+(1+(2+(1)))"
Set reg = CreateObject("vbscript.regexp")
    s = StrReverse(s)
    reg.Global = True
    reg.Pattern = "\)\d*\.?\d*\((?!nis)"
     s = reg.Replace(s, "")
      MsgBox StrReverse(s)