VB.NET: Writing attribute and Elements to Xml [Resolved]

[toytoy]

Say i have this Xml file

<Books>
   <Book type="1">
      <Author>Peter</Author> 
       <Section>1</Section> 
  </Book>
</Books>

how to create another automatic set of IDs and datas for the Xml tag so that when i type in another set of data...

The content of the Xml file will become:

<Books>
  <Book type="1">
       <Author>Peter</Author> 
       <Section>1</Section> 
  </Book>
  <Book type="2">
       <Author>John</Author> 
       <Section>2</Section> 
  </Book>
</Books>

Thanks

[toytoy]

Can anyone help me in the coding...

I want to do something like that..
It will compare whether is there a set of tags...
if yes, it will append to it...
if no, it will create a new one...

Thanks

[toytoy]

Anyone

[toytoy]

Currently, it can append.....
but the type attributes "1" will write to the tag once i re-run the program...
Is that any way where it can check with the Xml file and continue the numbers instead of starting from 1....

Currently Xml file:

<Books>
  <Book type="1">
    <Author>ok</Author>
    <Section>1</Section>
  </Book>
  <Book type="2">
    <Author>no</Author>
    <Section>2</Section>
  </Book>
      <Book type="1">    Not I wanted 
  <Author>Peter</Author>
    <Section>7</Section>
  </Book>
</Books>

Hope to become:

<Books>
  <Book type="1">
    <Author>ok</Author>
    <Section>1</Section>
  </Book>
  <Book type="2">
    <Author>no</Author>
    <Section>2</Section>
  </Book>
   <Book type="3">  This is what I wanted 
  <Author>Peter</Author>
    <Section>7</Section>
  </Book>
</Books>

My Coding:

Dim m As String = "1"
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

Dim doc As New Xml.XmlDocument
'load file
doc.Load("data.xml")
'create node
'get root node named users
Dim Usersnode As Xml.XmlElement = doc.SelectSingleNode("//Books")
'add the new node
Dim newNode As Xml.XmlElement = doc.CreateElement("Book")
'add attributes
newNode.SetAttribute("type", m)
'add children nodes if any
Dim child As Xml.XmlElement = doc.CreateElement("Author")
child.InnerText = txtAuthor.Text
newNode.AppendChild(child)
child = doc.CreateElement("Section")
child.InnerText = txtSection.Text
newNode.AppendChild(child)
'add new node to users node
Usersnode.AppendChild(newNode)
m += 1
      
'save doc
doc.Save("data.xml")

End Sub

Thanks

[toytoy]

Anyone....

how to do a loop in the Xml file to get the total number of types attribute....

then from there compare the count to the add button and add accordingly....

Thanks

[toytoy]

finally solve it... get it from other forums..

 Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim doc As New Xml.XmlDocument
'load file
doc.Load("data.xml")

'create node
'get root node named users
Dim Usersnode As Xml.XmlElement = doc.SelectSingleNode("//Books")

'get current book nodes
Dim BookNodes As Xml.XmlNodeList = doc.SelectNodes("//Books/Book")
m = BookNodes.Count() + 1

'add the new node
Dim newNode As Xml.XmlElement = doc.CreateElement("Book")
'add attributes
newNode.SetAttribute("type", m)
'add children nodes if any
Dim child As Xml.XmlElement = doc.CreateElement("Author")
child.InnerText = txtAuthor.Text
newNode.AppendChild(child)
child = doc.CreateElement("Section")
child.InnerText = txtSection.Text
newNode.AppendChild(child)
'add new node to users node
Usersnode.AppendChild(newNode)

'save doc
doc.Save("data.xml")
 End Sub