NO TITLE

分類:[.NET]

お世話になります。
VB6.0の頃のように、アプリケーションの設定をファイルに保存したいと思って
います。
しかし、いろいろ調べてみるとVB.NETでは、INIファイルではなく、XMLファイル
を推奨しているみたいです。IniファイルのようにXMLファイルを使って保存、読
み込みができればと考えているのですが、そのようなサンプルは、どこかにない
でしょうか？
また、みなさんは、このあたりどのようにやられているのでしょうか？

> そのようなサンプルは、どこかにないでしょうか？

こんなxmlファイルに、
-----
<?xml version="1.0" encoding="Shift_JIS" standalone="yes" ?>
<setting>
<db>
<user>xxxx</user>
<pass>xxxx</pass>
<dbname>xxxx</dbname>
</db>
</setting>
-----

次のような関数を使えば、どうでしょ？

'機能： 設定情報の取得
'
'引数： mainKey - メインキーワード
' subKey - サブキーワード
' filePath - xmlファイルパス
'　　　
'戻値： 設定情報値
'
'説明： キーワードに該当する情報を取得する
'
'備考：
'
Public Function FncReadXmlString _
(ByVal mainKey As String, ByVal subKey As String, ByVal filePath As String) As String
Dim dsXml As DataSet

Try
dsXml = New DataSet("XML")
dsXml.ReadXml(filePath)
Return dsXml.Tables(mainKey).Rows(0).Item(subKey).ToString
Catch ex As Exception
Return ""
Finally
dsXml.Dispose()
End Try
End Function

'機能： 設定情報の保存
'
'引数： mainKey - メインキーワード
' subKey - サブキーワード
' data - 保存する情報
' filePath - xmlファイルパス
'　　　
'戻値： OK/NG
'
'説明： キーワードに該当する情報を保存する
'
'備考：
'
Public Function FncWriteXmlString _
(ByVal mainKey As String, ByVal subKey As String, ByVal data As String, ByVal filePath As String) As Boolean
Dim dsXml As DataSet

Try
dsXml = New DataSet("XML")
dsXml.ReadXml(filePath)
dsXml.Tables(mainKey).Rows(0).Item(subKey) = data
dsXml.WriteXml(filePath)
Return True
Catch ex As Exception
Return False
Finally
dsXml.Dispose()
End Try
End Function

> また、みなさんは、このあたりどのようにやられているのでしょうか？
ケースバイケースだと思います。

P.S
タイトルくらい書きましょう＾＾