16,717
社区成员
发帖
与我相关
我的任务
分享求一段VS中VB编写XML的示例代码!谢谢
以下是.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>这种结构是什么类型,是建立的树吗?为什么我在写的时候,它有时提示我没有根,这个时候应该做什么!谢谢!
<?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>这种结构是什么类型,是建立的树吗?为什么我在写的时候,它有时提示我没有根,这个时候应该做什么!谢谢!
...全文
请发表友善的回复…
发表回复
guokelei 2008-09-12
- 打赏
- 举报
好了结贴了!希望能给我介绍一本书看看!谢谢!我的邮箱是guokelei@163.com
guokelei 2008-09-10
- 打赏
- 举报
[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那里设置这个的吗?
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那里设置这个的吗?
Oo云 2008-09-10
- 打赏
- 举报
已知有一个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
<?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 2008-09-09
- 打赏
- 举报
如果用datatable或者dataset来做,是不是又要装入数据库呀!
破咖啡罐子 2008-09-09
- 打赏
- 举报
如果你只是想要最简单的方法，那可以通过datatable和dataset的WriteXml方法写XML文件。
dengzebo 2008-09-09
- 打赏
- 举报
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
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
破咖啡罐子 2008-09-09
- 打赏
- 举报
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")
<?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")
guokelei 2008-09-09
- 打赏
- 举报
如何加入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)
<?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 2008-09-09
- 打赏
- 举报
如何加入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)
<?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)
yanlongwuhui 2008-09-09
- 打赏
- 举报
参考如下：
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
