Dim obsts = "birne birne tomate birne apfel tomate birne apfel apfel" & _
        "toast".Split
      Dim groupedObst = (From obst In obsts Group By obst Into Count()
                         Order By Count, obst Select String.Format("({0}) {1}", _
                           Count, obst)).ToList

(Rechtschreibfehler urheberrechtlich geschützt)

Beitrag wurde zuletzt am 17.03.14 um 22:07:49 editiert.