求助，麻烦帮忙看一下为什么原因bao'cuo

1059526347

Sub sd()

    Dim a As New Regexp, b

    a.pattern = "(?<=\()\d+(?=\))"

    Set b = a.Execute("35.5(1059526347)")

End Sub

问题出在  正则表达式  (?<=\()\d+(?=\))  
网上好几个在线测试 ,测试没有任何反应，不是未查找到，而且无任何反应，一些测试软件直接报错 “匹配失败”

1059526347

(?<=\()\d+(?=\))   这条正则在 vb.net 中是没问题的

1059526347

VBA正则不支持逆向环视吗？？？

zpy2

1059526347 发表于 2019-6-27 19:00
VBA正则不支持逆向环视吗？？？

?<=
这个是逆向环视，vbs不支持的

zpy2

你要匹配 浮点数？

1059526347

我要匹配括号里面的数字。第一次使用vba的正则表达式，现在我才知道。原来大多在线测试工具都不支持逆向环视。尴尬的是那些测试工具附带教材却介绍了逆向环视
给大家推荐一个比较好的在线测试工具
https://regex101.com/r/aGE4px/1

1059526347

zpy2 发表于 2019-6-27 19:22
你要匹配 浮点数？

没有，我要匹配括号里的数字。谢谢你的回复

1059526347

问题已解决。贴出一下 套正则的自定义函数

Function RegexpA(字符串 As String, 表达式 As String, Optional 类型 As Integer = 1, Optional 忽略大小写 As Boolean = False) As String
   
    Dim mRegExp As Object       '正则表达式对象
    Dim mMatches As Object      '匹配字符串集合对象
    Dim mMatch As Object        '匹配字符串
    Dim Retu As String
   
    Set mRegExp = CreateObject("Vbscript.Regexp")
    With mRegExp
        .Global = True                          'True表示匹配所有, False表示仅匹配第一个符合项
        .IgnoreCase = 忽略大小写                        'True表示忽略大小写, False表示区分大小写
        .Pattern = 表达式   '匹配字符模式
        Set mMatches = .Execute(字符串)   '执行正则查找，返回所有匹配结果的集合，若未找到，则为空
    End With
   
    If mMatches.Count = 0 Then
        RegexpA = ""
        Exit Function
    End If
   
    If 类型 = 0 Then
        For Each mMatch In mMatches
            Retu = Retu & mMatch.Value & vbCrLf
        Next
        RegexpA = Retu
        
    ElseIf 类型 < 0 Then
        If mMatches.Count + 类型 < 0 Then 类型 = mMatches.Count * -1
        RegexpA = mMatches(mMatches.Count + 类型).Value
    Else
        If mMatches.Count < 类型 Then 类型 = mMatches.Count
        RegexpA = mMatches(类型 - 1).Value
    End If
   
         
End Function









第三个可选参数[类型]默认值1

zpy2

\(\d+\)
就行了吧，咋搞的这么复杂

1059526347

zpy2 发表于 2019-6-27 20:28
\(\d+\)
就行了吧，咋搞的这么复杂

不需要括号的,