请教老师：这种结构如何用正则分割，谢谢！

lwx228 · 发表于 2019-12-5 21:43

本帖最后由 lwx228 于 2019-12-5 21:47 编辑

文本的结构如下:
abcdef{:[[{ghi},{lmn}]]xyz:[{op},{q},{abc},{ef}]}

请教老师: 如何用正则得到最后面的[]及期间内容、即得到以下
[{op},{q},{abc},{ef}]

说明这个[]前面还有个[[{……}]]的结构、但这部分是不要的。

谢谢！

ggmmlol · 发表于 2019-12-5 21:58

^(?:.*?(\[.*?]))*|.

ggmmlol · 发表于 2019-12-5 22:03

lwx228 · 发表于 2019-12-5 22:16

ggmmlol 发表于 2019-12-5 22:03

我太弱了、照着都不行？

再次麻烦老师如何写成VBA？

我写成这样不行?谢谢!

Sub t()
Set reg = CreateObject("vbscript.regexp")
Cells(1, 2) = reg.Replace(Cells(1, 1), "^(?:.*?(\[.*?]))*|.")
End Sub

lwx228 · 发表于 2019-12-5 22:29

ggmmlol 发表于 2019-12-5 22:03

我的版本没有这个"超级查找"？2016版

谢谢！

ggmmlol · 发表于 2019-12-5 22:34

lwx228 发表于 2019-12-5 22:29
我的版本没有这个"超级查找"？2016版

谢谢！

Sub t()
Set reg = CreateObject("vbscript.regexp")
reg.global = true
Cells(1, 2) = reg.Replace(Cells(1, 1), "^(?:.*?(\[.*?]))*|.", "$1")
End Sub

ggmmlol · 发表于 2019-12-5 22:38

lwx228 发表于 2019-12-5 22:29
我的版本没有这个"超级查找"？2016版

谢谢！

这是我做的正则表达式加载宏，在我发的主题帖子里有下载。

lwx228 · 发表于 2019-12-5 22:47

ggmmlol 发表于 2019-12-5 22:34
Sub t()
Set reg = CreateObject("vbscript.regexp")
reg.global = true

复制了、还是出错？麻烦老师再指点、谢谢！

东南西北中发财 · 发表于 2019-12-5 23:08

reg.global=true
后面应该紧接着一句
reg.pattern="楼上的正则表达式"

ggmmlol · 发表于 2019-12-5 23:26

lwx228 发表于 2019-12-5 22:47
复制了、还是出错？麻烦老师再指点、谢谢！

被你带沟里了。
Sub t()
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "^(?:.*?(\[.*?]))*|."
reg.Global = True
Cells(1, 2) = reg.Replace(Cells(1, 1).Value, "$1")
End Sub

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

[求助] 请教老师：这种结构如何用正则分割，谢谢！

评分

评分

评分

最新热点 /1