Extensions für Listen

    • VB.NET

      Extensions für Listen

      Hier ein paar praktische Extensions, mit denen man sich den Umgang mit IEnumerable(Of T) noch bisserl erleichtern kann.
      IEnumerable(Of T) ist die Schnittstelle, die hinter der For Each-Schleife steht, aber auch hinter allem, was Linq an Verarbeitung für Auflistungen so zu bieten hat.
      Einziger Member dieser Schnittstelle ist GetEnumerator, was ein IEnumerator(Of T)-Objekt zurückgibt.
      So ein Enumerator ist eine Umsetzung des Iterator-Patterns (alias "Besucher-Pattern"), und verfügt über die Member:
      • .Reset(): zurück zum Ausgangszustand
      • .MoveNext() As Boolean: Versuche, zum nächsten zu gehen - falls das nicht geht, returne False
      • .Current As T: returne den Wert des aktuellen Items
      • .Dispose(): Resourcen freigeben
      Die Extensions

      VB.NET-Quellcode

      1. Imports System.Runtime.CompilerServices
      3. Namespace System.Collections.Generic
      4. <HideModuleName()> _
      5. Public Module CollectionX
      7. ''' <summary>executes the action for each item</summary>
      8. <DebuggerStepThrough(), Extension()> _
      9. Public Sub ForEach(Of T)(ByVal itms As IEnumerable(Of T), ByVal Action As Action(Of T))
      10. For Each itm In itms : Action(itm) : Next
      11. End Sub
      13. ''' <summary>returns the **typisized** Enumerator of the array</summary>
      14. <Extension(), DebuggerStepThrough()> _
      15. Public Function GetEnumeratorX(Of T)(ByVal arr As T()) As IEnumerator(Of T)
      16. Return DirectCast(arr, IList(Of T)).GetEnumerator
      17. End Function
      19. ''' <summary>returns the next item. Exception on empty collection</summary>
      20. <DebuggerStepThrough(), Extension()> _
      21. Public Function YieldCyclic(Of T)(ByVal enrt As IEnumerator(Of T)) As T
      22. With enrt
      23. If .MoveNext Then Return .Current
      24. .Reset() : .MoveNext() : Return .Current
      25. End With
      26. End Function
      28. ''' <summary>returns the next item. Exception when collection exhaustet</summary>
      29. <DebuggerStepThrough(), Extension()> _
      30. Public Function Yield(Of T)(ByVal enrt As IEnumerator(Of T)) As T
      31. enrt.MoveNext()
      32. Return enrt.Current
      33. End Function
      35. End Module
      37. End Namespace
      • .ForEach(action): Damit kann man einzeilige ForEach-Schleifen formulieren, was bei trivialen Schleifen die Lesbarkeit bisserl erhöht.
      • .GetEnumeratorX (): Ein Workaround, weil leider gibt die Standard-Array.GetEnumerator() - Methode den untypisierten Enumerator zurück, wo doch der typisierte viel nützlicher ist.
      • .YieldCyclic(): eine Zusammenfassung von Enumerator.MoveNext und Enumerator.Current. Am Ende der Enumeration wird der Enumerator einfach resetted, und's geht von vorne los :D
      • .Yield(): wie .YieldCyclic(), nur hinter dem Ende der Enumeration gibts eine Exception statt eines Neu-Beginns.


      So, jetzt aber der lustige Code aussm Form, wo das alles in wahrhaft minimalistischer Form verbaut ist:

      VB.NET-Quellcode

      1. Public Class frmEnumeratorExtensions
      3. Private _Images As IEnumerator(Of Bitmap) = {My.Resources.Colors, My.Resources.BattleOfShanghaiBaby, My.Resources.du_bist_faul, My.Resources.nevermore}.GetEnumeratorX
      4. Private _Colors As IEnumerator(Of Color) = {Color.Red, Color.Pink, Color.AliceBlue, Color.Yellow, Color.Magenta}.GetEnumeratorX
      6. Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
      7. Me.BackgroundImage = _Images.YieldCyclic
      8. Me.Controls.OfType(Of Control).ForEach(Sub(ctl) ctl.BackColor = _Colors.YieldCyclic)
      9. End Sub
      11. End Class
      Mehr brauche ich hier nicht, um auf Knopfdruck alle BackgroundColors zu wechseln, und ausserdem das Hintergrundbild (so Dia-Show-mäßig)


      PS: Mit einem Timer kombiniert ists auch lustig, damit kann man zB Laufschriften erzeugen oder sowas - gugge auch StepByStep
      Dateien

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Facebook
    Telefonspende