XML - Appending [Resolved]

[mendhak]

I have an XML file with the following structure:

<?xml version="1.0" encoding="UTF-8"?>
<family>
  <name gender="Male">
    <firstname>Tom</firstname>
    <lastname>Smith</lastname>
  </name>
  <name gender="Female">
    <firstname>Dale</firstname>
    <lastname>Doorknob</lastname>
  </name>
</family>

Now I'd like to append a node to this through code only. Here is what I have so far:

Dim XMLd As New XmlDocument
        
 
 
        XMLd.Load(Server.MapPath("family.xml")) 'this is fine, no problem with mapping!
        
 
        Dim xmlEl As XmlElement = XMLd.CreateElement("name")
        Dim xmlAttr As XmlAttribute = XMLd.CreateAttribute("gender")
        xmlAttr.Value = "male"
        xmlEl.Attributes.Append(xmlAttr)
 
        xmlEl.InnerXml = "<firstname></firstname><lastname></lastname>"
 
        Dim txtNode As XmlText = XMLd.CreateTextNode("Alfed E")
 
        xmlEl.FirstChild.AppendChild(txtNode)
        xmlEl.Item("lastname").InnerText = "Neumann"
 
        XMLd.DocumentElement.AppendChild(xmlEl)

When I run the code, very simply, this is what happens:

Nothing.

Absolutely nothing. Zilch. Nada. Zero! (Yes, with the exclamation)

So what am I missing? Even an existing example similar to this would be helpful.

[mendhak]

Here's what was missing:

XMLd.Save(Server.MapPath("family.xml"))

Right after the last statement.


Don't I just hate it when I solve it myself? Every time.

[mendhak]

Can someone verify if this is the way "things are done"?

Dim XMLd As New XmlDocument
        Dim XMLN As XmlNode
 
 
        'and xmldocument, to represent the instance of the XML file we're dealing with.
        XMLd.Load(Server.MapPath("family.xml"))
 
        'An XML Element <name>
        Dim xmlEl As XmlElement = XMLd.CreateElement("name")
        'It can have an attribute gender=...>
        Dim xmlAttr As XmlAttribute = XMLd.CreateAttribute("gender")
        'gender="male">
        xmlAttr.Value = "male"
 
        ' now we have <name gender="male">
        xmlEl.Attributes.Append(xmlAttr)
        'one more attribute, for old times sake...
        xmlAttr = XMLd.CreateAttribute("moron")
        xmlAttr.Value = "True"
        'now, we add the attribute to the element.  Again.
        xmlEl.Attributes.Append(xmlAttr)
 
        'What goes INside the element we just made. 
        xmlEl.InnerXml = "<firstname></firstname><lastname></lastname>"
 
 
 
 
        'give it some values
        xmlEl.Item("firstname").InnerText = "Alfred E"
        xmlEl.Item("lastname").InnerText = "Neumann"
 
        'append the whole element to the whole damn document. 
        XMLd.DocumentElement.AppendChild(xmlEl)
        'save the document now!
        XMLd.Save(Server.MapPath("family.xml"))

[Caponae]

There's more than one way to skin a cat, but I would have done it something like this...but yeah, yours works too...


_______________________________________________ Dim XMLd As New XmlDocument

XMLd.Load(Server.MapPath("family.xml"))

Dim xmlEl As XmlElement = XMLd.CreateElement("name")
xmlEl.setAttribute "gender", "male"
xmlEl.setAttribute "moron", "True"

dim fName as xmlElement = xmlEl.appendChild(XMLd.createElement("firstname"))
dim lName as xmlElement = xmlEl.appendChild(XMLd.createElement("lastname"))

fName.innerText = "Alfred E"
lName.innerText = "Neumann"

XMLd.DocumentElement.AppendChild(xmlEl)

XMLd.Save(Server.MapPath("family.xml"))
_______________________________________________

[mendhak]

Excellent, I feel I was close enough! Thanks.