正则表达式(?<={)([^{]*?)(?=})错在哪

zbs112

求修改正则表达式，谢谢！

在线测试(?<={)([^{]*?)(?=})结果正常。
用VBA代码运行，却提示错误，详细见截图。

Private Sub CommandButton1_Click()

    Dim N As Long
    Dim regEx As Object
    Dim Match As Object

    Set regEx = CreateObject("vbscript.regexp")
    regEx.Global = True  '全局有效
    regEx.MultiLine = True   '多行有效
    regEx.IgnoreCase = True  '忽略大小写

    '以{...}分组,开头符{ 结尾符}不获取
    regEx.Pattern = "(?<={)([^{]*?)(?=})"
    Set Match = regEx.Execute([A1])

    For N = 1 To Match.Count '遍历
        Cells(N + 2, 1) = Match.Item(N - 1)
    Next N

    Set Match = Nothing
    Set regEx = Nothing

End Sub

zpy2

vba不支持的?<=

select *,udf_preg_match_all_join('(?<={)([^{]*?)(?=})',f01,1,'<hr>') from 正则表达式拆分json字符串

高个子

vba不支持?<=

zbs112

VBA少了开头非获取，那只能开头获取了吗？
正则表达式改为：\{([^{]*?)(?=\})。
除了这，有其他非开头非获取的表达式吗？

cjc209

vba中是不支持(?<={)这种匹配的

我走我流

zbs112 发表于 2023-3-13 20:56
VBA少了开头非获取，那只能开头获取了吗？
正则表达式改为：\{([^{]*?)(?=\})。
除了这，有其他非开头非 ...

"(?!=\{)([^\{\}]+?)(?=\})"

zbs112

终于完美解决了，谢谢各位！

Yalishanda30

zbs112 发表于 2023-3-13 21:34
终于完美解决了，谢谢各位！

凑个热闹，非正则解法