请教VB.NET xml文件的读写。
<A>
<A1>aaa</A1>
<A2>bbb</A2>
<B>
<B1>ccc</B1>
<B2>ddd</B2>
</B>
<A3>eee</A3>
</A>
编写以上xml文件，保存在c:\xml\myxml.xml
再读取<B2>和<A2>及<A3>元素的内容。
先谢过。
问题点数：50、回复次数：4Top
1 楼lixilin（xilin）回复于 2005-06-03 16:41:48 得分 20
给你一个我自己写的类代码：
Public Class CSysXML
Dim mXmlDoc As New System.Xml.XmlDocument
Public XmlFile As String
Public Sub New(ByVal File As String)
MyClass.XmlFile = File
MyClass.mXmlDoc.Load(MyClass.XmlFile) '加载配置文件
End Sub
'功能：取得元素值
'参数：node--节点 element--元素名
'返回：元素值 字符型
' $--表示出错误
Public Function GetElement(ByVal node As String, ByVal element As String) As String
On Error GoTo Err
Dim mXmlNode As System.Xml.XmlNode = mXmlDoc.SelectSingleNode("//" + node)
'读数据
Dim xmlNode As System.Xml.XmlNode = mXmlNode.SelectSingleNode(element)
Return xmlNode.InnerText.ToString
Err:
Return "$"
End Function
'
'功能：保存元素值
'参数：node--节点名称 element--元素名 val--值
'返回：True--保存成功 False--保存失败
Public Function SaveElement(ByVal node As String, ByVal element As String, ByVal val As String) As Boolean
On Error GoTo err
Dim mXmlNode As System.Xml.XmlNode = mXmlDoc.SelectSingleNode("//" + node)
Dim xmlNodeNew As System.Xml.XmlNode
xmlNodeNew = mXmlNode.SelectSingleNode(element)
xmlNodeNew.InnerText = val
mXmlDoc.Save(MyClass.XmlFile)
Return True
err:
Return False
End Function
End Class
Top
2 楼miaojx（I'll be back）回复于 2005-06-03 16:47:11 得分 20
<XML ID="oMetaData">
<METADATA>
<A1>aaa</A>
<A2>bbb</A2>
<B>
<B1>ccc</B1>
<B2>ddd</B2>
</B>
</A3>eee</A3>
</METADATA>
</XML>
讀var oNode1 = oMetaData.XMLDocument.selectSingleNode("METADATA/B/B2");
alert(oNode1.text);
var oNode2 = oMetaData.XMLDocument.selectSingleNode("METADATA/A2");
alert(oNode1.text);
var oNode3 = oMetaData.XMLDocument.selectSingleNode("METADATA/A3");
alert(oNode1.text);
Top
3 楼wgsnet（自由奔腾）回复于 2005-06-03 21:18:04 得分 5
楼上的正是也！Top
4 楼wqdzgh（红螃蟹）回复于 2005-06-04 08:13:53 得分 5
还应该加上
<?xml version="1.0" encoding="gb2312" ?>吧Top
