VB.NET 同じIDを持つ数値の総和を求めたい

Question

VB.NETにおいて、たとえば、

1,10
1,15
2,5
3,15
4,30
4,55
4,25
5,20
5,10

といった具合のcsvファイルがあるとき、カンマの左側をID、右側をIDの持つ数値とします。

このときにIDが等しいものの総和を求めたいです。

上記だと

sum1 = 25
sum2 = 5
sum3 = 15
sum4 = 110
sum5 = 30

となります。

VB上ではデータグリッドビューで、
1列目=ID、2列目=数値、3列目=和
として出力させたいです。

現状だとIDの種類の数だけ以下のようなプログラムを用意しています。
・If文で IDが等しいセルの行数を取り出す
・ループでsum = sum + i行2列目.valueで加算する
・3列目に1つ1つ値を出力する

これだとIDが10個になると同じ事を10回書かないといけなくて不便です。

いい方法はないのでしょうか？

Answer 1

まずは、条件を決めてください。
簡単な処では、
IDの範囲：１～５でよければ、加算用の値を入れる配列を５個＋１個用意します。
処理系が、配列を５個確保した場合に、要素を０～４でアクセスするのかどうか
によります。
IDの値を、要素のへの指定番号として、配列の要素へ、値を加算します。
配列の範囲が不定であり、配列の要素数の上限以内であれば、
ReDim などで対応可能ですが、何事にも、便利な面があれば、不利な面もある
と云う事も、想定してください。

Comments

[_LAGRANGE_]

アドレスとしてIDを利用し、総和を出してからではなく一回ずつ指定セルへ足していくということであっていますか？思いつきませんでした。ありがとうございます。

[daive]

>指定セル
予め用意しておいた、数値配列ですね。
EXCELなどの表は、２次元の配列と考えます。
　シートの串刺しは、３次元になります。
データベースの、データも２次元の配列と考えられます。
’
StreamReader で、一括読込してしまう場合は、
どのみち、分割処理が必要になってしまいますので、
Tak1waさんの方法の様に、するのもありで、
CSVを、ADO.NETから、ODBC/OLE-DBで読込するのであれば、
クエリも使えなくはありません。
⇒これらは、ユーザーインターフェース（見た目＆操作部分）と、
　機能（ロジック）の分離を、正しく行っていれば、
　機能の部分を書換える事で、対応出来たりします。

Answer 2

こんにちは。

解決済みみたいですが、Linqでグルーピングして出力するのが良いと思います。

Module Module1

    Sub Main()

        'CSV Data
        Dim list = New List(Of Item)
        list.Add(New Item() With {.Id = 1, .Num = 10})
        list.Add(New Item() With {.Id = 1, .Num = 15})
        list.Add(New Item() With {.Id = 2, .Num = 5})
        list.Add(New Item() With {.Id = 3, .Num = 15})
        list.Add(New Item() With {.Id = 4, .Num = 30})
        list.Add(New Item() With {.Id = 4, .Num = 55})
        list.Add(New Item() With {.Id = 4, .Num = 25})
        list.Add(New Item() With {.Id = 5, .Num = 20})
        list.Add(New Item() With {.Id = 5, .Num = 10})

        'Calc
        Dim result = list.GroupBy(Function(a) a.Id).
                          Select(Function(y) New With
                                            {
                                                .Id = y.Key,
                                                .Sum = y.Sum(Function(z) z.Num)
                                            })

    End Sub

End Module

Class Item
    Property Id As Integer
    Property Num As Integer
End Class

Comments

[_LAGRANGE_]

ありがとうございます。
Linqは初めて聞いた用語なのでもう少し調べてからやってみます。