XML - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → XML

共有2669人关注过本帖树形打印复制链接主题：XML

bagabaga

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：138 积分：1325 威望：0 精华：0 注册：2014/3/10 19:43:00

XML

Post By：2014/7/30 21:59: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 writer As New System.XML.XmlTextWriter = new.System.XML.XmlTextWriter("d:\桌面\data.xml",Nothing)

writer.Formatting = Formatting.Indented

doc.Save(writer)

最后写入怎么做？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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()

下一主题 >> << 上一主题

主题：XML