xml的问题!

Question

建议你用System.Xml.XmlDocument   
这个是最好的,给你一个例子，照着这个写就行了
        Dim xml As New System.Xml.XmlDocument()
        Dim root As System.Xml.XmlElement = xml.CreateElement("root")
        Dim child1 As System.Xml.XmlElement = xml.CreateElement("menuitem")
        Dim attrib1 As System.Xml.XmlAttribute = xml.CreateAttribute("id")
        child1.Attributes.Append(attrib1)
        root.AppendChild(child1)
        xml.AppendChild(root)

Answer 1

Dim writer As XmlTextWriter = New XmlTextWriter("c:\myMledia.xml", Nothing)        'Use automatic indentation for readability.
        writer.Formatting = Formatting.Indented        'Write the root element
        writer.WriteStartElement("root")        writer.WriteStartElement("menuitem")
        writer.WriteAttributeString("id", "1")
        writer.WriteAttributeString("title", "Company")
        writer.WriteAttributeString("URL", "sdf.aspx")        writer.WriteStartElement("menuitem")
        writer.WriteAttributeString("id", "2")
        writer.WriteAttributeString("title", "Whats New")
        writer.WriteAttributeString("URL", "whatsnew.aspx")
        writer.WriteFullEndElement()        writer.WriteStartElement("menuitem")
        writer.WriteAttributeString("id", "3")
        writer.WriteAttributeString("title", "About Us")
        writer.WriteAttributeString("URL", "aboutus.aspx")
        writer.WriteFullEndElement()        writer.WriteStartElement("menuitem")
        writer.WriteAttributeString("id", "4")
        writer.WriteAttributeString("title", "Support")
        writer.WriteAttributeString("URL", "support.aspx")
        writer.WriteFullEndElement()        writer.WriteFullEndElement()        writer.WriteStartElement("menuitem")
        writer.WriteAttributeString("id", "5")
        writer.WriteAttributeString("title", "Help")        writer.WriteStartElement("menuitem")
        writer.WriteAttributeString("id", "6")
        writer.WriteAttributeString("title", "About")
        writer.WriteAttributeString("URL", "About.aspx")
        writer.WriteFullEndElement()        writer.WriteStartElement("menuitem")
        writer.WriteAttributeString("id", "7")
        writer.WriteAttributeString("title", "Contact")
        writer.WriteAttributeString("URL", "Contact.aspx")
        writer.WriteFullEndElement()        writer.WriteFullEndElement()
        'root end
        writer.WriteFullEndElement()        'Write the XML to file and close the writer
        writer.Close()

Answer 2

关于xmldocument...有没有sample呢?我是说关于一开始的declaration...save into which xml?

Answer 3

Dim xml As New System.Xml.XmlDocument()
..........
xml.Save("c:\a.xml")
这样就可以了

Answer 4

Dim xml As New System.Xml.XmlDocument()
        Dim ver As System.Xml.XmlDeclaration = xml.CreateXmlDeclaration("1.0", "GB2312", "yes")
        Dim root As System.Xml.XmlElement = xml.CreateElement("root")
        Dim child1 As System.Xml.XmlElement = xml.CreateElement("menuitem")
        Dim attrib1 As System.Xml.XmlAttribute = xml.CreateAttribute("id")
        child1.Attributes.Append(attrib1)
        root.AppendChild(child1)
        xml.AppendChild(ver)
        xml.AppendChild(root)
        xml.Save("c:\a.xml")