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

比如字符串为abc"abcd",,匹配引号之间的内容,但是不包括引号... 比如字符串为abc"abcd",,匹配引号之间的内容,但是不包括引号 展开
 我来答
K_BEAT
2019-04-22 · TA获得超过1245个赞
知道小有建树答主
回答量:879
采纳率:91%
帮助的人:406万
展开全部

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

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

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

参考代码:

' 引用 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

运行结果:

百度网友8e4ee6d
2019-04-21 · TA获得超过1138个赞
知道小有建树答主
回答量:887
采纳率:78%
帮助的人:366万
展开全部

前面这个叫“逆序肯定环视”,VBA支不支持不知道,你也可以直接顺序匹配,把你要的用括号括上取分组就是。

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式