String von 00000 bis ZZZZZ in Array

  • VB.NET

Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von Leseratte.

    String von 00000 bis ZZZZZ in Array

    Hallo, ich brauche für eines meiner Programme ein Array, welches alle möglichen Kombinationen von 00000 bis ZZZZZ (Also alle 5stelligen Codes aus großbuchstaben und Zahlen) enthält. Ich weiß, dass ich zum hinzufügen eines eintrages die Funktion

    VB.NET-Quellcode

    1. Arrayname.Add("Eintrag")
    benutzen muss, aber ich habe 0 Ahnung wie ich die Strings vorher generieren soll. Hatt einer eine Idee oder sogar einen Code, wäre sehr nett!!

    Vielen Dank

    Leseratte

    EiPott schrieb:

    Ich hoffe, du weisst, dass die Berechnung für alle Möglichkeiten ein paar Tage dauern würde.

    Ich weiß, ich bräuchte es aber trotzdem...



    Pascal J. schrieb:

    also nur die Zahlen kannst du mit einer For-Schleife realisieren, zu den Buchstaben habe ich keine ahnung

    Wüsste denn einer Mehr dazu?

    VB.NET-Quellcode

    1. Dim ausgabe As New List(Of String)
    2. For c1 As Integer = 65 To 90
    3. For c2 As Integer = 65 To 90
    4. For c3 As Integer = 65 To 90
    5. For c4 As Integer = 65 To 90
    6. For c5 As Integer = 65 To 90
    7. ausgabe.Add(Chr(c1) & Chr(c2) & Chr(c3) & Chr(c4) & Chr(c5))
    8. Next
    9. Next
    10. Next
    11. Next
    12. Next


    Gilt aber nur für Buchstaben.

    Ich hoffe ich habe es richtig verstanden..
    Aber im Prinzip sollte es so in etwa gehen
    ACHTUNG: 1. Soll dies nicht C&P sein
    2. Ich hoffe du brauchst das nicht für irgendwelche Passwortcracksoftware

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim stelle1 As String
    2. Dim stelle2 As String
    3. Dim stelle3 As String
    4. Dim stelle4 As String
    5. Dim stelle5 As String
    6. ....
    7. Dim eintrag As New List(Of String)
    8. For i1 As Integer = 0 To 35
    9. For i2 As Integer = 0 To 35
    10. For i3 As Integer = 0 To 35
    11. For i4 As Integer = 0 To 35
    12. For i5 As Integer = 0 To 35
    13. If i1 > 10 Then
    14. stelle1 = i1.ToString
    15. Else
    16. stelle1 = ChrW(i1 - 10 + 65)
    17. End If
    18. If i2 > 10 Then
    19. stelle2 = i2.ToString
    20. Else
    21. stelle2 = ChrW(i2 - 10 + 65)
    22. End If
    23. If i3 > 10 Then
    24. stelle3 = i3.ToString
    25. Else
    26. stelle3 = ChrW(i3 - 10 + 65)
    27. End If
    28. If i4 > 10 Then
    29. stelle4 = i4.ToString
    30. Else
    31. stelle4 = ChrW(i4 - 10 + 65)
    32. End If
    33. If i5 > 10 Then
    34. stelle5 = i5.ToString
    35. Else
    36. stelle5 = ChrW(i5 - 10 + 65)
    37. End If
    38. eintrag.Add(stelle1 & stelle2 & stelle3 & stelle4 & stelle5)
    39. Next
    40. Next
    41. Next
    42. Next
    43. Next

    EDIT: Code funktioniert nicht 1:1 für dein Vorhaben, sondern hat einen Fehler drin ;)
    Es soll nur gezeigt werden, dass du sicher 5 verschachtelte Schleifen brauchst..


    Gruss
    Pascal

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

    Leute , wir programmieren mittlerweile in .NET und nicht mehr in VB6: also ist es nicht nötig ständig mit Chr und ChrW zu arbeiten, ein simpler String tut es auch der dann brav in all den Schleifen durchlaufen wird:

    VB.NET-Quellcode

    1. Private AllowedChars As String = "01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    2. ...
    3. For Each c0 As Char In AllowedChars
    4. ...
    5. Next

    Bestimmt geht es noch viel eleganter per LINQ oder Anonymen Methoden, aber die überlasse ich dann Hal und picoflop :whistling:

    EiPott schrieb:

    VB.NET-Quellcode

    1. Dim ausgabe As New List(Of String)
    2. For c1 As Integer = 65 To 90
    3. For c2 As Integer = 65 To 90
    4. For c3 As Integer = 65 To 90
    5. For c4 As Integer = 65 To 90
    6. For c5 As Integer = 65 To 90
    7. ausgabe.Add(Chr(c1) & Chr(c2) & Chr(c3) & Chr(c4) & Chr(c5))
    8. Next
    9. Next
    10. Next
    11. Next
    12. Next


    Gilt aber nur für Buchstaben
    Das hat mich schon sehr weitergebracht, ich werde damit noch etwas herumprobieren, und melde mich dann wieder.


    EDIT: Folgenden Code hab ich mal erweitert, aber jetzt bekomme ich jede Kombination genau 36 mal ins Array!!!

    VB.NET-Quellcode

    1. Dim d1, d2, d3, d4, d5, d6 As String
    5. For c1 As Integer = 65 To 100 'BIs 90 einschl sind Buchstaben
    6. Application.DoEvents()
    7. If c1 > 90 Then
    8. d1 = Asc(c1 - 90)
    9. If d1 = 10 Then d1 = Asc("0")
    10. Else
    11. d1 = c1
    12. End If
    13. For c2 As Integer = 65 To 100
    14. Application.DoEvents()
    15. If c2 > 90 Then
    16. d2 = Asc(c2 - 90)
    17. If d2 = 10 Then d2 = Asc("0")
    18. Else
    19. d2 = c2
    20. End If
    21. For c3 As Integer = 65 To 100
    22. Application.DoEvents()
    23. If c3 > 90 Then
    24. d3 = Asc(c3 - 90)
    25. If d3 = 10 Then d3 = Asc("0")
    26. Else
    27. d3 = c3
    28. End If
    29. For c4 As Integer = 65 To 100
    30. Application.DoEvents()
    31. If c4 > 90 Then
    32. d4 = Asc(c4 - 90)
    33. If d4 = 10 Then d4 = Asc("0")
    34. Else
    35. d4 = c4
    36. End If
    37. For c5 As Integer = 65 To 100
    38. Application.DoEvents()
    39. If c5 > 90 Then
    40. d5 = Asc(c5 - 90)
    41. If d5 = 10 Then d5 = Asc("0")
    42. Else
    43. d5 = c5
    44. End If
    45. For c6 As Integer = 65 To 100
    46. Application.DoEvents()
    47. If c6 > 90 Then
    48. d6 = Asc(c6 - 90)
    49. If d6 = 10 Then d6 = Asc("0")
    50. Else
    51. d6 = c6
    52. End If
    54. ausgabe.Add(Chr(d1) & Chr(d2) & Chr(d3) & Chr(d4) & Chr(d5))
    55. ListBox1.Items.Add(Chr(d1) & Chr(d2) & Chr(d3) & Chr(d4) & Chr(d5))
    56. If Stopp Then
    57. Exit For
    58. Exit For
    59. Exit For
    60. Exit For
    61. Exit For
    62. Exit For
    63. Exit For
    64. Exit For
    65. End If
    67. Next
    69. Next
    70. Next
    71. Next
    72. Next
    73. Next

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

    VB.NET-Quellcode

    1. If Stopp Then
    2. Exit For
    3. Exit For
    4. Exit For
    5. Exit For
    6. Exit For
    7. Exit For
    8. Exit For
    9. Exit For
    10. End If


    das is ziemlicher quatsch, da das erste exit for die schleife sofort verlässt, werden die anderen 7 exit fors erst gar nicht aufgerufen

    Die Lösung:

    VB.NET-Quellcode

    1. Private Sub GenerateCombos(ByVal used As String, ByVal length As Integer)
    2. Dim j As Integer = used.Length
    3. Dim k As Long = CLng(Math.Pow(j, length))
    5. Dim l As Long() = New Long(length) {}
    6. For m As Integer = length To 0 Step -1
    7. l(m) = CLng(Math.Pow(j, m))
    8. Next
    10. For i As Integer = 0 To k - 1
    11. Dim n As Long = i
    12. Dim o As String = String.Empty
    13. For p As Integer = length To 0 Step -1
    14. Dim q As Integer = CInt(n \ l(p))
    15. If p = length AndAlso q = 0 Then Continue For
    16. o &= used(q)
    17. n -= q * l(p)
    18. Next
    19. Console.WriteLine(o)
    21. 'Falls du das als Funktion haben möchtest:
    22. 'Eine neue List(Of String) initialisieren und dann:
    23. 'myList.Add(o)
    24. Next
    25. End Sub


    Mit den Zeichen ABCD gibt es insgesamt (Kombinationen: ABCD, ACBD, ADCB, CABD, ...) 256 Kombinationen, nur zur Info.

    MfG

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

    LaPi schrieb:

    Die Lösung:

    VB.NET-Quellcode

    1. Private Sub GenerateCombos(ByVal used As String, ByVal length As Integer)
    2. Dim j As Integer = used.Length
    3. Dim k As Long = CLng(Math.Pow(j, length))
    5. Dim l As Long() = New Long(length) {}
    6. For m As Integer = length To 0 Step -1
    7. l(m) = CLng(Math.Pow(j, m))
    8. Next
    10. For i As Integer = 0 To k - 1
    11. Dim n As Long = i
    12. Dim o As String = String.Empty
    13. For p As Integer = length To 0 Step -1
    14. Dim q As Integer = CInt(n \ l(p))
    15. If p = length AndAlso q = 0 Then Continue For
    16. o &= used(q)
    17. n -= q * l(p)
    18. Next
    19. Console.WriteLine(o)
    21. 'Falls du das als Funktion haben möchtest:
    22. 'Eine neue List(Of String) initialisieren und dann:
    23. 'myList.Add(o)
    24. Next
    25. End Sub


    Mit den Zeichen ABCD gibt es insgesamt (Kombinationen: ABCD, ACBD, ADCB, CABD, ...) 256 Kombinationen, nur zur Info.

    MfG
    Sehe ich das richtig, dass ich als Parameter used die Zeichen eingebe die vorkommen können (also "ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789" und in lenght dann 5?

    Also die komplette Funktion wäre dann (wenn ich mich nicht irre) folgende:

    VB.NET-Quellcode

    1. Private Function GenerateCombos(Optional ByVal used As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890", Optional ByVal length As Integer = 5) Dim Arr As New List(Of String)
    2. Dim j As Integer = used.Length
    3. Dim k As Long = CLng(Math.Pow(j, length))
    5. Dim l As Long() = New Long(length) {}
    6. For m As Integer = length To 0 Step -1
    7. l(m) = CLng(Math.Pow(j, m))
    8. Next
    10. For i As Integer = 0 To k - 1
    11. Dim n As Long = i
    12. Dim o As String = String.Empty
    13. For p As Integer = length To 0 Step -1
    14. Dim q As Integer = CInt(n \ l(p))
    15. If p = length AndAlso q = 0 Then Continue For
    16. o &= used(q)
    17. n -= q * l(p)
    18. Next
    19. Arr.Add(CStr(o))
    21. End Sub

    Stimmt das?

Facebook
Telefonspende