yujx1217 2022-08-14 14:50 采纳率: 100%
浏览 89
已结题

vba正则表达式出错

vba正则表达式匹配 报错“运行时错误 5017”

Sub test()
    Dim regEx, Match, matches ' 建立变量。
    Set regEx = CreateObject("vbscript.regexp") ' 建立正则表达式。

    regEx.Pattern = "(?<![\u4e00-\u9fa5])张三(?![\u4e00-\u9fa5])" ' 报运行时错误 5017
    'regEx.Pattern = "张三"    '不会报错
    regEx.IgnoreCase = True ' 设置是否区分字符大小写。
    regEx.Global = True ' 设置全局可用性。
    
    regEx.MultiLine = True '设置多行匹配
    
    strng = "6. a张三(1) ,我不是 张三丰"  '只匹配第一个张三,不匹配张三丰那个张三
    Set matches = regEx.Execute(strng) ' 执行搜索。
End Sub

我想匹配“张三”这个名字,但是名字之间有空格,标点符号,数字等分割。我写了正则表达式匹配 "(?<![\u4e00-\u9fa5])张三(?![\u4e00-\u9fa5])",这个表达式我在线测试网站https://c.runoob.com/front-end/854/ 可以通过,但是在vba中报错。请问有什么解决办法。

img

  • 写回答

4条回答 默认 最新

  • 天际的海浪 2022-08-14 16:59
    关注

    VBA正则表达式不支持(?<=...)和(?<!...)
    你是要 "张三" 前后不能有别的中文改成这样即可

    regEx.Pattern = "\b张三\b"
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(3条)

报告相同问题?

问题事件

  • 系统已结题 8月23日
  • 已采纳回答 8月15日
  • 修改了问题 8月14日
  • 修改了问题 8月14日
  • 展开全部

悬赏问题

  • ¥20 基于MSP430f5529的MPU6050驱动,求出欧拉角
  • ¥20 Java-Oj-桌布的计算
  • ¥15 powerbuilder中的datawindow数据整合到新的DataWindow
  • ¥20 有人知道这种图怎么画吗?
  • ¥15 pyqt6如何引用qrc文件加载里面的的资源
  • ¥15 安卓JNI项目使用lua上的问题
  • ¥20 RL+GNN解决人员排班问题时梯度消失
  • ¥60 要数控稳压电源测试数据
  • ¥15 能帮我写下这个编程吗
  • ¥15 ikuai客户端l2tp协议链接报终止15信号和无法将p.p.p6转换为我的l2tp线路