Comparer zum alphabetischem sortieren gesucht

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Comparer zum alphabetischem sortieren gesucht

    Hallo, ich habe ein problem und komme einfach nicht weiter...

    Ich habe eine Liste mit Filmen. Ein Film ist eine eigenst erstellte klasse die Daten wie Dateigröße, Titel, Schon angesehen etc enthält. Um die Liste zu sortieren habe ich mir mehrere Comparer geschrieben die so aussehen (hier mal das beispiel zur sortierung nach der dateigröße):

    VB.NET-Quellcode

    1. Public Class FileSizeComparer
    2. Implements IComparer(Of Movie)
    4. Public Function CompareMovieBySize(ByVal x As Movie, ByVal y As Movie) As Integer _
    5. Implements System.Collections.Generic.IComparer(Of Movie).Compare
    7. Return (y.FileSize - x.FileSize)
    9. End Function
    11. End Class


    mein problem ist der comparer zur alphabetischen sortierung. ich habe keine alternative gefunden, desshalb versuche ich das ganze von hand zu fuß zu lösen - also wenn jemand weiß wie ich eine liste mit eigenen klassen im bezug auf eine bestimmte property alphabetisch sortiere nur her damit! xD
    mein ansatz sähe so aus: einen string in einen zahlenwert zu wandeln.. da habe ich aber eben den durchblick verloren als ich versuchte das ganze mittels asciitabelle zu realisieren... kann mir bitte jemand helfen?





    EDIT: habe eine lösung gefunden die mir allerdings nicht soooo gefällt. funsen tut sie. falls jemand was besseres kennt bedanke ich mich!

    VB.NET-Quellcode

    1. Public Class TitelComparer
    2. Implements IComparer(Of Movie)
    3. Public Function CompareMovieByTitel(ByVal x As Movie, ByVal y As Movie) As Integer _
    4. Implements System.Collections.Generic.IComparer(Of Movie).Compare
    6. If x.Titel = y.Titel Then Return 0
    7. Dim a() As String = New String() {x.Titel, y.Titel}
    8. System.Array.Sort(Of String)(a)
    9. If a(0) = x.Titel Then Return 1 Else Return -1
    11. End Function
    13. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FreakJNS“ ()

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Dim a As String = "aaa"
    3. Dim b As String = "bbb"
    4. Dim flag As Boolean = a > b
    5. Dim ii As Integer = String.Compare(a, b) ' -1, 0, 1
    6. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Einen String kannst du ebenso vergleichen wie Integer.
    if "hallo" > "gogo" then...
    Deshalb sollte auch der Comparer ebenso ausgelegt sein.
    Bsp

    VB.NET-Quellcode

    1. Public Class titlecomparer
    2. Implements IComparer(Of movie)
    4. Public Function CompareMovieByTitle(x As movie, y As movie) As Integer _
    5. Implements System.Collections.Generic.IComparer(Of movie).Compare
    7. If x.title.ToLower > x.title.ToLower Then
    8. Return -1
    9. ElseIf x.title.ToLower < x.title.ToLower Then
    10. Return 1
    11. ElseIf x.title.ToLower = x.title.ToLower Then
    12. Return 0
    13. End If
    15. End Function
    16. End Class


    [line=40%][/line]
    Musst du für deinen Programmablauf immer die gesamte Liste sortieren? Ist es nicht auch möglich auf eine generierte Reihenfolge zurückzugreifen, wie du sie mit LINQ erstellen kannst?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public movielist As New List(Of movie)
    4. Dim ListeNachDateigroesse As IEnumerable(Of movie) =
    5. From movie In movielist
    6. Order By movie.filesize Descending
    7. Select movie
    9. Dim ListeNachTitel As IEnumerable(Of movie) =
    10. From movie In movielist
    11. Order By movie.title.ToLowerInvariant
    12. Select movie
    14. Dim ListeNachTitelMit_A As IEnumerable(Of movie) =
    15. From movie In movielist
    16. Where movie.title.ToLowerInvariant.StartsWith("a")
    17. Select movie
    19. Private Sub VariantemitSortierer()
    20. movielist.Sort(deincomparer)
    21. 'Die komplette Liste ist sortiert
    23. 'Zeigt den ersten Film an, sortiert mittels 'deincomparer'
    24. MessageBox.Show(movielist(0).title)
    26. End Sub
    28. Private Sub VariantemitLINQ()
    29. 'zeigt den ersten Film an aus der dynamisch erzeugten Abfrage 'ListeNachTitel'
    30. MessageBox.Show(ListeNachTitel(0).title)
    32. 'zeigt den ersten Film sortiert nach Dateigroesse
    33. MessageBox.Show(ListeNachDateigroesse(0).title)
    35. 'zeigt den ersten Film aus der Liste 'listenachtitelmit_a'
    36. MessageBox.Show(ListeNachTitelMit_A(0).title)
    37. End Sub
    39. Private Sub zweiteVariantemitLINQ()
    41. 'Hier wird in der sortierten Rückgabe der Liste gesucht
    42. For Each item In
    43. From movie In movielist
    44. Order By movie.title.ToLowerInvariant
    45. Select movie
    47. MessageBox.Show(item.title)
    49. Next
    50. End Sub
    52. End Class
    54. Public Class movie
    55. Public filesize As Integer
    56. Public title As String
    57. End Class

    Sorry, wenn das von deinem Ansatz wegführen sollte...

    DataGridView kannst du beliebig Stylen.
    Das einfachste ist, die GridLinien zu deaktivieren, und die Zeilenhöhe verringern - dann siehts aus wie ListView.
    Aber auch die Sachen aus deiner Spezial-Listbox sind machbar, sogar mit bisserl weniger Aufwand, weil man nicht den ganzen Datensatz ownerDrawn muß, sondern nur die Zellen, die etwa diese Bewertungspunkte anzeigen sollen. Und es reagiert halt auf CellClick, da brauchst du auch keine Messungen der Mauspositionen vornehmen, wie bei deiner Listbox.
    gugge coloriertes DatagridView, noch ein coloriertes Datagridview, DgvProgressCell - nurso zur Illustration einiger Möglichkeiten.