VB 老旧版本维护系列---读取xml某个节点的值

读取xml某个节点的值

‘定义xml字符串内容地址

Dim xmlFileStr As String = ""

‘定义所需读取节点的名称

Dim readNodeName As String = ""

Function readXMl(ByVal xmlFileStr As String, ByVal readNodeName As String) As String

‘定义节点内容

Dim nodeValue As String = ""

Try

‘定义xml文档对象

Dim doc As New XmlDocument

‘加载xml内容

doc.LoadXml(xmlFileStr)

‘读取xml内容

Dim re As XmlNodeReader = New XmlNodeReader(doc)

Dim NodeName As String

‘循环查找节点

While re.Read

Select Case re.NodeType

Case XmlNodeType.Element

NodeName = re.Name

Case XmlNodeType.Text

If NodeName.Equals(readNodeName) Then

nodeValue = re.Value

End If

End Select

End While

Catch ex As Exception

MsgBox(ex.Message & vbCrLf & ex.StackTrace)

End Try

Return nodeValue

End Function