Suchen in einem Array

  • VB.NET

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von exc-jdbi.

    Ich habe jetzt extra kein Linq verwendet, da es jeden Anfänger ein bisschen überfordert.

    Lernen kann man auch in dem man den Code der Profis hier anschaut. Ich vermute, dass was du suchst, ist in etwa das hier.

    Am besten einfach mal durchsteppen und entsprechend deinen Bedürfnissen dann anpassen.

    Freundliche Grüsse

    exc-jdbi

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​Option Strict On
    2. Option Explicit On
    4. Public Module Class_2024new
    6. Private ReadOnly Rand As New Random
    8. Public Sub Main()
    9. Sample()
    10. End Sub
    12. Private Sub Sample()
    14. 'Anzahl Arrays und Array länge
    15. Dim cnt = 20, sz = 11
    16. Dim arrays = Enumerable.Range(0, cnt).
    17. Select(Function(x) RngBytes(sz, 1, 40 + 1)).ToArray()
    19. 'Auf der Console ausgeben
    20. PrintOut(arrays)
    22. 'Beispiel 5 durchläufe:
    23. '- Es wird eine zufällige Zahl zwischen 1 und 40 erzeugt
    24. '- Die Zahl wird in all den 20 Arrays gesucht, und wenn sie
    25. ' gefunden wird, wird sie in der Variable bzw. Liste 'result'
    26. ' festgehalten.
    27. Dim result = New List(Of (a As Int32, n As Int32, idx As Int32))
    28. For i = 0 To 4
    29. Dim search_number = Convert.ToByte(Rand.Next(1, 40 + 1))
    30. For j = 0 To arrays.Length - 1
    31. Dim idx = Array.IndexOf(arrays(j), search_number)
    32. If idx >= 0 Then result.Add((j, search_number, idx))
    34. ''Sollte wirklich nur ein True oder False erwünscht sein
    35. 'Console.WriteLine($"Array {j}: Number {search_number} is {idx >= 0}")
    36. Next
    37. Next
    39. PrintOut(result)
    40. End Sub
    42. Private Function RngBytes(size As Int32, min As Byte, max As Byte) As Byte()
    43. Dim result = New Byte(size - 1) {}
    44. For i = 0 To size - 1
    45. result(i) = Convert.ToByte(Rand.Next(min, max))
    46. Next
    47. Return result
    48. End Function
    50. Private Sub PrintOut(input As Byte()())
    51. For i = 0 To input.Length - 1
    52. Console.WriteLine($"{i,2}:{ControlChars.Tab}[{String.Join(", ", input(i))}]")
    53. Next
    54. Console.WriteLine()
    55. End Sub
    57. Private Sub PrintOut(input As List(Of (a As Int32, n As Int32, idx As Int32)))
    58. Dim s = input.First().n
    59. For Each x In input
    60. If Not s = x.n Then
    61. s = x.n
    62. Console.WriteLine()
    63. End If
    64. Console.WriteLine($"array Nr = {x.a}; search number = {x.n}; index found = {x.idx}")
    65. Next
    66. End Sub
    68. End Module