DataSet.DataTable.ToArray - alphabetisch sortieren

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

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von DerSmurf.

    Ich hab mal was gebastelt, Testprojekt anbei.
    BalancedQueueCreator

    VB.NET-Quellcode

    1. Public Class BalancedQueueCreator(Of T)
    3. Private ReadOnly CountOfQueuesToCreate As Integer = 0
    4. Private ReadOnly Queues As New List(Of List(Of T))
    6. Public Sub New(CountOfQueuesToCreate As Integer)
    7. Me.CountOfQueuesToCreate = CountOfQueuesToCreate
    8. End Sub
    10. Public Function GetBalancedQueuesFrom(Elements As IEnumerable(Of T)) As IEnumerable(Of IEnumerable(Of T))
    11. If CountOfQueuesToCreate = 0 Then Return Nothing
    13. CreateSufficientQueues()
    14. PutAllElementsIntoFirstQueue(Elements)
    15. BalanceQueues()
    16. Return Queues
    17. End Function
    19. Private Sub CreateSufficientQueues()
    20. For i = 0 To CountOfQueuesToCreate - 1
    21. Queues.Add(New List(Of T))
    22. Next
    23. End Sub
    25. Private Sub PutAllElementsIntoFirstQueue(Elements As IEnumerable(Of T))
    26. Queues.First.AddRange(Elements)
    27. End Sub
    29. Private Sub BalanceQueues()
    30. Dim MoveFurtherElements As Boolean
    31. Do
    32. MoveFurtherElements = False
    33. For i = 0 To CountOfQueuesToCreate - 2
    34. If PutLastEntryIntoNextQueueFromQueue(i) Then MoveFurtherElements = True
    35. Next
    36. Loop While MoveFurtherElements
    37. End Sub
    39. Private Function PutLastEntryIntoNextQueueFromQueue(CurrentQueueIndex As Integer) As Boolean
    40. If Not MovingAnotherElementMakesSense(CurrentQueueIndex) Then Return False
    42. MoveLastElementToNextQueue(CurrentQueueIndex)
    43. PutLastEntryIntoNextQueueFromQueue(CurrentQueueIndex + 1)
    44. Return True
    45. End Function
    47. Private Sub MoveLastElementToNextQueue(CurrentQueueIndex As Integer)
    48. Queues(CurrentQueueIndex + 1).Insert(0, Queues(CurrentQueueIndex).Last)
    49. Queues(CurrentQueueIndex).RemoveAt(Queues(CurrentQueueIndex).Count - 1)
    50. End Sub
    52. Private Function MovingAnotherElementMakesSense(CurrentQueueIndex As Integer) As Boolean
    53. Return CurrentQueueIndex < Queues.Count - 1 AndAlso Not NextQueuesHaveSufficientEntries(CurrentQueueIndex)
    54. End Function
    56. Private Function NextQueuesHaveSufficientEntries(QueueIndex As Integer) As Boolean
    57. For i = QueueIndex + 1 To Queues.Count - 1
    58. If Queues(QueueIndex).Count - Queues(i).Count > 1 Then Return False
    59. Next
    60. Return True
    61. End Function
    63. End Class


    Das UnitTest-Projekt wollte ich noch als Quasi-Doku mit hochladen, aber da sind die Packages zu groß. Daher - für die wenigen Interessierten - hier noch die Tests:
    UnitTests

    VB.NET-Quellcode

    1. Imports BalancedQueueCreator
    3. <TestClass()> Public Class BalancedQueueCreatorTests
    5. <TestMethod()> Public Sub CreateNoBalancedQueueWhenThereAreZeroQueuesToCreate()
    6. Dim TestArray = {""}
    7. Dim ResultingQueues = New BalancedQueueCreator(Of String)(0).GetBalancedQueuesFrom(TestArray)
    8. Assert.IsNull(ResultingQueues)
    9. End Sub
    11. <TestMethod()> Public Sub CreateOneBalancedQueueWhenThereIsOneQueueToCreate()
    12. Dim TestArray = {""}
    13. Dim ResultingQueues = New BalancedQueueCreator(Of String)(1).GetBalancedQueuesFrom(TestArray)
    14. Assert.AreEqual(1, ResultingQueues.Count)
    15. End Sub
    17. <TestMethod()> Public Sub OneEntryCreatesOneFilledQueue()
    18. Dim TestArray = {"1"}
    19. Dim ResultingQueues = New BalancedQueueCreator(Of String)(1).GetBalancedQueuesFrom(TestArray)
    20. Assert.AreEqual(1, ResultingQueues.First.Count)
    21. End Sub
    23. <TestMethod()> Public Sub OneEntryCreatesOneFilledQueueWithCorrectContent()
    24. Dim TestArray = {"1"}
    25. Dim ResultingQueues = New BalancedQueueCreator(Of String)(1).GetBalancedQueuesFrom(TestArray)
    26. Assert.AreEqual("1", ResultingQueues.First.First)
    27. End Sub
    29. <TestMethod()> Public Sub TwoEntriesCreateTwoFilledQueue()
    30. Dim TestArray = {"1", "2"}
    31. Dim ResultingQueues = New BalancedQueueCreator(Of String)(2).GetBalancedQueuesFrom(TestArray)
    32. Assert.AreEqual(1, ResultingQueues(0).Count)
    33. Assert.AreEqual(1, ResultingQueues(1).Count)
    34. End Sub
    36. <TestMethod()> Public Sub TwoEntriesCreateTwoFilledQueueWithCorrectContent()
    37. Dim TestArray = {"1", "2"}
    38. Dim ResultingQueues = New BalancedQueueCreator(Of String)(2).GetBalancedQueuesFrom(TestArray)
    39. Assert.AreEqual("1", ResultingQueues(0).First)
    40. Assert.AreEqual("2", ResultingQueues(1).First)
    41. End Sub
    43. <TestMethod()> Public Sub ThreeEntriesCreateThreeFilledQueue()
    44. Dim TestArray = {"1", "2", "3"}
    45. Dim ResultingQueues = New BalancedQueueCreator(Of String)(3).GetBalancedQueuesFrom(TestArray)
    46. Assert.AreEqual(1, ResultingQueues(0).Count)
    47. Assert.AreEqual(1, ResultingQueues(1).Count)
    48. Assert.AreEqual(1, ResultingQueues(2).Count)
    49. End Sub
    51. <TestMethod()> Public Sub FourEntriesCreateThreeFilledQueue211()
    52. Dim TestArray = {"1", "2", "3", "4"}
    53. Dim ResultingQueues = New BalancedQueueCreator(Of String)(3).GetBalancedQueuesFrom(TestArray)
    54. Assert.AreEqual(2, ResultingQueues(0).Count)
    55. Assert.AreEqual(1, ResultingQueues(1).Count)
    56. Assert.AreEqual(1, ResultingQueues(2).Count)
    57. End Sub
    59. <TestMethod()> Public Sub FourEntriesCreateThreeFilledQueue211WithCorrectContent()
    60. Dim TestArray = {"1", "2", "3", "4"}
    61. Dim ResultingQueues = New BalancedQueueCreator(Of String)(3).GetBalancedQueuesFrom(TestArray)
    62. Assert.AreEqual("1", ResultingQueues(0).First)
    63. Assert.AreEqual("2", ResultingQueues(0).Last)
    64. Assert.AreEqual("3", ResultingQueues(1).First)
    65. Assert.AreEqual("4", ResultingQueues(2).First)
    66. End Sub
    68. <TestMethod()> Public Sub FiveEntriesCreateThreeFilledQueue221WithCorrectContent()
    69. Dim TestArray = {"1", "2", "3", "4", "5"}
    70. Dim ResultingQueues = New BalancedQueueCreator(Of String)(3).GetBalancedQueuesFrom(TestArray)
    71. Assert.AreEqual("1", ResultingQueues(0).First)
    72. Assert.AreEqual("2", ResultingQueues(0).Last)
    73. Assert.AreEqual("3", ResultingQueues(1).First)
    74. Assert.AreEqual("4", ResultingQueues(1).Last)
    75. Assert.AreEqual("5", ResultingQueues(2).First)
    76. End Sub
    78. End Class

    Bilder

    • Results.png

      22,81 kB, 830×290, 59 mal angesehen
    Dateien
    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.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()

Facebook
Telefonspende