List(of(T)).find-Methode richtig einsetzen??

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Dodo.

    List(of(T)).find-Methode richtig einsetzen??

    hallo zusammen,

    ich hab schon wieder nen problem. ich habe eine Klasse Auftrag.
    jeder auftrag bekommt ne eigene auftragsnummer.
    diese wird als integer erstellt und in einer combobox mit voranstehenden nullen eingetragen.
    Beispiel:
    A-Nr 1 wird in der combobox zu 00000001
    A-Nr 126 wird in der combobox zu 00000126

    wenn ich nun in der combobox eine A-Nr. auswähle soll das programm mir in einem label die informationen zu diesem auftrag anzeigen.
    wie kann ich nun mit der find-Methode eine list of clsAuftrag durchsuchen, anhand dieser nummer und mir den index wiedergeben lassen?

    besten dank im voraus

    mfg ICE

    EDIT: ach ja ich möchte abe nicht mit ner for schleife das ding durchlaufen.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ICEMAN-Wappen“ ()

    Probier mal dies:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private MyListOf As List(Of Auftrag)
    3. Private MyName As String
    4. Public Sub New()
    5. InitializeComponent()
    6. MyListOf = New List(Of Auftrag)
    7. MyName = Nothing
    8. End Sub
    10. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    11. MyListOf.Add(New Auftrag(1))
    12. MyListOf.Add(New Auftrag(2))
    13. MyListOf.Add(New Auftrag(3))
    14. End Sub
    16. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    17. Dim aa As Auftrag
    18. MyName = "002"
    19. Dim match As New System.Predicate(Of Auftrag)(AddressOf IsMyIndex)
    20. aa = MyListOf.Find(match)
    21. End Sub
    23. Public Function IsMyIndex(ByVal aa As Auftrag) As Boolean
    24. Return aa.Name.ToLower = MyName.ToLower
    25. End Function
    26. End Class
    28. Public Class Auftrag
    29. Private _Name As String
    31. Public Sub New(ByVal Index As Integer)
    32. _Name = String.Format("{0:000}", Index)
    33. End Sub
    34. Public ReadOnly Property Name() As String
    35. Get
    36. Return _Name
    37. End Get
    38. End Property
    39. End Class
    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!

    Hallo,

    hier meine Art der Lösung.
    Etwas kürzer aber weder besser noch schlechter.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Structure Auftrag
    4. Public Bezeichnung As String
    5. Public Nummer As Integer
    7. Public Sub New(ByVal b As String, ByVal n As Integer)
    8. Bezeichnung = b
    9. Nummer = n
    10. End Sub
    11. End Structure
    12. Private _auftraege As New List(Of Auftrag)
    14. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. _auftraege.Add(New Auftrag("Test", 1))
    16. End Sub
    18. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    19. find_autrag_arg = CInt(Me.TextBox1.Text)
    20. Dim pos As Integer = _auftraege.FindIndex(AddressOf find_auftrag)
    21. If pos > -1 Then
    22. MessageBox.Show("Auftrag an Position " & pos.ToString & "gefunden")
    23. Else
    24. MessageBox.Show("Kein Auftrag gefunden")
    25. End If
    26. End Sub
    28. 'Hier das Suchen
    29. Private find_autrag_arg As Integer
    30. Private Function find_auftrag(ByVal a As Auftrag) As Boolean
    31. If find_autrag_arg = a.Nummer Then
    32. Return True
    33. Else
    34. Return False
    35. End If
    36. End Function
    37. End Class

    Gruss

    mikeb69

    ok erstmal danke euch beiden.

    wenn ich das gelesene jetzt richtig verstanden habe muss ich feststellen, dass ne for-next schleife wohl doch die bessere wahl ist, da ich dort ja nur wenige zeilen brauche. sollte ich dennoch drüber nachdenken eine eurer varianten zu nutzen? ich meine so vom programmiertechnischen her z.b. fehleranfälligkiet o.ä?

    Nun, Du musst das machen, was Dir gefällt.
    Praktisch, schnell, elegant, professionell, pflegbar.
    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!

    Hallo ICEMAN-Wappen,

    schleife geht natürlich auch.

    Die hier vorgestellten Lösungen sind jedoch objektorientierter bzw. moderner, evtl. schneller (kann aber nicht viel sein)
    Der Code ist auch nicht so viel größer als der einer Schleife.

    Bei meinem Beispiel ist das die Suchfunktion.

    VB.NET-Quellcode

    1. 'Hier das Suchen
    2. Private find_autrag_arg As Integer
    3. Private Function find_auftrag(ByVal a As Auftrag) As Boolean
    4. If find_autrag_arg = a.Nummer Then
    5. Return True
    6. Else
    7. Return False
    8. End If
    9. End Function

    Kann auch kürzer geschrieben werden

    VB.NET-Quellcode

    1. 'Hier das Suchen
    2. Private find_autrag_arg As Integer
    3. Private Function find_auftrag(ByVal a As Auftrag) As Boolean
    4. Return find_autrag_arg = a.Nummer
    5. End Function

    und der Aufruf dazu.

    VB.NET-Quellcode

    1. find_autrag_arg = CInt(Me.TextBox1.Text)
    2. Dim pos As Integer = _auftraege.FindIndex(AddressOf find_auftrag)

    Ist eine Schleife viel kürzer ?

    Gruss

    mikeb69

    Wird die ComboBox wo die Aufträge angezeigt werden durch die Klasse Auftrag erstellt?

    Also zumindest würde ich das so machen, dann wären nämlich die Indizies der ComboBox und der List(Of Auftrag) identisch und um an die Klasse zu kommen bräuchte man nur eine Zeile

    VB.NET-Quellcode

    1. Private ComboBox1_SelectedChange(...) Handles ComboBox1.SelectedChange
    2. Dim derAuftrag As Auftrag = Aufträge.Items(ComboBox1.SelectedIndex)
    3. End Sub


    Bzw. noch besser wäre es wenn du die Klasse direkt in die ComboBox lädst

    VB.NET-Quellcode

    1. ComboBox1.Item.Add(New Auftrag("000001", "Kunde", "Max Mustermann"))


    und bei der Aufwahl

    VB.NET-Quellcode

    1. Private ComboBox1_SelectedChange(...) Handles ComboBox1.SelectedChange
    2. Dim derAuftrag As Auftrag = DirectCast(DirectCast(sender, ComboBox).SelectedItem, Auftrag)
    3. End Sub

Facebook
Telefonspende