利用正则表达式截取指定开始与结尾字符之间的字符

山海风云轩

做个记号   

半百

逆天修炼 发表于 2023-5-21 22:55
.Pattern = "Cells(1, 2) &“期”(\d+)(.*?)(?=开)"
请问前面我加的变量对吗？

可能是这样吧
.Pattern = Cells(1, 2) & "期(\d+)(.*?)(?=开)"

逆天修炼

我也想上传附件，可是怕被封帐号

逆天修炼

xd3210 发表于 2023-5-21 21:56
(\d+)(.*?)(?=以上空白|待续)
/(?

请问如何用正则表达式从以下HTML字符串抽取【】中的内容，其中145是需要引用单元格的变量。

“145期:过过过『发发发发』”
<br>
“【位卑未敢忘忧国】开：？00”

逆天修炼

高个子 发表于 2023-5-21 20:57
上传附件，模拟结果

请问如何用正则表达式从以下HTML字符串抽取【】中的内容，其中145是需要引用单元格的变量。

“145期:过过过『发发发发』”
<br>
“【位卑未敢忘忧国】开：？00”

suntao2000

Sub 提取()
    Dim s$, n, m, n1%, m1%
    [AA1] = "145期:" '不知道引用的单元格在哪里，填一个
    s = "“145期:过过过『发发发发』”" & _
        "<br>" & _
        "“【位卑未敢忘忧国】开：？00”"
   
    With CreateObject("VBSCRIPT.REGEXP") 'RegEx为建立正则表达式
        .Global = True '设置全局可用
        .Pattern = "(" & Sheet3.[D19] & ")|【([^】]*)】"
        MsgBox .Execute(s)(0).SubMatches(0) & .Execute(s)(1).SubMatches(1)
    End With
    [AA1] = "" '清空之前填的
End Sub

逆天修炼

suntao2000 发表于 2023-5-25 19:06
Sub 提取()
    Dim s$, n, m, n1%, m1%
    [AA1] = "145期:" '不知道引用的单元格在哪里，填一个

"(" & Sheet3.[D19] &
这个部分没有看懂是什么意思？

zxsea_7426

smiletwo 发表于 2023-5-21 21:04
船上有16头牛，3只羊，船长几岁？

宋小宝的小品，公交车最后的问题是公交车走了几站