XML Show
1
<?xml version="1.0" encoding="gb2312"?>
2
<sys>
3
<set>
4
<ISPLAY intro="是否播放:Y否,N是">Y</ISPLAY>
5
<filePath intro="文件路径">c:\adFile\</filePath>
6
<date intro="日期">2007207</date>
7
<version intro="版本号">01</version>
8
</set>
9
<t>TestValue</t>
10
<tt>
11
<ttt>
12
<tttt>43</tttt>
13
</ttt>
14
</tt>
15
</sys>
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
8
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
9
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
10
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
11
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
12
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
13
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
14
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
15
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
1
Imports System.Xml
2
Public Class Form1
3![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
4
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5
Me.TextBox1.Text = Me.GetNodeValue("ISPLAY")
6
Me.TextBox2.Text = Me.GetNodeValue("tttt")
7
Me.TextBox3.Text = Me.GetSysNodeValue("ISPLAY")
8
End Sub
9![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
10
'方法一
11
Private Function GetNodeValue(ByVal node_name As String)
12
Dim xmlDoc1 As Xml.XmlDataDocument = New XmlDataDocument()
13
xmlDoc1.Load("sys.xml")
14
Dim node As XmlNode = xmlDoc1.SelectSingleNode("sys")
15
Dim value_node As XmlNode = node.SelectSingleNode(".//" & node_name)
16
If Not value_node Is Nothing Then '节点是否存在
17
GetNodeValue = value_node.InnerText
18
Else
19
GetNodeValue = "error"
20
End If
21![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
22
End Function
23![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
24
'方法二
25
Public Function GetSysNodeValue(ByVal nodeName As String)
26
Dim xmlDoc As New Xml.XmlDocument()
27
xmlDoc.Load("sys.xml")
28
Dim nodeList As Xml.XmlNodeList = xmlDoc.SelectSingleNode("sys").ChildNodes
29
If Not nodeList.Item(0).Name Is Nothing Then '判断结点是否存在
30
Return nodeList.Item(0).Item(nodeName).InnerText
31
Else
32
Return "error"
33
End If
34
End Function
35![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
36
End Class
37![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockStart.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
8
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
9
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
10
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
11
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
12
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
13
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
14
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
15
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
16
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
17
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
18
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
19
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
20
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
21
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
22
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
23
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
24
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
25
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
26
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
27
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
28
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
29
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
30
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
31
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
32
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
33
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
34
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
35
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
36
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockEnd.gif)
37
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)