LINQで複数をselectしたい

Question

vb2017 Community版を使っています。
LINQを使ってselectしています。
複数selectする方法を知りたいです。

Dim sArr() As String = sSelData().ToArray().Where(Function(x) x.Name <> String.Empty).OrderBy(Function(x) x.Name).Select(Function(x) x.Name).Distinct().ToArray()

sSelDataの戻り値
    '型
    Public Class Data
        Public Property Code As String
        Public Property Name As String
        Public Property Count As Integer
    End Class

    dim list As List(Of Data)

Select(Function(x) x.Name)を複数selectするようにしたいです。

よろしくお願いします。

Comments

[退会済みユーザー]

現状はどういう結果になるのですか？ どこが問題なのですか？

[YAmaGNZ]

このような質問は、
「現状このようなデータで実行してこういう結果が返ってくるのですが、欲しい結果はこういうものです。」
と入力データ、現状の出力データ、希望の出力データを示すようにしてください。

[chintao1224]

ほしいデータ、入力データ、出力データです。

欲しいデータ
nameとcountのデータで、配列でもクラスでもどちらでもよい（できればクラス型の配列がよい）
入力データ
data型のクラスのリスト（上記）
現状の出力データ
nameの配列

よろしくお願いします。

[YAmaGNZ]

言葉ではなく、私が回答で書いたように具体的なデータを示すようにしてください。

Answer 1

もしかして、リストから同じ名前のものを纏めて、Countが合計されたものが欲しいのですか？

Dim sSelData As New List(Of Data)

sSelData.Add(New Data With {.Code = 1, .Name = "AAA", .Count = 10})
sSelData.Add(New Data With {.Code = 1, .Name = "AAA", .Count = 25})
sSelData.Add(New Data With {.Code = 2, .Name = "BBB", .Count = 100})
sSelData.Add(New Data With {.Code = 3, .Name = "CCC", .Count = 123})
sSelData.Add(New Data With {.Code = 2, .Name = "BBB", .Count = 30})
sSelData.Add(New Data With {.Code = 4, .Name = "DDD", .Count = 150})

というデータがあった時に
Code = 1 : Name = "AAA" : Count = 35
Code = 2 : Name = "BBB" : Count = 130
Code = 3 : Name = "CCC" : Count = 123
Code = 4 : Name = "DDD" : Count = 150
というデータが欲しいということなのであれば
GroupByしてSumで合算すればよろしいかと思います。

Answer 2

Linqではいつもクエリ構文を使っているので、メソッド構文については勉強不足ですが、
クエリ構文であれば、複数メンバのSelectは以下のように記述します。

Dim qry = From x In sSelData() _
          Where x.Name <> String.Empty _
          Order By x.Name _
          Select x.Name, x.Count

For Each q In qry
    'Name, Countのメンバ名はそのまま使えます
    Console.WriteLine("{0}, {1}", q.Name, q.Count.ToString)
Next

Answer 3

データの内容がわからんので何ともですが、Distinctしてるから重複排除されてるだけ、というオチでは。
Distinctを取り除けば良いんじゃないですか。

Comments

[YAmaGNZ]

Distinctがあっても、重複しているデータしかない場合以外は複数取得できるはずです。
入力データがわからんので、あれですが

[chintao1224]

もともと重複が無いデータなのでdistinct外しても良いのですが、念のためdistinctしています。selectでnameとcountを指定したいのですが、どうすれば良いのか分かりません。

[gentaro]

Selectを取っ払うか、Select内で匿名オブジェクトをnewしてそのまま返せばいいんでは。

[YAmaGNZ]

回答しましたが、gentaroさんの言うことが正しい気がします。

[chintao1224]

Select(Function(x) New{x.Name, x.Count})のように書いてみたのですが、エラーが出ました。「オーバーロードの解決に失敗しました」と出ます。

[gentaro]

「エラーが出ました」と言われても、そりゃ書き方がまずいだけでしょう。
Selectで匿名オブジェクトを返す方法ぐらいは自分で調べて下さい。（Withが抜けてるだけだと思うけど）
つか「Select取っ払う」方が希望してる結果に近いと思うんだけど、試してないんですかね。

[chintao1224]

いろいろ調べて次のように変更してみましたが、型変換エラーになります。

Dim lst As List(Of Data) = sSelData().Where(Function(x) x.Name <> String.Empty).OrderBy(Function(x) x.Name).Select(Function(x) New Data With {.Name = x.Name, .Count = x.Count}).Distinct

ちなみにsSelDataの戻り値はList(Of Data)です。
どうにか型変換エラーを解消したいです。
よろしくお願いします。

[gentaro]

回答してる内容をちゃんと読んでないか無視されてるようなので、これ以上は知りません。