求解正则表达式

xd3210 · 发表于 2015-10-23 08:38

本帖最后由 xd3210 于 2015-10-23 15:00 编辑

求解正则表达式
字符:s="(88+88)+sin(45.3)+(22.33)+2(33.99)+(55+77）"
要求：只匹配小括号中的数字及括号（"(22.33)"、"(33.99)")，但不匹配"sin(45.3)"中的"(45.3)"
请各位高手赐教！

在袁老师及各位老师的耐心帮助和指点下，圆满解决，在此一并谢过！
Sub 袁()
Dim reg, s
s="(88+88)+sin(45.3)+(22.33)+2(33.99)+(55+77)"
Set reg = CreateObject("vbscript.regexp")
s = StrReverse(s)
reg.Global = True
reg.Pattern = “\)\d*\.?\d*\((?!nis)"
s = reg.Replace(s, "")
MsgBox StrReverse(s)
End Sub

zhouzhongchi · 发表于 2015-10-23 09:22

静待高手出招，也好偷师学艺

t13564865256 · 发表于 2015-10-23 09:25

非常有难度。

zhouzhongchi · 发表于 2015-10-23 09:48

t13564865256 发表于 2015-10-23 09:25
非常有难度。

高手也说有难度，您太谦虚了。
请教：小数（double数字）的正则如何写？各种可能的情况：小数点前没有前导0；只有整数部分；大于0小于1。。。
另：外加考虑正负的情况下如何写？

zhouzhongchi · 发表于 2015-10-23 09:50

vba的正则为何没逆序环视嘛，否则也好处理点。

t13564865256 · 发表于 2015-10-23 09:53

zhouzhongchi 发表于 2015-10-23 09:48
高手也说有难度，您太谦虚了。
请教：小数（double数字）的正则如何写？各种可能的情况：小数点前没有前 ...

这些都不难，关键是他括号前，括号中，括号后都有各种情况。这正则即使能写出来，也是很长一串。或者是3到5个正则。

zhouzhongchi · 发表于 2015-10-23 10:07

t13564865256 发表于 2015-10-23 09:53
这些都不难，关键是他括号前，括号中，括号后都有各种情况。这正则即使能写出来，也是很长一串。或者是3 ...

对你来说不难。虚心求教，还请帮助。帮忙写个关于小数的正则，在下不会。谢谢！

wj2368 · 发表于 2015-10-23 10:42

zhouzhongchi 发表于 2015-10-23 10:07
对你来说不难。虚心求教，还请帮助。帮忙写个关于小数的正则，在下不会。谢谢！

"\(\d+\.\d+\)"
三个可以提取,就是前面是字母的排除不了

wj2368 · 发表于 2015-10-23 10:54

Sub ys()
Dim Reg As Object
Set Reg = CreateObject("vbscript.regexp")
k = "(88+88)+sin(45.3)+(22.33)+2(33.99)+(55+77）"
      Reg.Global = 1
   Reg.Pattern = "\(\d+\.\d+\)"
   Set mc = Reg.Execute(k)
For i = 0 To mc.Count - 1
   s = s & mc(i).Value & Chr(10)
      Next
      MsgBox s
End Sub

t13564865256 · 发表于 2015-10-23 10:55

本帖最后由 t13564865256 于 2015-10-23 10:57 编辑

zhouzhongchi 发表于 2015-10-23 10:07
对你来说不难。虚心求教，还请帮助。帮忙写个关于小数的正则，在下不会。谢谢！

Sub bbb()
Dim s
s = "sin(45.3)+(22.33)+(33.99)"
With CreateObject("VBScript.RegExp")
      .Pattern = "[^0-9.+]"
      .Global = True
      s = .Replace(s, "")
End With
MsgBox s
End Sub

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

[已解决] 求解正则表达式