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

Zamyi · 发表于 2010-6-28 09:27

要求一次匹配：
１、中括号“[]”以内包括中括号内容去除；
２、大括号“{}”以内内容保留，大括号去除；
３、以上两种括号之外，字符“0-9.+-*/^%()”保留，其余去除。
如：
20A+2^2[2a2]-14/2BC-{sin(1.5708)}*10[a2]
提取后：20+2^2-14/2-sin(1.5708)*10
谢谢！

jymao · 发表于 2010-6-28 10:38

一句可能有点难度哦.

alzeng · 发表于 2010-6-28 10:59

按条件来分析，不论用Match或是用Replace都不好一次取出结果，我觉得需要匹配两次。

kevinchengcw · 发表于 2010-6-28 10:59

针对这一句写还可以
([aABC\{\}])|(\[\w+\])

Zamyi · 发表于 2010-6-28 11:28

原帖由 kevinchengcw 于 2010-6-28 10:59 发表
针对这一句写还可以
([aABC\{\}])|(\[\w+\])

第一部分不说了，第二部分(\[\w+\])连[1 ]或[]都去不掉。

alzeng · 发表于 2010-6-28 11:30

功力有限，不能一次Match出来。

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){return str.replace(/(\[[^\]]+\])/g,'').match(/([\d.\+\-\*\/\^%]|[^{]+(?=}))/g,'')}"
MsgBox Replace(Oj.codeobject.gets(Str), ",", "")
End Sub

复制代码

Zamyi · 发表于 2010-6-28 11:49

原帖由 alzeng 于 2010-6-28 11:30 发表
功力有限，不能一次Match出来。
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"
...

谦虚了！一次真有难度。

kevinchengcw · 发表于 2010-6-28 11:50

原帖由 Zamyi 于 2010-6-28 11:28 发表

第一部分不说了，第二部分(\[\w+\])连[1 ]或[]都去不掉。

说了，只针对你给的那一句而矣

figfig · 发表于 2010-6-28 13:06

Sub kkk()

'须安装ACTIVERUBY.才能运行
'下载地址 http://www.artonx.org/data/asr/ActiveRuby.msi
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"

aa = "20A+2^2[2a2]-14/2BC-{sin(1.5708)}*10[a2]"
y = x.eval("'" & aa & "'.gsub(/\[.*?\]|\{(.*?)\}|[^0-9\.\+\-\*\/\^\%]/,'\1') ;")
MsgBox y
End Sub

[ 本帖最后由 figfig 于 2010-6-28 13:43 编辑 ]

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){return str.replace(/\[.*?\]|\{(.*?)\}|[^0-9\.\+\-\*\/\^\%]/g,'$1')}"

MsgBox Oj.codeobject.gets(Str)
End Sub

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

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