VB.New 여러 그룹으로 LINQ 그룹을 반복하는 방법

Question

VB.Net에 여러 그룹이있는 IGroup을 반복하는 방법에 대해 여기 및 웹에서 아카이브를 살펴 보았습니다. C#에 대한 몇 가지 솔루션이 있지만 VB.Net로 변환하는 데 정말 어려움을 겪고 있습니다. 여기

내가 여기

dim merge_list As List(Of MergeData) 

을 그룹화하고 내 목록입니다 목록의 세 가지 속성에 의해 그룹 내 코드는 내가 그룹을 통해하지만 난 돈 때문에 루프를 시도

Dim groups = merge_list.GroupBy(Function(t) New With {Key t.GUID.Category, 
             Key t.GUID.FeatureType, 
             Key t.GUID.AssetType}) _ 
             .Where(Function(grp) grp.Count > 1) 

다음이다 그룹 목록의 항목에 대한 유형 (즉, 희미한 그룹으로 일부 유형)이있는 경우 해당 항목을 다루는 방법을 모르겠습니다. 여기

는

dim group '===note there is no "As SomeType" for group just 'Dim group'=== 
For Each group In groups 
    ' since group is not typed I cannot figure out how to work with it 

next 

누군가가 나를 VB.NET을 사용하여 여러 그룹과 IGoup을 반복하는 방법을 알려 주시기 바랍니다 수있는 그룹을 통해 루프 내 코드?

Answer 1

group을 For Each 외부에 선언 할 필요가 없습니다. 다음 코드를 체크 아웃 :

Dim source = Enumerable.Range(0, 1000) 

Dim groups = source.GroupBy(Function(x) New With { 
           Key .ByFive = x Mod 5, 
           Key .ByTen = x Mod 10, 
           Key .ByTwenty = x Mod 20}) 

For Each group In groups 
    Console.WriteLine("ByFive: {0}, ByTen: {1}, ByTwenty: {2}, Count: {3}", 
        group.Key.ByFive, group.Key.ByTen, group.Key.ByTen, group.Count()) 
Next 

그것은 잘 컴파일 및 인쇄 :

ByFive: 0, ByTen: 0, ByTwenty: 0, Count: 50 
ByFive: 1, ByTen: 1, ByTwenty: 1, Count: 50 
ByFive: 2, ByTen: 2, ByTwenty: 2, Count: 50 
ByFive: 3, ByTen: 3, ByTwenty: 3, Count: 50 
ByFive: 4, ByTen: 4, ByTwenty: 4, Count: 50 
ByFive: 0, ByTen: 5, ByTwenty: 5, Count: 50 
ByFive: 1, ByTen: 6, ByTwenty: 6, Count: 50 
ByFive: 2, ByTen: 7, ByTwenty: 7, Count: 50 
ByFive: 3, ByTen: 8, ByTwenty: 8, Count: 50 
ByFive: 4, ByTen: 9, ByTwenty: 9, Count: 50 
ByFive: 0, ByTen: 0, ByTwenty: 10, Count: 50 
ByFive: 1, ByTen: 1, ByTwenty: 11, Count: 50 
ByFive: 2, ByTen: 2, ByTwenty: 12, Count: 50 
ByFive: 3, ByTen: 3, ByTwenty: 13, Count: 50 
ByFive: 4, ByTen: 4, ByTwenty: 14, Count: 50 
ByFive: 0, ByTen: 5, ByTwenty: 15, Count: 50 
ByFive: 1, ByTen: 6, ByTwenty: 16, Count: 50 
ByFive: 2, ByTen: 7, ByTwenty: 17, Count: 50 
ByFive: 3, ByTen: 8, ByTwenty: 18, Count: 50 
ByFive: 4, ByTen: 9, ByTwenty: 19, Count: 50 

For Each 내부 group를 처리 할 때 당신은 심지어 IntelliSense를 얻을!

Answer 2

단순히 이런 각각에 대해 중첩을 사용 : -

For Each item In groups 
     Console.WriteLine(item.Key.GUID.Category) //You can access only `Keys` here 
     For Each inneritem In item 
       Console.WriteLine(inneritem.GUID.Category) 
       //so on (You can access all the properties here) 
     Next 
Next 

확인이 Fiddle.