以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  XML  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54573)
--  作者：bagabaga
--  发布时间：2014/7/30 21:59:00
--  XML
请教以下代码：
        Dim doc As New System.XML.XmlDocument()
        doc.LoadXml("<book xmlns:bk=\'urn:samples\' bk:ISBN=\'1-861001-57-5\'>" & _
                    "<title>Pride And Prejudice</title>" & _
                    "</book>")

        Dim root As System.XML.XmlNode = doc.FirstChild

        \'Create a new attribute.
        Dim ns As String = root.GetNamespaceOfPrefix("bk")
        Dim attr As System.XML.XmlNode = doc.CreateNode(System.XML.XmlNodeType.Attribute, "genre", ns)
        attr.Value = "novel"

        \'Add the attribute to the document.
        root.Attributes.SetNamedItem(attr)

        \' Save the document to a file and auto-indent the output.
          Dim writer As New System.XML.XmlTextWriter = new.System.XML.XmlTextWriter("d:\\桌面\\data.xml",Nothing)
          writer.Formatting = Formatting.Indented
          doc.Save(writer)

最后写入怎么做？
--  作者：有点甜
--  发布时间：2014/7/30 22:10:00
--  

Dim doc As New System.XML.XmlDocument()
doc.LoadXml("<book xmlns:bk=\'urn:samples\' bk:ISBN=\'1-861001-57-5\'>" & _
"<title>Pride And Prejudice</title>" & _
"</book>")


Dim root As System.XML.XmlNode = doc.FirstChild


\'Create a new attribute.
Dim ns As String = root.GetNamespaceOfPrefix("bk")
Dim attr As System.XML.XmlNode = doc.CreateNode(System.XML.XmlNodeType.Attribute, "genre", ns)
attr.Value = "novel"


\'Add the attribute to the document.
root.Attributes.SetNamedItem(attr)


\' Save the document to a file and auto-indent the output.
Dim stream As new System.Io.FileStream("d:\\aaa.xml", System.Io.FileMode.OpenOrCreate, System.Io.FileAccess.Write)
doc.Save(stream)
stream.Close()