Ist bei der Suche ein Linq-Approach möglich?

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Bartosz.

    Ist bei der Suche ein Linq-Approach möglich?

    Moin Leute.
    Ich wollte inmal fragen, ob ihr hier kurz bitte rüberschauen könntet und ob man bei der Suche (    TextBox_Search_KeyDown) etwas verbessern kann, am liebsten mit Linq.

    Edit
    Ich frage mich, ob die 3 For-Each-Schleifen wegkönnen.
    Die Klassenstruktur soll erhalten bleiebn (ist in Wirklichkeit noch etwas mehr im letzten innersten If, was abgefragt wird).
    Die Bitmaps müssen neu instanziiert werden, sonst wird auf die alten gezeigt.

    Klasse Post
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public NotInheritable Class Post
    2. Public Property Paths As List(Of String)
    3. Public Property Images As List(Of Drawing.Bitmap)
    4. Public Property AreImagesLoaded As Boolean()
    5. ''' <summary>
    6. ''' Überschrift
    7. ''' </summary>
    8. ''' <returns></returns>
    9. Public Property Caption As String
    10. Public Property CreationDate As Date
    12. Public Sub New(Caption As String, CreationDate As Date, Paths As List(Of String), Images As List(Of Drawing.Bitmap))
    13. Me.Caption = Caption
    14. Me.CreationDate = CreationDate
    15. Me.Paths = Paths
    16. Me.Images = Images
    17. End Sub
    18. End Class


    Klasse Thread
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public NotInheritable Class Thread
    2. ''' <summary>
    3. ''' Überschrift
    4. ''' </summary>
    5. ''' <returns></returns>
    6. Public Property Caption As String
    7. Public Property CreationDate As Date
    8. Public Property ListOfPosts As List(Of Post)
    10. Public Sub New(Caption As String, CreationDate As Date, ListOfPosts As List(Of Post))
    11. Me.Caption = Caption
    12. Me.CreationDate = CreationDate
    13. Me.ListOfPosts = ListOfPosts
    14. End Sub
    15. End Class


    FormMain (auf's Wesentliche beschränkt)
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public NotInheritable Class FormMain
    2. Private ReadOnly allThreads As New List(Of Thread)
    3. Private Sub Button_new_Thread_Click(sender As Object, e As EventArgs) Handles Button_new_Thread.Click
    4. allThreads.Clear()
    6. Dim Path1 As New List(Of String) From {"C:\Users\Name\Pictures\BlackBackground.png"}
    7. Dim Image1 As New List(Of Drawing.Bitmap)
    8. If System.IO.File.Exists("C:\Users\Name\Pictures\BlackBackground.png") Then
    9. Image1.Add(New Drawing.Bitmap("C:\Users\Name\Pictures\BlackBackground.png"))
    10. End If
    12. Dim Path2 As New List(Of String) From {"C:\Users\Name\Pictures\RedBackground.png"}
    13. Dim Image2 As New List(Of Drawing.Bitmap)
    14. If System.IO.File.Exists("C:\Users\Name\Pictures\RedBackground.png") Then
    15. Image2.Add(New Drawing.Bitmap("C:\Users\Name\Pictures\RedBackground.png"))
    16. End If
    18. Dim Path3 As New List(Of String) From {"C:\Users\Name\Pictures\LightBlueBackground.png"}
    19. Dim Image3 As New List(Of Drawing.Bitmap)
    20. If System.IO.File.Exists("C:\Users\Name\Pictures\LightBlueBackground.png") Then
    21. Image3.Add(New Drawing.Bitmap("C:\Users\Name\Pictures\LightBlueBackground.png"))
    22. End If
    24. Dim Post1 As New List(Of Post) From {
    25. New Post("Postüberschrift 1", Date.Now, Path1, Image1)
    26. }
    27. allThreads.Add(New Thread("Thread-Überschrift 2", Date.Now, Post1))
    29. Dim Post2 As New List(Of Post) From {
    30. New Post("Postüberschrift 2", Date.Now, Path2, Image2)
    31. }
    32. allThreads.Add(New Thread("Thread-Überschrift 2", Date.Now, Post2))
    34. Dim Post3 As New List(Of Post) From {
    35. New Post("Postüberschrift 3", Date.Now, Path3, Image3)
    36. }
    37. allThreads.Add(New Thread("Thread-Überschrift 3", Date.Now, Post3))
    38. End Sub
    40. Private Sub TextBox_Search_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox_Search.KeyDown
    41. If Not (e.KeyCode = Keys.Enter) Then Return
    42. If System.String.IsNullOrEmpty(TextBox_Search.Text) Then Return
    44. Dim foundPosts As New List(Of Post)
    46. For Each [Thread] As Thread In allThreads
    47. For Each [Post] As Post In Thread.ListOfPosts
    48. If Post.Caption.Contains(TextBox_Search.Text) Then
    49. Debug.WriteLine($"Found »{TextBox_Search.Text}«")
    50. Dim Images As New List(Of Drawing.Bitmap)
    51. For Each Path As String In Post.Paths
    52. If IO.File.Exists(Path) Then
    53. Images.Add(New Drawing.Bitmap(Path))
    54. End If
    55. Next
    56. foundPosts.Add(New Post(Post.Caption, Post.CreationDate, Post.Paths, Images))
    57. End If
    58. Next
    59. Next
    61. End Sub
    63. Private Sub TextBox_Search_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox_Search.KeyPress
    64. If e.KeyChar = Microsoft.VisualBasic.ControlChars.Cr Then
    65. e.Handled = True
    66. End If
    67. End Sub
    68. End Class

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

    Ein If bei For kannst Du meistens mit Where entsorgen und eine pure For-Schleife mit ForEach:

    VB.NET-Quellcode

    1. For Each [Post] As Post In Thread.ListOfPosts.Where(Function(x) x.Caption.Contains(TextBox_Search.Text))
    2. Debug.WriteLine($"Found »{TextBox_Search.Text}«")
    3. Dim Images As New List(Of Drawing.Bitmap)
    4. Post.Paths.Where(Function(x) IO.File.Exists(x)).ToList.ForEach(Sub(x) Images.Add(New Drawing.Bitmap(x))) '*
    5. foundPosts.Add(New Post(Post.Caption, Post.CreationDate, Post.Paths, Images))
    6. Next

    * ToList nur dann, wenn Du Dir selbst noch keine ForEach-Extension für IEnumerable(Of T) geschrieben hast (die m.E. im Framework fehlt)
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.