<?xml version="1.0" encoding="utf-8" ?>
<settings>
<setting key="keyName1" value="value1" />
<setting key="keyName2" value="value2222222222222222" />
</settings>
/////////////////////////////////////////////////////////////
Public Shared Function GetSettingkeyvalue(ByVal keyName As String) As String
Dim xmlDoc As New System.Xml.XmlDocument
'XMLファイルを読み込む
xmlDoc.Load("D:\Test\ADTest\ADTest\Setting.xml")
Dim xnode As XmlNode = xmlDoc.DocumentElement
For Each node As XmlNode In xnode.ChildNodes
If node.Attributes("key").Value = keyName Then
Return node.Attributes("value").Value
End If
Next
Return String.Empty
End Function
Dim xmlValue As String = GetSettingkeyvalue("keyName2")
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
