Hello,
I am unable to read and display the structure of the following XML file
/xml.xml/:
<?xml version="1.0" encoding="UTF-8"?>
<!-- Link: https://wiki.selfhtml.org/wiki/XML/Regeln/Baumstruktur -->
<E1>
<E2 ATTR1="Berlin" ATTR2="Paris">
<E3>
<E4 ATTR3="w">Anna</E4>Text1 <E5 ATTR4="m">Paul</E5>Text2
</E3>
</E2>
</E1>
Note: Indents for the display - for example, in a textarea - can be
safely read from the Node.Depth property.
The result should look like this:
COMMENT
RELEMENT: E1
ELEMENT: E2
ATTRIBUTE: ATTR1
VALUE: Berlin
ATTRIBUTE: ATTR2
VALUE: Paris
ELEMENT: E3
ELEMENT: E4
ATTRIBUTE: ATTR3
VALUE: w
TEXT: Anna
/ELEMENT: E4
TEXT: Text1
ELEMENT: E5
ATTRIBUTE: ATTR4
VALUE: m
TEXT: Paul
/ELEMENT: E5
TEXT: Text1 Text2
/ELEMENT: E3
/ELEMENT: E2
/ELEMENT: E1
Does anyone have an idea or suggestion or even a finished solution for
the above mentioned task? My projects with XmlDocument and XmlReader do
not display the structure of the xml.xml file correctly. But: Other XML
files are displayed correctly. We are looking for a (general) solution
for any XML files.
Best regards
Hans
Here is the source code used:
Private Sub Xml2TreeView(xmlDoc As XmlDocument, hTreeView As TreeView)
' Root-Element
hTreeView.Clear()
hTreeView.Add("0", xmlDoc.Root.TagName)
AddChildren(1, xmlDoc.Root, 0, hTreeView)
End
Private Sub AddChildren(iIndex As Integer, xmlElement As XmlElement,
iParent As Integer, hTreeView As TreeView) As Integer
Dim xChild As XmlElement
Dim S As Variant
Dim xAttr As XmlNode
Dim sAttr As String
Dim elements As XmlElement[]
Dim x As XMLElement
Dim xVal As String
For Each xChild In xmlElement.ChildElements
xVal = ""
'Extract Element-Value if the element has no children
If (xChild.ChildElements.Count = 0) Then
xVal = ": " & xChild.Value
If InStr(xChild.value, gb.lf) Then
xVal = Replace(xVal, gb.lf, " ") 'remove line feeds
xVal = Left$(xVal, 35) & " ...." 'show an extract
Endif
Endif
If xChild.Attributes.Count > 0 Then 'Include attributes if
contained in element
' Collect Attributes of the element
sAttr = ""
For Each xAttr In xChild.Attributes
sAttr &= xAttr.name & " = " & xAttr.Value & " "
Next
hTreeView.Add(Str$(iIndex), xChild.TagName & " " & xVal & " " &
Trim(sAttr), Null, Str$(iParent))
Else
hTreeView.Add(Str$(iIndex), xChild.TagName & " " & xVal, Null,
Str$(iParent))
Endif
iIndex = AddChildren(iIndex + 1, xChild, iIndex, hTreeView)
Next
Return iIndex
End
Public Sub btnStart_Click()
Dim xmlDoc As New XmlDocument(Application.Path &/ "xml.xml")
Xml2TreeView(xmlDoc, TreeView1)
If TreeView1 <> Null And TreeView1.Count > 0 Then
TreeView1.MoveFirst()
Repeat
TreeView1.Item.Expanded = True
Until TreeView1.MoveBelow()
Endif
TreeView1.MoveBack()
TreeView1.Item.EnsureVisible()
txaXMLContent.Text = xmlDoc.Content
End
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
