操作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 stream As new System.Io.FileStream("d:\aaa.xml", System.Io.FileMode.OpenOrCreate, System.Io.FileAccess.Write)
doc.Save(stream)
stream.Close()
https://msdn.microsoft.com/zh-cn/library/system.xml.xmldocument_members%28v=vs.80%29.aspx
加好友 
发短信
Post By：2016/1/26 22:28:00 [显示全部帖子]
