正则提取字符串中英文括号中的内容

PurpleIdea

另外一种正则表达式。



Sub 正则筛选1()
Dim Reg As Object
Dim Str, Str1

Str = "(1234,asdf)+(005223,Excel Home)-(56,中国)*(789,CHINA)"

Set Reg = CreateObject("vbscript.regexp")
    Reg.Global = True
    Reg.Pattern = ".*?(\((.*?)\))"
Str1 = Reg.Replace(Str, "$2" & Chr(13) & Chr(10))

Worksheets("Sheet1").Range("B2") = Str1

End Sub

ggmmlol

ykcbf1100 发表于 2024-11-12 11:03
.Pattern = "\((.*?)\)"

提取括号中的数据就行，不用去管括号中有什么数据。

哈哈，你的想法与我的一致，用VBA自定义正则提取函数，自动判断是否存在捕获分组，如果有，则只提取捕获分组中的内容，如果没有，则提取匹配项的内容。其中，对于源字符串，可以是不定参数ParamArray Text1()，所以为函数的最后一项参数。所得结果为一维水平数组或单个字符串。

代码和在WPS中的运行效果如下：

1. Function REGEXTRACT(ByVal Pattern$, ByVal Icase, ByVal Id, ByVal Slice, ParamArray Text1())
   
2.     Dim ar, i, j, tmp$(), n&, ma As Match, sma, itm, HasSubMatches As Boolean, mav As String
   
3.     If IsMissing(Icase) Then Icase = False Else Icase = CBool(Icase)
   
4.     If IsMissing(Id) Then Id = 0 Else Id = CLng(Id)
   
5.     If Id = 0 Then Slice = True Else If IsMissing(Slice) Then Slice = True Else Slice = CBool(Slice)
   
6.     With CreateObject("VBScript.RegExp")
   
7.         .Global = True
   
8.         .IgnoreCase = Icase
   
9.         .Pattern = Pattern & "|[\d\D]+"
   
10.         HasSubMatches = CBool(.Execute("a")(0).SubMatches.Count)
    
11.         .Pattern = Pattern
    
12.         ReDim tmp(1 To 1)
    
13.         For Each itm In Text1
    
14.             If TypeName(itm) = "Range" Then ar = itm.Value Else ar = itm
    
15.             If Not IsArray(ar) Then ReDim ar(1 To 1, 1 To 1): ar(1, 1) = itm
    
16.             For i = 1 To UBound(ar)
    
17.                 For j = 1 To UBound(ar, 2)
    
18.                     For Each ma In .Execute(ar(i, j))
    
19.                         If HasSubMatches Then
    
20.                             mav = ""
    
21.                             For Each sma In ma.SubMatches
    
22.                                 mav = mav & sma
    
23.                             Next
    
24.                         Else
    
25.                             mav = ma.Value
    
26.                         End If
    
27.                         If Len(mav) > 0 Then
    
28.                             n = n + 1
    
29.                             If Slice Or Id <= 0 Then
    
30.                                 ReDim Preserve tmp(1 To n)
    
31.                                 tmp(n) = mav
    
32.                             Else
    
33.                                 tmp(1) = mav
    
34.                             End If
    
35.                             If n = Id Then GoTo ret
    
36.                         End If
    
37.                     Next
    
38.                 Next
    
39.             Next
    
40.         Next
    
41.     End With
    
42. ret:
    
43.     If Id < 0 And n >= -Id Then
    
44.         If Slice Then
    
45.             For i = 1 To -Id
    
46.                 tmp(i) = tmp(n + Id + i)
    
47.             Next
    
48.             ReDim Preserve tmp(1 To -Id)
    
49.         Else
    
50.             tmp(1) = tmp(n + Id + 1)
    
51.         End If
    
52.     End If
    
53.     If Slice Then REGEXTRACT = tmp Else REGEXTRACT = tmp(1)
    
54. End Function

复制代码

zoubo604

yylucke 发表于 2024-11-12 09:32
我也尝试过：Pattern = "(?

可能VBA中和公式中的正则不一样吧。你要说明使用环境。

kevinchengcw

无嵌套的情况下，只判断括号就行了
[^\(（]+(?=[\)）])

zc123zc

reg.Pattern = "\(([^\)]+)"

ykcbf1100

ggmmlol 发表于 2024-11-12 23:03
哈哈，你的想法与我的一致，用VBA自定义正则提取函数，自动判断是否存在捕获分组，如果有，则只提取捕获 ...

你的自定义函数太高大上，我不会使用呢。

yylucke

loirol 发表于 2024-11-12 09:38
vba的正则不支持反向肯否定预查的(?

谢谢讲解所以然！

yylucke

xjl565135022 发表于 2024-11-12 09:53
VBA只支持先行断言(?=)，不支持后行断言 (?

谢谢讲解原因，学习了！

yylucke

kevinchengcw 发表于 2024-11-13 08:34
无嵌套的情况下，只判断括号就行了
[^\(（]+(?=[\)）])

[^\(（]+(?=[\)）])可以在Excel的VBA环境下获得希望的结果。

yylucke

zc123zc 发表于 2024-11-13 10:49
reg.Pattern = "\(([^\)]+)"

这个结果会残留前面的括号。