Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 760
  • Last Modified:

VB.NET XML-Document

Hey guy's,

I've a question about VB.NET and XML.
I'm be able to create a new XML-Document.
My question: How can I add some nodes to the already existing XML-Document???

Thanks.
'Sub to create the XML-Document
Private Sub writeXML()
 
        Dim writer As XmlWriter
        writer = XmlWriter.Create("properties.xml")
        writer.WriteStartDocument()
        writer.WriteStartElement("Drinks")
 
    
        writer.WriteStartElement("Drink")
        writer.WriteAttributeString("ID","1")
        writer.WriteElementString("Name", "Blubb")
        writer.WriteElementString("Prize", "10")
        writer.WriteElementString("Amount", "4")
        writer.WriteElementString("Path", "Logo.gif")
        writer.WriteEndElement()
 
        writer.WriteEndDocument()
        writer.Close()
 
        Return Nothing
End Sub
---------------------------------------------------------------------------
'Result looks like this:
  <?xml version="1.0" encoding="utf-8" ?> 
- <Drinks>
   - <Drink ID="1">
        <Name>Blubb</Name> 
        <Prize>10</Prize> 
        <Amount>4</Amount> 
        <Path>Logo.gif</Path> 
     </Drink>
  </Drinks>
----------------------------------------------------------------------------
'I want to add a new node...so the result should looks like this:
  <?xml version="1.0" encoding="utf-8" ?> 
- <Drinks>
   - <Drink ID="1">
        <Name>Blubb</Name> 
        <Prize>10</Prize> 
        <Amount>4</Amount> 
        <Path>Logo.gif</Path> 
     </Drink>
   - <Drink ID="2">
        <Name>Bla</Name> 
        <Prize>5</Prize> 
        <Amount>1</Amount> 
        <Path>Logo2.gif</Path> 
     </Drink>
  </Drinks>

Open in new window

0
ceMo89
Asked:
ceMo89
1 Solution
 
cauosCommented:
you can load the XML file to XmlDocument  and append new XML node to the end of the file and then save this file again.
public sub AddNewNode()
 
        dim doc as New XmlDocument ()
        doc.Load("properties.xml")
 
        dim root as XmlNode = doc.DocumentElement
 
        //Create a new node.
        dim elem as XmlElement = doc.CreateElement("Drink")
        elem.InnerXml = "<yourNodes>mynode</yourNodes>"
 
        //Add the node to the document.
        root.AppendChild(elem)       
        doc.Save("properties.xml")
end sub

Open in new window

0
 
barrislbCommented:
Hi ceMo89,

I believe this code may be some help to you.  
Private Sub InsertNewNode()
        '-- Declare local variable and load xml file
        Dim doc As New XmlDocument()
        doc.Load("C:\test.xml")
 
        '-- Create a new node and add it to the document.
        Dim Drink As XmlElement = doc.CreateElement("Drink")  
        Drink.SetAttribute("ID", "IdNum")        
       
        '-- Name node
        Dim Name As XmlElement = doc.CreateElement("Name")
        Name.InnerText = "Enter a Name"
        '-- Prize node
        Dim Prize As XmlElement = doc.CreateElement("Prize")
        Prize.InnerText = "Enter a Prize"
        '-- Amount node
        Dim Amount As XmlElement = doc.CreateElement("Amount")
        Amount.InnerText = "Enter the Amount"
        '-- Path node
        Dim Path As XmlElement = doc.CreateElement("Path")
        Path.InnerText = "Enter a Path"
 
        '-- Append the new node to the end of the file.
        doc.DocumentElement.AppendChild(Drink)
        doc.DocumentElement.LastChild.AppendChild(Name)
        doc.DocumentElement.LastChild.AppendChild(Prize)
        doc.DocumentElement.LastChild.AppendChild(Amount)
        doc.DocumentElement.LastChild.AppendChild(Path)
 
        '-- Save the xml file with the new changes.
        doc.Save("C:\test.xml")
        MessageBox.Show("New xml node has been added.", "XML Node Add...", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

Open in new window

0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now