在excel的vba中，如何书写一段匹配开头却不包含开头的正则表达式，比如字符串为abc"abcd",

比如字符串为abc"abcd",，匹配引号之间的内容，但是不包括引号

VBA 中的正则没有其他语言灵活，不过可以分两步实现：

用一个【匹配开头且包含开头】的正则表达式去测试目标字符串


上面的条件不满足时再用另一个正则表达式【匹配双引号之间的内容（不包括双引号）】

参考代码：

' 引用 Microsoft VBScript Regular Expressions 5.5 (请根据自己的电脑环境选择)
Sub MatchText()
    Dim rExp As RegExp
    
    ' 待测试字符串
    Const STR_TEST As String = "abc""abcd"""
    '【匹配开头且包含开头】
    Const STR_PATTERN_1 As String = "^([\s\S]+?)""\1"""
    '【匹配双引号之间的内容（不包括双引号）】
    Const STR_PATTERN_2 As String = """([\s\S]+?)"""
    
    Set rExp = New RegExp
    
    With rExp
        .MultiLine = True
        .Global = True
        .IgnoreCase = True
        .Pattern = STR_PATTERN_1
        
        ' /* 待测字符串不是 abc"abc" 的形式. */
        If Not .Test(STR_TEST) Then
            Dim mItem As Match
            Dim mcAll As MatchCollection
            
            .Pattern = STR_PATTERN_2
            Set mcAll = .Execute(STR_TEST)
            
            ' /* 遍历匹配集合中的子匹配. */
            For Each mItem In mcAll
                MsgBox mItem.SubMatches(0)
            Next
            
            Set mItem = Nothing
            Set mcAll = Nothing
        End If
    End With
    
    Set rExp = Nothing
End Sub

运行结果：

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/22mps48sspv44qp72p.html