C# と VB.NET の質問掲示板

■No85778 (asa さん) に返信

Dictionary(Of String, List(Of String)) を使って、"A" 〜 "D" を key に、"10" とか "1" を
value に追加していくという方法はいかがですか？

具体例（あくまで例）は以下の通りです。C# で書いて変換サービスのサイトで VB.NET に変換し
たので VB.NET の書き方としては変なところがあるかも。でも、期待通りの結果になることは確
認済みです。

Option Strict On

Module Module1

    Sub Main()

        ' �@ マスターデータをコピー
        Dim list As New Dictionary(Of String, List(Of String))()
        list.Add("A", New List(Of String)())
        list.Add("B", New List(Of String)())
        list.Add("C", New List(Of String)())
        list.Add("D", New List(Of String)())

        ' �A, �B 文字列を取得して追記（分かりやすくするため 2 行に分けた）
        Dim value As List(Of String) = list("B")
        value.Add("10")

        ' �C これを何回も繰り返し
        list("A").Add("1")
        list("B").Add("20")
        list("B").Add("10")
        list("C").Add("15")

        ' �D 結果を書き出し
        For Each kvp As KeyValuePair(Of String, List(Of String)) In list
            Dim record As String = kvp.Key + ","
            For Each s As String In kvp.Value
                record += s & Convert.ToString(",")
            Next
            record = record.TrimEnd(New Char() {","c})
            record += Environment.NewLine
            Console.Write(record)
        Next

        ' 結果は：
        ' A,1
        ' B,10,20,10
        ' C,15
        ' D

    End Sub

End Module

コメントの「結果は：」に書いたように foreach で取得して Add した順番にはなっていますが、
必ず Add した順番になるということは、少なくとも MSDN ライブラリの記述には見つけられませ
んでした。

なので、順序が重要ということであれば、SortedDictionary<TKey, TValue> を使うとか別の方法
を考えた方が良いかもしれません。

■No85778 (asa さん) に返信

処理は大きくわけて3つあります。

1.ファイルからデータを読み込む
2.データに値を追加する
3.ファイルにデータを書き込む

それぞれの処理は実行回数や実行のタイミングが異なりますので関数を分けましょう。
データは複数の関数からアクセスできるようにインスタンスフィールドに移動しましょう。


Private T_Datas As Dictionary(Of String, String)

Private Sub LoadData()
    T_Datas = New Dictionary(Of String, String)()

    For Each s As String In name_s'元データ読込変数
        T_Datas(s) = s
    Next
End Sub

private Sub log()
    T_Datas(val) = T_Datas(val) & "," & log.Text
End Sub

Private Sub SaveData()
    Dim today As String = Date.Now.ToString("yyyy年MM年dd日(ddd)_ログ")
    File.WriteAllLines("path" & today & ".csv", T_Datas.Values,enco)
End Sub


LoadData()はフォームが表示されたときのイベントや
読み込みボタンを用意してそれが押されたときのイベントで実行。

log()はボタンクリックイベントで実行。

SaveData()はフォームを閉じるときのイベントや
書き込みボタンを用意してそれが押されたときのイベントで実行。

という感じで。