求一段VS中VB编写XML的示例代码!谢谢

[guokelei]

以下是.net自动生成的XML文件,
<?xml version="1.0"?>
<doc>
<assembly>
<name>
维护工具
</name>
</assembly>
<members>
<member name="P:维护工具.My.Resources.Resources.ResourceManager">
<summary>
返回此类使用的缓存 ResourceManager 实例。
</summary>
</member><member name="P:维护工具.My.Resources.Resources.Culture">
<summary>
为使用此强类型资源类的所有资源查找
重写当前线程的 CurrentUICulture 属性。
</summary>
</member><member name="T:维护工具.My.Resources.Resources">
<summary>
强类型资源类，用于查找本地化字符串等。
</summary>
</member>
</members>
</doc>

请给一段能写出类似XML的代码,讲解一下XmlElement,XMLNode,XMLwriter,XMLDocument它们之间的关系和区别,应该怎样合适地创建它们,还有XMLWritersetting的设置,或者请介绍一本介绍这方面的书和资料,还有一个疑问就是上面代码中的<doc></doc>,<member></member>这种结构是什么类型,是建立的树吗?为什么我在写的时候,它有时提示我没有根,这个时候应该做什么!谢谢!

[yanlongwuhui]

参考如下：

Dim xdNew As New XmlDocument
        Dim xnTemplet As XmlNode
        Dim xaObject As XmlAttribute
        Dim xnAssembly As XmlNode
        Dim xnMembers As XmlNode
        Dim xnMember As XmlNode
        xdNew.LoadXml(" <doc> </doc>")
        With xdNew
            xnTemplet = .CreateNode("element", "assembly", "")
            xnAssembly = .DocumentElement.AppendChild(xnTemplet)

            xnTemplet = .CreateNode("element", "name", "")
            xnTemplet.InnerText = "维护工具"
            xnAssembly.AppendChild(xnTemplet)

            xnTemplet = .CreateNode("element", "members", "")
            xnMembers = .DocumentElement.AppendChild(xnTemplet)

           
            xnTemplet = .CreateNode("element", "member", "")
            xaObject = .CreateAttribute("name")
            xaObject.Value = "P:维护工具.My.Resources.Resources.ResourceManager"
            xnTemplet.Attributes.Append(xaObject)
            xnMember = xnMembers.AppendChild(xnTemplet)
            xnTemplet = .CreateNode("element", "summary", "")
            xnTemplet.InnerText = "返回此类使用的缓存 ResourceManager 实例。"
            xnMember.AppendChild(xnTemplet)

            xnTemplet = .CreateNode("element", "member", "")
            xaObject = .CreateAttribute("name")
            xaObject.Value = "P:维护工具.My.Resources.Resources.Culture"
            xnTemplet.Attributes.Append(xaObject)
            xnMember = xnMembers.AppendChild(xnTemplet)
            xnTemplet = .CreateNode("element", "summary", "")
            xnTemplet.InnerText = "为使用此强类型资源类的所有资源查找 重写当前线程的 CurrentUICulture 属性。"
            xnMember.AppendChild(xnTemplet)

            xnTemplet = .CreateNode("element", "member", "")
            xaObject = .CreateAttribute("name")
            xaObject.Value = "T:维护工具.My.Resources.Resources"
            xnTemplet.Attributes.Append(xaObject)
            xnMember = xnMembers.AppendChild(xnTemplet)
            xnTemplet = .CreateNode("element", "summary", "")
            xnTemplet.InnerText = "强类型资源类，用于查找本地化字符串等。"
            xnMember.AppendChild(xnTemplet)
            '  ...... 
            .Save("c:\1.xml")
        End With

[guokelei]

如何加入XML版本声明
<?xml version="1.0"?>呢
每个XML文件里面的第一句话都是这个哟!
Dim xnMembers As XmlNode
Dim xnMember As XmlNode
xdNew.LoadXml(" <doc> </doc>")

With xdNew
xdNew.CreateXmlDeclaration(("1.0"), Nothing, Nothing)'这里加了这个为什么没有写入XML,而且这个1.0是写死的,怎么动态取得呢
xnTemplet = .CreateNode("element", "assembly", "")
xnAssembly = .DocumentElement.AppendChild(xnTemplet)

[guokelei]

如何加入XML版本声明
<?xml version="1.0"?>呢
每个XML文件里面的第一句话都是这个哟!
Dim xnMembers As XmlNode
Dim xnMember As XmlNode
xdNew.LoadXml(" <doc> </doc>")

With xdNew
xdNew.CreateXmlDeclaration(("1.0"), Nothing, Nothing)'这里加了这个为什么没有写入XML,而且这个1.0是写死的,怎么动态取得呢
xnTemplet = .CreateNode("element", "assembly", "")
xnAssembly = .DocumentElement.AppendChild(xnTemplet)

[破咖啡罐子]

datatable.WriteXml 方法的话，
<?xml version="1.0"?> 是系统输出自带的，XMLNODE方法不知道。
datatable可以和数据库不建立关系。
Dim dta as new datatable
dta.columns.add("a")
dta.columns.add("b")
dta.tablename="dta"
Dim drnewrow as datarow = dta.newrow
drnewrow("a")="a1"
drnewrow("b")="b1"
dta.rows.add(drnewrow)
dta.writexml("c:\setting.xml")

[dengzebo]

Imports System
Imports System.IO
Imports System.Xml

public class Sample

public shared sub Main()

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

Dim root as XmlElement = doc.DocumentElement

' Add a new attribute.
root.SetAttribute("genre", "urn:samples", "novel")

Console.WriteLine("Display the modified XML...")
Dim writer as XmlTextWriter = new XmlTextWriter(Console.Out)
writer.Formatting = Formatting.Indented
root.WriteTo(writer)

end sub
end class



Imports System
Imports System.IO
Imports System.Xml

public class Sample

public shared sub Main()

Dim doc as XmlDocument = new XmlDocument()
doc.LoadXml("<book genre='novel' ISBN='1-861001-57-5'>" & _
"<title>Pride And Prejudice</title>" & _
"</book>")

Dim root as XmlElement = doc.DocumentElement

' Create a new element.
Dim elem as XmlElement = doc.CreateElement("price")
elem.InnerText="19.95"

' Display the element's owner document. Note
' that although the element has not been inserted
' into the document, it still has an owner document.
Console.WriteLine(elem.OwnerDocument.OuterXml)

'Add the element into the document.
root.AppendChild(elem)

Console.WriteLine("Display the modified XML...")
Console.WriteLine(doc.InnerXml)

end sub
end class

[破咖啡罐子]

如果你只是想要最简单的方法，那可以通过datatable和dataset的WriteXml方法写XML文件。

[guokelei]

如果用datatable或者dataset来做,是不是又要装入数据库呀!

[Oo云]

已知有一个XML文件（bookstore.xml）如下：
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
</bookstore>

1、往<bookstore>节点中插入一个<book>节点：
Imports System.Xml
Dim xmlDoc As New XmlDocument()
xmlDoc.Load("bookstore.xml")

Dim root As XmlNode = xmlDoc.SelectSingleNode("bookstore") '查找<bookstore>
Dim xe1 As XmlElement = xmlDoc.CreateElement("book") '创建一个<book>节点
xe1.SetAttribute("genre", "李赞红") '设置该节点genre属性
xe1.SetAttribute("ISBN", "2-3631-4") '设置该节点ISBN属性
Dim xesub1 As XmlElement = xmlDoc.CreateElement("title")
xesub1.InnerText = "CS从入门到精通" '设置文本节点
xe1.AppendChild(xesub1) '添加到<book>节点中
Dim xesub2 As XmlElement = xmlDoc.CreateElement("author")

xesub2.InnerText = "候捷"
xe1.AppendChild(xesub2)
Dim xesub3 As XmlElement = xmlDoc.CreateElement("price")
xesub3.InnerText = "58.3"
xe1.AppendChild(xesub3)
root.AppendChild(xe1) '添加到<bookstore>节点中
xmlDoc.Save("bookstore.xml")
//===============================================
结果为：
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>

<book genre="李赞红" ISBN="2-3631-4">
<title>CS从入门到精通</title>
<author>候捷</author>
<price>58.3</price>
</book>
</bookstore>

2、修改节点：将genre属性值为“李赞红“的节点的genre值改为“update李赞红”，将该节点的子节点<author>的文本修改为“亚胜”。
Dim nodeList As XmlNodeList = xmlDoc.SelectSingleNode("bookstore").ChildNodes '获取bookstore节点的所有子节点
Dim xn As XmlNode

For Each xn In nodeList '遍历所有子节点
Dim xe As XmlElement = CType(xn, XmlElement) '将子节点类型转换为XmlElement类型
If xe.GetAttribute("genre") = "李赞红" Then '如果genre属性值为“李赞红”
xe.SetAttribute("genre", "update李赞红") '则修改该属性为“update李赞红”
Dim nls As XmlNodeList = xe.ChildNodes '继续获取xe子节点的所有子节点
Dim xn1 As XmlNode
For Each xn1 In nls '遍历

Dim xe2 As XmlElement = CType(xn1, XmlElement) '转换类型
If xe2.Name = "author" Then '如果找到
xe2.InnerText = "亚胜" '则修改
Exit ForEach '找到退出来就可以了
End If
Next xn1
Exit ForEach
End If
Next xn
xmlDoc.Save("bookstore.xml") '保存。
//==================================================
最后结果为：
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
<book genre="update李赞红" ISBN="2-3631-4">

<title>CS从入门到精通</title>
<author>亚胜</author>
<price>58.3</price>
</book>
</bookstore>

3、删除 <book genre="fantasy" ISBN="2-3631-4">节点的genre属性，删除 <book genre="update李赞红" ISBN="2-3631-4">节点。
Dim xnl As XmlNodeList = xmlDoc.SelectSingleNode("bookstore").ChildNodes
Dim xn As XmlNode
For Each xn In xnl
Dim xe As XmlElement = CType(xn, XmlElement)
If xe.GetAttribute("genre") = "fantasy" Then
xe.RemoveAttribute("genre") '删除genre属性
Else
If xe.GetAttribute("genre") = "update李赞红" Then
xe.RemoveAll() '删除该节点的全部内容
End If
End If
Next xn
xmlDoc.Save("bookstore.xml")
//===========================================
最后结果为：
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
<book>
</book>
</bookstore>

4、显示所有数据。
Dim xn As XmlNode = xmlDoc.SelectSingleNode("bookstore")
Dim xnl As XmlNodeList = xn.ChildNodes
Dim xnf As XmlNode
For Each xnf In xnl
Dim xe As XmlElement = CType(xnf, XmlElement)
Console.WriteLine(xe.GetAttribute("genre")) '显示属性值
Console.WriteLine(xe.GetAttribute("ISBN"))

Dim xnf1 As XmlNodeList = xe.ChildNodes
Dim xn2 As XmlNode
For Each xn2 In xnf1
Console.WriteLine(xn2.InnerText) '显示子节点点文本
Next xn2
Next xnf

[guokelei]

[Quote=引用 6 楼 limeng0513 的回复:]
datatable.WriteXml 方法的话，
<?xml version="1.0"?> 是系统输出自带的，XMLNODE方法不知道。
datatable可以和数据库不建立关系。
Dim dta as new datatable
dta.columns.add("a")
dta.columns.add("b")
dta.tablename="dta"
Dim drnewrow as datarow = dta.newrow
drnewrow("a")="a1"
drnewrow("b")="b1"
dta.rows.add(drnewrow)
dta.writexml("c:\setting.xml")
[/Quote]
系统输出自带的?那为什么我的用3楼的那个代码没有这个呢!是在VS那里设置这个的吗?

[guokelei]

好了结贴了!希望能给我介绍一本书看看!谢谢!我的邮箱是[e-mail]