如何使用VBA中的RegEx執行多行任何字符匹配（包括換行符）

Question

我想通過匹配元素的開始打開和關閉標記來使用VBA中的正則表達式從XML中提取一些數據，但我不是得到任何東西

我可以在記事本++使用<foo>.+?<\/foo>，但它不是在VBA與微軟的正則表達式的工作5.5

<foo> 
variable data here 
- 
- 
</foo> 

Answer 1

這是一個例子列出所有的<td>內容：

Sub MatchXMLtags() 
    Dim xml As String 
    xml = "<td>a</td><td>b" & vbCrLf & "</td><td>c</td>" & vbCrLf & "<td>d</td>" 

    Dim match As Object 
    With CreateObject("VBScript.RegExp") 
    .pattern = "<td>\s*([\S\s]+?)\s*</td>" 
    .Global = True 
    .IgnoreCase = True 
    .MultiLine = False 

    ' display the content of each td tag 
    For Each match In .Execute(xml) 
     Debug.Print match.SubMatches(0) 
    Next 
    End With 
End Sub