'Liste mit Angaben
   Dim frucht As New Collections.Generic.List(Of String)
 
   For i As Integer = 0 To 9
       frucht.Add("Gurken")
       frucht.Add("Gurken")
       frucht.Add("Gurken")
       frucht.Add("Birnen")
       frucht.Add("Birnen")
       frucht.Add("Äpfel")
   Next i
 
   'Aufbereitung der Liste als sortierte Dictionary
   Dim dic As New Collections.Generic.SortedDictionary(Of String, Integer)
   For i As Integer = 0 To frucht.Count - 1
       If dic.ContainsKey(frucht(i)) Then
          dic(frucht(i)) += 1
       Else
          dic.Add(frucht(i), 1)
       End If
   Next i
 
   'Aufbereitung der Häufigkeiten als Liste
   Dim fruchtfreq As New Collections.Generic.List(Of String)
   For Each key As String In dic.Keys
       fruchtfreq.Add("(" & CStr(dic(key)) & ") " & key)
   Next key
 
   'Datenquelle der Listbox belegen
   lbo.DataSource = fruchtfreq

'zusätzlich
fruchtfreq.Sort(AddressOf CompareStringDescending)

    Private Function CompareStringDescending _
       (ByVal a As String, b As String) As Integer
 
        If a > b Then Return -1
        If a < b Then Return 1
        Return 0
    End Function

Dim frucht As New Collections.Generic.List(Of String)
frucht.AddRange(tbo.Lines)

'zusätzlich einen Filter setzen
 
Dim dic As New Collections.Generic.SortedDictionary(Of String, Integer)
For i As Integer = 0 To frucht.Count - 1
    If Not frucht(i) = String.Empty Then
        If dic.ContainsKey(frucht(i)) Then
           dic(frucht(i)) += 1
        Else
           dic.Add(frucht(i), 1)
        End If
    End If
Next i

      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.

     'Zeilen aus der Listbox 
Dim lines() As String = _
    ("birne birne tomate birne apfel tomate birne apfel apfel toast " & _
     vbCrLf & "      " & vbCrLf & _
     "birne birne tomate birne apfel tomate birne apfel apfel toast " & _
     vbCrLf & vbCrLf & _
     "birne birne tomate birne apfel tomate birne apfel apfel toast ").Split
 
 
Dim FilteredAndGroupedEntries As List(Of String) = _
     (From entry As String In lines _
      Where Not String.IsNullOrWhiteSpace(entry) _
      Group By entry Into Count() _
      Order By Count, entry _
      Select String.Format("({0}) {1}", NumberFormat(Count, 3), entry)).ToList

Private Function NumberFormat(ByVal number As Integer, _
        byval leng As Integer) As String
 
        Dim ret As String = CStr(number)
        Dim adds As Integer = leng - ret.Length
        If adds > 0 Then ret = StrDup(adds, " "c) & ret
        Return ret
End Function

      Dim lines() As String = _
    ("birne birne tomate birne apfel tomate birne apfel apfel toast " & _
     vbCrLf & "      " & vbCrLf & _
     "birne birne tomate birne apfel tomate birne apfel apfel toast " & _
     vbCrLf & vbCrLf & _
     "birne birne tomate birne apfel tomate birne apfel apfel toast ").Split
 
 
      Dim FilteredAndGroupedEntries As List(Of String) = _
           (From entry As String In lines _
            Where Not String.IsNullOrWhiteSpace(entry) _
            Group By entry Into Count() _
            Order By Count, entry _
            Select String.Format("({0,3}) {1}", Count, entry)).ToList

(Rechtschreibfehler urheberrechtlich geschützt)

Dim FilteredAndGroupedEntries As List(Of String) = _
    (From entry As String In lines _
     Where Not String.IsNullOrWhiteSpace(entry) _
     Let fentry As String = WordFormat(entry) _
     Group By fentry Into Count() _
     Order By Count, fentry _
     Select String.Format("({0,3}) {1}", Count, fentry)).ToList

Private Function WordFormat(ByVal word As String) As String
   If String.IsNullOrWhiteSpace(word) Then Return String.Empty
   word = Trim(word)
   Dim start As String = word.Substring(0, 1).ToUpper
   Dim rest As String = word.Substring(1).ToLower
   Return start & rest
End Function