循環檢查清單並使用XMLTextWriter VB.net創建XML

Question

我是xml和.net的初學者。 我有一系列的復選框，並且我想根據用戶選擇生成一個xml文件。 我希望xml文件是這樣的。

<?xml version="1.0" encoding="utf-8"?>
  <FILTER xmlns:x="urn:1">
    <CATEGORY Name="Year">
      <SELECTED Value="2011/2010" />
      <SELECTED Value="2010/2009" />
      <SELECTED Value="2009/2008" />
    </CATEGORY>
    <CATEGORY Name="Grade">
      <SELECTED Value="Kindergarten 1" />
    </CATEGORY>   
  </FILTER>

但是我只有這個

<?xml version="1.0" encoding="utf-8"?>
  <FILTER xmlns:x="urn:1">
    <CATEGORY Name="Year">
      <SELECTED Value="2011/2010" />
    </CATEGORY>
    <CATEGORY Name="Year">
      <SELECTED Value="2010/2009" />
    </CATEGORY>
    <CATEGORY Name="Year">
      <SELECTED Value="2009/2008" />
    </CATEGORY>
    <CATEGORY Name="Grade">
      <SELECTED Value="Kindergarten 1" />
    </CATEGORY>
  </FILTER>

這是我用來創建xml文件的VB代碼。 請告訴我我所缺少的。 非常感謝您的幫助。

Dim itemacademicyear As ListItem
Dim itemgrade As ListItem

Dim w As New XmlTextWriter(Server.MapPath("items.xml"), Encoding.UTF8)
w.Formatting = Formatting.Indented
w.WriteStartDocument()
w.WriteStartElement("FILTER")
w.WriteAttributeString("xmlns", "x", Nothing, "urn:1")

For Each itemacademicyear In cblacademicyear.Items
  If itemacademicyear.Selected = True Then
    lblselected.Text = lblselected.Text & itemacademicyear.Text & "&nbsp;" & "<a href='#'>remove</a>" & "<BR>"

    'xml bit
    w.WriteStartElement("CATEGORY")
    w.WriteAttributeString("Name", "Year")
    w.WriteStartElement("SELECTED")
    w.WriteAttributeString("Value", itemacademicyear.Text)
    w.WriteEndElement()
    w.WriteEndElement()
  End If
Next

Answer 1

您需要將類別元素的創建移出循環：

w.WriteStartElement("CATEGORY")
w.WriteAttributeString("Name", "Year")

For Each itemacademicyear In cblacademicyear.Items
    If itemacademicyear.Selected = True Then
        lblselected.Text = lblselected.Text & itemacademicyear.Text & "&nbsp;" & "<a href='#'>remove</a>" & "<BR>"

        'xml bit
        w.WriteStartElement("SELECTED")
        w.WriteAttributeString("Value", itemacademicyear.Text)
        w.WriteEndElement()

    End If
Next

w.WriteEndElement()