VB XML

[Jeevandhara]

I am trying to parse and load XML file into Tree Control. Section I is what I am doing in my code. Section II is my question.
Section I -- remember that this is not a complete code. cut-n-paste will not work.
-- Loading xml file into oDoc
Set oDoc = New DOMDocument
oDoc.Load "file:///" & txtFile.Text
-- Displaying it into Tree
AddNode oDoc.documentElement
(
Private Sub AddNode(ByRef oElem As IXMLDOMNode, Optional ByRef oTreeNode As Node)
Dim oNewNode As Node
Dim oNodeList As IXMLDOMNodeList
Dim i As Long
oNewNode.Text = oElem.nodeName
Set oNewNode.Tag = oElem
Set oNodeList = oElem.childNodes
For i = 0 To oNodeList.length - 1
AddNode oNodeList.Item(i), oNewNode
Next
End Sub
)
-- my xml is look like this
<?xml version="1.0"?>
<!DOCTYPE FAMILY [
<!ELEMENT FAMILY (PERSON+, PET*)>
<!ELEMENT PERSON EMPTY>
<!ATTLIST PERSON
name CDATA #REQUIRED
>
<!ELEMENT PET EMPTY>
<!ATTLIST PET
name CDATA #REQUIRED
type (cat|dog) #REQUIRED
>
]>
<FAMILY>
<PERSON name="Freddy"/>
<PERSON name="Maartje" />
<PERSON name="Gerard"/>
<PERSON name="Gerard"/>
<PERSON name="Peter"/>
<PET name="Bonzo" type="dog"/>
<PET name="Arnie" type="cat"/>
<PET name="dogy" type="rat"/>
</FAMILY>

Section II
When I clicked display button it shows
FAMILY
|
|--PERSON
|--PERSON
|--PERSON
|--PET
|--PET
I want the attributes should be printed. instead of PERSON it should print Freddy, Peter etc. etc.


Please advice

Thanks

[Dark Sean]

Well, I don't see the code for your display button, but you should be able to get what you want by accessing the nodeTypedValue like this...if this objNode was an element or attribute with a value you could print the value to the immediate window like this.


Dim objNode as IXMLDOMNode
Debug.print objNode.nodeTypedValue

[Dark Sean]

I'm just going to post a bit of code I use to switch sender and recipient of a message, this should show you everything you need. To make this more robust, you can pass in the element names you want to search for and replace, this function has them hardcoded. This is changing attributes and elements.


public Function SwitchJackSenderAndRecipient(byval FileName as string) as Boolean

Dim objSender as MSXML2.IXMLDOMNode
Dim objRecipient as MSXML2.IXMLDOMNode

Dim objMessage as MSXML2.IXMLDOMNode

Dim objAttribute as MSXML2.IXMLDOMAttribute

Dim strSender as string
Dim strRecipient as string
Dim strTemp as string

Dim blnSuccess as Boolean

on error GoTo ErrHandler

If objDOM.Load(FileName) then

set objMessage = objDOM.selectSingleNode("//Message")

If Not objMessage is nothing then
set objAttribute = objMessage.Attributes.getNamedItem("Sender")

If Not objAttribute is nothing then
strSender = objAttribute.nodeTypedValue
End If

set objAttribute = objMessage.Attributes.getNamedItem("Recipient")

If Not objAttribute is nothing then
strRecipient = objAttribute.nodeTypedValue
End If

'now switch the values
strTemp = strSender
strSender = strRecipient
strRecipient = strTemp

set objAttribute = objMessage.Attributes.getNamedItem("Sender")

If Not objAttribute is nothing then
objAttribute.nodeTypedValue = strSender
End If

set objAttribute = objMessage.Attributes.getNamedItem("Recipient")

If Not objAttribute is nothing then
objAttribute.nodeTypedValue = strRecipient
End If

strTemp = vbNullString
strSender = vbNullString
strRecipient = vbNullString

End If

set objSender = objDOM.selectSingleNode("//Sender")

If Not objSender is nothing then
strSender = objSender.nodeTypedValue
End If

set objRecipient = objDOM.selectSingleNode("//Recipient")

If Not objRecipient is nothing then
strRecipient = objRecipient.nodeTypedValue
End If

'now switch the values
strTemp = strSender
strSender = strRecipient
strRecipient = strTemp

objSender.nodeTypedValue = strSender
objRecipient.nodeTypedValue = strRecipient

objDOM.save FileName

set objSender = nothing
set objRecipient = nothing
set objMessage = nothing
set objAttribute = nothing

blnSuccess = true
else
blnSuccess = false
End If

SwitchJackSenderAndRecipient = blnSuccess

Exit Function

ErrHandler:
SwitchJackSenderAndRecipient = false
End Function