生きてます。（生存戦略報告）
Advent Calenderネタを書いたのがちょうど一年前。筆無精しまくっててだいぶご無沙汰になってしまいました。
今回はDictionary型を使ってConfigっぽいものを手軽に扱ってみようというネタです。
設定ファイルを扱う方法は、.configだったり、.iniだったり、レジストリだったり、いろいろ方法ありますが、とりあえずDictionary型を使って読み書きしてみます。
Dictionary型って、いわゆるハッシュテーブルとか連想配列って呼ばれるやつですね。
＃えっと、今まで（VB.NETを触りだして10年以上）こんな型があるなんて知らなかったことを正直に白状しておきます。
たとえば、こんな感じの設定ファイル（config.txt）があったとして
data=abc
pos_x=120
pos_y=240
その設定ファイルを読み込むには、たとえばこんな読み込み用関数を作っておいて
Dim config As New Dictionary(Of String, String)
Dim configDelimiter As Char = "="c
Function ReadConfig(filename As String) As Dictionary(Of String, String)
Dim configLines As String() = IO.File.ReadAllLines(filename)
Dim dict As New Dictionary(Of String, String)
For Each configLine As String In configLines
dict.Add(configLine.Split(configDelimiter)(0).Trim(" "c), configLine.Split(configDelimiter)(1).Trim(" "c))
Next
Return dict
End Function
読み込んであげると楽です
config = ReadConfig("Config.txt")
読み込んだデータは、For Each で取り出すことも出来ます。取り出されたのはKeyValuePair型になるっぽい。
For Each kvp As KeyValuePair(Of String, String) In config
Console.WriteLine("{0} - {1}", kvp.Key, kvp.Value)
Next
値の追加とか
config.Add("Today", Today.ToShortDateString)
config.Add("Now", Now.ToString)
Keyが存在しているのにValueをAddしようとすると、例外を吐くので、Addする前はContainsKey(keyname)で、存在チェックをしてから更新したり追加したりするといいと思います。
If config.ContainsKey("Now") Then
config("Now") = Now.ToString
Else
config.Add("Now", Now.ToString)
End If値の取得は config("pos_x") みたいな感じで取得可能です。あ、今回の例では New Dictionary(of String,String) で初期化しているので、必要あればParseしたりしてください。
また、逆に設定ファイルへの書き込みは、こんな関数を作っておいて
Sub WriteConfig(filename As String, config As Dictionary(Of String, String))
Dim writeData As String = ""
For Each kvp As KeyValuePair(Of String, String) In config
writeData &= kvp.Key & configDelimiter & kvp.Value & vbCrLf
Next
IO.File.WriteAllText(filename, writeData)
End Sub
書き込んであげるといいと思います。
WriteConfig("OutConfig.txt", config)
自分自身のアセンブリをSHA256とかでハッシュ取って保存しておき、実行時に検証する、っていうアセンブリの簡単な改ざんチェックとか、いろいろ用法あると思います。（今回のDictionary型じゃなくて.configとかでもできそうだけど）
例によって（？）上記サンプルでは例外対策とか、読み込み時にデリミタ文字が複数出てきたときの対処とか、全くしてないので必要あればTryしてCatchしてFinallyしたりしてみてください。
