VB.NETでCSVファイルを1行ずつ取り込んだ後、項目(複数)の重複があればまとめたい

Question

VB.NETでCSVファイルを1行ずつ取り込み、SQLの更新を行うプログラムを作成しております。
質問ですが、行ごとで複数項目の重複があった場合に、1行にまとめて更新を行うにはどのようにすればよいでしょうか。

例ですが、CSVファイルの中身は以下の通りです。

"1111","1","NO1","0001","0001","","","","101","","","10","","","","","","","","","20200801","",""
"2222","2","NO1","0001","0001","","","","101","","","14","","","","","","","","","20200802","",""
"3333","3","NO1","0001","0002","","","","101","","","12","","","","","","","","","20200802","",""
"4444","4","NO1","0002","0002","","","","101","","","15","","","","","","","","","20200802","",""
"5555","5","NO1","0002","0001","","","","101","","","11","","","","","","","","","20200802","",""

4項目目(1~3行目が”0001”の箇所)、5項目目(3,4行目が”0002”の箇所)、9項目目("101"の箇所)のすべてが重複する行があった場合、1行にまとめて更新を行いたいです。
尚、4,5項目目がキーでレコードの特定を行い、更新するのは12項目目("10""14""12""15""11"の箇所)です。
まとめる場合は、12項目目の値を加算して更新する想定です。

上記CSVファイルの場合だと、1行目と2行目は重複行なので、10+14=24で更新を行います。
3行目は重複していないので、12で更新を行います。

1項目のみの重複の場合でコードを作成しましたが、こちらのコードをもとに複数項目で同様に行うと
5行目がすべて重複していないのですが、他の行との組み合わせで重複しているので重複扱いになってしまいます。

Dim ExDic As New Dictionary(Of String, ExInformation)
Dim ImpList As New ExInformation

If ExDic.ContainsKey(WkKey) Then
                                ExDic(WkKey) = ImpList
                            Else
                                ExDic.Add(WkKey, ImpList)
                            End If

※ExInformationは省略しますが、CSVファイルの各項目を格納しています。
WkKeyは格納されている項目の、重複チェックしたい項目が入っています。

既にSQLの更新等のプログラムは作成済みなので、重複行がまとまって
12項目目の値が加算される状態になれば完成となります。

追加修正等必要な場合はおっしゃってください。
断片的かつ説明下手で申し訳ありませんが、回答お願いします。

Answer 1

既にSQLの更新等のプログラムは作成済み

という事ですが、一時テーブルに一旦そのCSVを登録し、重複を除外する条件の更新用SQLに変更する方法が良いと思います。

何故なら、CSVの件数が大量にある場合にメモリを圧迫する事と、重複の判断などの集計が得意なSQLで行った方が効率的である点が挙げられます。

Answer 2

4項目目(1~3行目が”0001”の箇所)、5項目目(3,4行目が”0002”の箇所)、9項目目("101"の箇所)
これが文字列で桁数が決まっているのであれば、連結してDictionaryのキーにすればどうですか？

追記
例

    Class TestData
        Public Property Index As Integer
        Public Property Qty As Integer
    End Class

        Dim dic As New Dictionary(Of String, TestData)
        For i = 0 To 10
            dic.Add($"{i:0000}", New TestData With {.Index = i, .Qty = i * 10})
        Next
        dic("0001").Qty += 10000

Comments

[gzt_n]

コメントありがとうございます。
桁数は決まっているので、連結したところまとめるところまではうまくいきました！
ただ質問にも書いたコードが1行丸ごとまとめるような書き方のせいか、12項目目の加算がうまくいきません。
こちらの解決方法も、よろしければ教えていただけないでしょうか。

[YAmaGNZ]

重複チェックのみが出来ていないのではなかったのですか？
キーが存在するなら、Dictionaryの中身に今回処理する行の値を足せばいいだけなのではないですか？

[gzt_n]

すみません、記載に不備があったかもしれません。
重複と加算ができれば完成になります。
キーからDictionaryを1行そのままであれば持ってこられたのですが、中身を足すやり方が調べてもわからなくて……
記載したIf文の中に
ImpList.Qty +=
の形で書ければと思うのですが(ImpList.Qtyは、チェックしている行数の12項目目です)、
右辺がExDic(WkKey4, ImpList.ArvQty)だと引数が多いですし、どのように書けばよろしいのでしょうか。

[YAmaGNZ]

ExDic(WkKey4)はExInformation型ですよね？
そのQtyに足せばいいだけでは？