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

yylucke · 发表于 2024-11-12 09:35

本帖最后由 yylucke 于 2024-11-12 09:43 编辑

loirol 发表于 2024-11-12 09:21

可惜，在Excel的VBA中总是报错：
运行时错误'5017’
应用程序定义或对象定义错误

limonet · 发表于 2024-11-12 09:36

本帖最后由 limonet 于 2024-11-12 09:37 编辑

=TEXTSPLIT(A1,{"(",")","+","-","*"},,1)

loirol · 发表于 2024-11-12 09:38

本帖最后由 loirol 于 2024-11-12 09:44 编辑

yylucke 发表于 2024-11-12 09:35
可惜，再Excel的VBA中总是报错：
运行时错误'5017’
应用程序定义或对象定义错误

vba的正则不支持反向肯否定预查的(?<=/？<！)，也不知道为什么不更新一下vba的正则引擎。
用函数，或者用wps

或者多加一步，用replace把前括弧替换掉

limonet · 发表于 2024-11-12 09:40

=REGEXEXTRACT(A1,"\d+.*?(?=\))",1)

无关岁月 · 发表于 2024-11-12 09:52

本帖最后由无关岁月于 2024-11-12 09:53 编辑

=REGEXEXTRACT(A1,"(?!\([^)]{,99})[\p{L}\d, ]+",1)

复制代码

xjl565135022 · 发表于 2024-11-12 09:53

本帖最后由 xjl565135022 于 2024-11-12 09:54 编辑

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

VBA只支持先行断言(?=)，不支持后行断言 (?<=) ，有点遗憾，哈哈

无关岁月 · 发表于 2024-11-12 10:00

这样应该可以

xjl565135022 · 发表于 2024-11-12 10:12

ykcbf1100 · 发表于 2024-11-12 11:03

本帖最后由 ykcbf1100 于 2024-11-12 19:48 编辑

.Pattern = "$(.*?)$"

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

PurpleIdea · 发表于 2024-11-12 14:18

Sub 正则筛选()
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, "$1" & Chr(13) & Chr(10))

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

End Sub

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

[求助] 正则提取字符串中英文括号中的内容

评分

评分

评分