xml: alle child nodes eines parent nodes auslesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public Sub LoadDocument() Dim xDoc As MSXML2.DOMDocument60 Set xDoc = New MSXML2.DOMDocument60 xDoc.validateOnParse = False If xDoc.Load("C:\Users\ich\Documents\test.xml") Then ' The document loaded successfully. ' Now do something intersting. DisplayNode xDoc.ChildNodes, 0 Else ' The document failed to load. ' See the previous listing for error information. End If End Sub Public Sub DisplayNode(ByRef Nodes As MSXML2.IXMLDOMNodeList, _ ByVal Indent As Integer) Dim xNode As MSXML2.IXMLDOMNode Indent = Indent + 2 For Each xNode In Nodes If xNode.NodeType = NODE_TEXT Then Debug.Print Space$(Indent) & xNode.ParentNode.nodeName & _ ":" & xNode.NodeValue End If If xNode.HasChildNodes Then DisplayNode xNode.ChildNodes, Indent End If Next xNode End Sub

Hallo
Könnte in etwa so ausschauen


Option Explicit
Dim xDoc As MSXML2.DOMDocument60
Public Sub LoadDocument()
Set xDoc = New MSXML2.DOMDocument60
xDoc.validateOnParse = True
If xDoc.Load("C:\Users\ich\Downloads\child_nodes_of_parent_node.xml") Then
' The document loaded successfully.
Else
' The document failed to load.
End If
End Sub
Sub GetKD_ID(myCustomer As String)
Dim oSeqNodes As IXMLDOMNodeList
Dim oSeqNode As IXMLDOMNode
Dim oSeqChild As IXMLDOMNode
Set oSeqNodes = xDoc.SelectNodes("//BrandData/" & myCustomer)
If oSeqNodes.Length = 0 Then
'show some message
Else
For Each oSeqNode In oSeqNodes
For Each oSeqChild In oSeqNode.ChildNodes
Debug.Print oSeqChild.nodeName
Next
Next
End If
End Sub
Sub GetKD_ID_Info(myCustomer As String, myK_ID As String)
Dim oSeqNodes As IXMLDOMNodeList
Dim oSeqNode As IXMLDOMNode
Dim oSeqChild As IXMLDOMNode
Set oSeqNodes = xDoc.SelectNodes("//BrandData/" & myCustomer & "/" & myK_ID)
If oSeqNodes.Length = 0 Then
'show some message
Else
For Each oSeqNode In oSeqNodes
For Each oSeqChild In oSeqNode.ChildNodes
Debug.Print oSeqChild.nodeName, ":", oSeqChild.Text
Next
Next
End If
End Sub
Sub Finish()
Set xDoc = Nothing
End Sub
Sub RunXml()
LoadDocument
GetKD_ID "Customer_Deutschland"
GetKD_ID_Info "Customer_Deutschland", "Kd_ID_Test8"
Finish
End Sub

https://books.google.at/books?id=hNqhCwAAQBAJ&pg=PA127&lpg=PA127&dq=msxml2&source=bl&ots= _ gbPIFksNQq&sig=mTLSGpg1gfOj4de6Adb_A5tgmKA&hl=de&sa=X&ved=0ahUKEwiP1u_Qi63cAhXH2CwKHTgDClYQ6AEIUTAH#v=onepage&q&f=false

Beliebteste Forumthreads (12 Monate)

xml: alle child nodes eines parent nodes auslesen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

xml: alle child nodes eines parent nodes auslesen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread