<?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")