求助正则表达式提取括号内的数据！

月落天河1983

不如字符串为ICO5THER(5P)APL3512，需要提取的结果为括号中的5P，帮忙看下正则表达式应该怎么写，谢谢！

月落天河1983

顶上去，来人帮忙看一下

我是来讨说法的

不需要正则这么高端的东西

1. Sub a()
   
2. Dim strs As String
   
3. strs = "ICO5THER(5P)APL3512"
   
4. strs = Mid(strs, InStr(strs, "(") + 1, InStrRev(strs, ")") - InStr(strs, "(") - 1)
   
5. Debug.Print strs
   
6. End Sub

复制代码

小花鹿

pattern="\((.*?)\)"

pattern="\([^)]+"

月落天河1983

我是来讨说法的 发表于 2015-10-5 12:35
不需要正则这么高端的东西

因为数据中有的不止一个括号，不用正则容易出错的，不过还是谢谢

月落天河1983

小花鹿 发表于 2015-10-5 12:36
pattern="\((.*?)\)"

pattern="\([^)]+"

这个可以用，非常感谢您

zhouzhongchi

小花鹿 发表于 2015-10-5 12:36
pattern="\((.*?)\)"

pattern="\([^)]+"

Pattern = "\(([^)]+)"
老师少写括号了吧

小花鹿

zhouzhongchi 发表于 2015-10-5 13:11
Pattern = "\(([^)]+)"
老师少写括号了吧

没有少写，方括号内的 [^)] 表示的是除右括号外的其它字符。

zhouzhongchi

小花鹿 发表于 2015-10-5 13:31
没有少写，方括号内的 [^)] 表示的是除右括号外的其它字符。

这样返回的是：    (5p
而不是：   5p

1. Sub regdemo()
   
2. s = "ICO5THER(5P)APL3512"
   
3. Set re = CreateObject("vbscript.regexp")
   
4. re.Pattern = "\(([^)]+)"
   
5. Set ms = re.Execute(s)
   
6. MsgBox ms(0).submatches(0)
   
7. 
   
8. re.Pattern = "\((.*?)\)"
   
9. Set ms = re.Execute(s)
   
10. MsgBox ms(0).submatches(0)
    
11. End Sub

复制代码

小花鹿

zhouzhongchi 发表于 2015-10-5 13:34
这样返回的是：    (5p
而不是：   5p

我运行了你的代码，都是5P啊？