「東雲忠太郎」の平凡な日常のできごと

2024.02.25

VB.NETのLinqで列1と列2と列3でグループ化して列4の平均値を求めるコード

カテゴリ： LINQ

Imports System

Imports System.Data

Imports System.Linq

Sub Main(args As String())

' サンプルのDataTableを作成します

Dim table As New DataTable()

table.Columns.Add("Column1", GetType(Integer))

table.Columns.Add("Column2", GetType(String))

table.Columns.Add("Column3", GetType(Double))

table.Columns.Add("Column4", GetType(Double))

' サンプルデータを追加します

table.Rows.Add(1, "A", 10.0, 100.0)

table.Rows.Add(1, "A", 20.0, 200.0)

table.Rows.Add(2, "B", 30.0, 300.0)

table.Rows.Add(2, "B", 40.0, 400.0)

' LINQを使用して列1、列2、列3でグループ化し、列4の平均値を求めます

Dim result = From row As DataRow In table.Rows

Group row By Key = New With

{

Key .Column1 = row.Field(Of Integer)("Column1"),

Key .Column2 = row.Field(Of String)("Column2"),

Key .Column3 = row.Field(Of Double)("Column3")

} Into Group

Select New With

{

Key .Column1,

Key .Column2,

Key .Column3,

.AvgColumn4 = Group.Average(Function(r) r.Field(Of Double)("Column4"))

}

' 結果を出力します

For Each item In result

Console.WriteLine($"Column1: {item.Column1}, Column2: {item.Column2}, Column3: {item.Column3}, AvgColumn4: {item.AvgColumn4}")

End Sub

End Module

お気に入りの記事を「いいね！」で応援しよう

Last updated 2024.02.25 07:21:44

[LINQ] カテゴリの最新記事

【毎日開催】

15記事にいいね！で1ポイント

10秒滞在

いいね! -- / --

次の日記を探す

おめでとうございます！
ミッションを達成しました。

※「ポイントを獲得する」ボタンを押すと広告が表示されます。

Mobilize your Site

スマートフォン版を閲覧 | PC版を閲覧

「東雲 忠太郎」の平凡な日常のできごと

VB.NETのLinqで列1と列2と列3でグループ化して列4の平均値を求めるコード

「東雲忠太郎」の平凡な日常のできごと