public sub new(byval sFrugt as string) frugtNavn = sFrugt end sub end class
Og efterfølgende har en liste af forskellige frugter. dim lFrugt as new list(of Frugt) lFrugt.add(new Frugt("Banan")) lFrugt.add(new Frugt("Æble")) lFrugt.add(new Frugt("Kiwi")) lFrugt.add(new Frugt("Banan")) lFrugt.add(new Frugt("Banan")) lFrugt.add(new Frugt("Æble"))
På denne liste af Frugt vil jeg gerne anvende noget linq, således jeg får et output a la dette:
Public Sub ListByFrugtLINQ(ByVal frugt As IEnumerable(Of Frugt)) Dim result = frugt.GroupBy(Function(w) w.frugtNavn).OrderByDescending(Function(w) w.ToList().Count).ThenBy(Function(w) w.Key).[Select](Function(w) w) For Each item In result Me.TextBox1.Text += item.Key.ToString & " " & item.ToList.Count.ToString & vbCrLf Next End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.