MSXML2

Question

我有这个 XML 文件

我需要按名称搜索 <deviceset> 元素（例如 name="DB_"）并用更新后的数据替换其子树 <technologies>。

到目前为止，我用正确的结构制作了 returns MSXML2.IXMLDOMElement <technologies> 的函数，但我不知道如何在主文档中搜索和替换。

我正在尝试这种方法

'Select everything from table Interlink - This table contains element's names
Dim RS As Recordset
Set RS = CurrentDb.OpenRecordset("SELECT * FROM Interlink")

'Create new document and load the file
Dim oDoc As DOMDocument60
Set oDoc = New DOMDocument60
oDoc.async = False
oDoc.Load CurrentProject.Path & "\JLC_pattern.xml"

Dim Tech As IXMLDOMElement      'I can set this to contain updated <technologies> subtree
'is it better to use IXMLDOMNode? or IXMLDOMDocumentFragment?

Dim devSets As IXMLDOMNodeList  'Collection ?
Dim devSet As IXMLDOMNode       'Node?


'Loop through the recordset, search for elements and replace the subtree <technologies>
Do Until RS.EOF
    'Recordset now contains the deviceset name attribute
    Debug.Print RS.Fields("lbrDeviceSetName")  ' first record contains "DB_"
    
    'I can't find the right method to find the node or collection
    'I have tried:
    Set devSets = oDoc.getElementsByTagName("deviceset")   'and
    Set devSets = oDoc.selectNodes("//eagle/drawing/library/devicesets/deviceset")
    'but devSets collection is always empty
    For Each devSet In devSets
        Debug.Print devSet.baseName ' this does not loop
    Next devSet

    'I made a function that returns IXMLDOMNode with needed data structure
    'Once I find the node I need to replace the subtree
    'and move to the next deviceset name
    RS.MoveNext
Loop
'Save the modified XML document to disk
oDoc.Save CurrentProject.Path & "\SynthetizedDoc.xml"
RS.Close

'Cleanup...

循环遍历节点集合并搜索记录集可能比循环遍历记录集并搜索节点更容易。

谁能给我一个线索吗？

编辑： 我用 for each loop

扩展了 VBA 代码

模式XML在这里JLC_Pattern.xml

编辑 2： <technologies> 子树可能非常庞大。我不想用代码压倒这个 post 。我有一个函数 getTechnology(tech as string) as IXMLDOMElement 从数据库中提取数据。函数输出内容可以在这里下载：IXMLDOMElement.xml问题不是这个函数，我只是不知道如何将这个输出插入到oDoc

的正确位置

Answer 1

这对我有用：

'Create new document and load the file
Dim oDoc As DOMDocument60
Dim devSet As IXMLDOMNode

Set oDoc = New DOMDocument60
oDoc.async = False

'https://docs.microsoft.com/en-us/previous-versions/windows/desktop/ms762632(v=vs.85)
oDoc.SetProperty "ProhibitDTD", False 'needed for MSXML6

oDoc.validateOnParse = False 'or get a DTD-related error
                             '"The element 'eagle' is used but not declared in the DTD/Schema."

'always test for load errors
If Not oDoc.Load("C:\Tester\JLC_pattern.xml") Then
    Debug.Print oDoc.parseError.reason
    Exit Sub
End If

'select a single node based on its name attribute value
Set devSet = oDoc.SelectSingleNode("/eagle/drawing/library/devicesets/deviceset[@name='DB_']")
If Not devSet Is Nothing Then
    Debug.Print devSet.XML
    'work with devSet child nodes...
Else
    Debug.Print "node not found"
End If

MSXML2 - 如何搜索特定节点并替换其子节点

MSXML2 - How to search specific nodes and replace its child nodes

ms-access

vba