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

Zamyi

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

jymao

一句可能有点难度哦.

alzeng

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

kevinchengcw

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

Zamyi

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

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

alzeng

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

1. 
   
2. Sub Getnum()
   
3.     Dim Oj As Object, Str$
   
4. 
   
5.     Str = "20A+2^2[a2a32]-14/2BC-{sin(1.5708)}*10[a2]"
   
6.     Set Oj = CreateObject("ScriptControl"): Oj.Language = "JScript"
   
7.     Oj.eval "function gets(str){return str.replace(/(\[[^\]]+\])/g,'').match(/([\d.\+\-\*\/\^%]|[^{]+(?=}))/g,'')}"
   
8. 
   
9.     MsgBox Replace(Oj.codeobject.gets(Str), ",", "")
   
10. End Sub
    

复制代码

Zamyi

原帖由 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

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

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

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

figfig

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

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