RandomString erstellen ist zu langsam

  • VB.NET

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

    RandomString erstellen ist zu langsam

    Hi.
    Ich versuche für meine VM's Virtuelle MacAdressen zu generieren doch leider läuft mir die Prozedur zu schnell ab um vorher eine neue zu generieren.
    Also schreibt er mir teilweise ein paar gleiche untereinander.
    Hat jemand einen Tip?
    Mit Threading.Thread.Sleep(15) gehts zwar aber dann dauert es zu lange bei mehreren.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    2. For i As Integer = 0 To NumericUpDown1.Value - 1
    3. Dim MacString As String = CreateRandomString(6, RandomTextType.LowerCaseLettersMixedNumbers).ToUpper 'CStr(RandomString(6).ToUpper)
    4. Application.DoEvents()
    5. Dim eins As String = MacString.Substring(0, 2)
    6. Dim zwei As String = MacString.Substring(2, 2)
    7. Dim drei As String = MacString.Substring(4, 2)
    8. liste.Add("00:1A:79:" & eins & ":" & zwei & ":" & drei)
    9. Application.DoEvents()
    10. BackgroundWorker1.ReportProgress(i)
    11. Next
    12. End Sub
    13. Public Function CreateRandomString(theLen As Short, art As RandomTextType) As String
    14. Const lowerChars = "abcdefghijklmnopqrstuvwxyz"
    15. Const upperChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    16. Const numericChars = "0123456789"
    17. Const specChars = "!§$%&/()=?{[]}+*~#'-_.:,;<>"
    19. Dim rs As String = ""
    20. Dim ast As String = "", le, ix As Short
    21. Dim rnd As New Random()
    22. Select Case art
    23. Case RandomTextType.LowerCaseLetters
    24. ast = lowerChars
    25. Case RandomTextType.UpperCaseLetters
    26. ast = upperChars
    27. Case RandomTextType.LowerCaseLettersMixedNumbers
    28. ast = lowerChars + numericChars
    29. Case RandomTextType.UpperCaseLettersMixedNumbers
    30. ast = upperChars + numericChars
    31. Case RandomTextType.MixedAll
    32. ast = lowerChars + upperChars + numericChars + specChars
    33. End Select
    34. le = ast.Length - 1
    35. For i As Short = 1 To theLen
    36. ix = rnd.Next(0, le)
    37. rs += ast.Substring(ix, 1)
    38. Next
    39. Return rs
    41. End Function
    42. Public Enum RandomTextType
    43. LowerCaseLetters = 1
    44. UpperCaseLetters = 2
    45. LowerCaseLettersMixedNumbers = 3
    46. UpperCaseLettersMixedNumbers = 4
    47. MixedAll = 5
    48. End Enum


    Danke im voraus.
    LG
    GOOGLE ist mein Meister :)

    @Bady

    Hab hier ein rudimentäres Beispiel, Ohne deine Auswahl.

    Die Instanz der Random würde ich Klassenweit deklarieren, so sollten auch keine gleichen Werte entstehen.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    4. Public Module MacAddressRandom
    5. Public ReadOnly Rand As Random = New Random
    6. Public Sub Main()
    7. Dim size = 10
    8. Dim macsize = 3
    9. Dim startmac = "00:1A:79:"
    11. Dim rngmacaddress = New String(size - 1) {}
    12. Dim rngmac = RngMacSubAddress(size, macsize)
    13. For i = 0 To size - 1
    14. rngmacaddress(i) = $"{startmac}{String.Join(":", rngmac(i).Select(Function(x) x.ToString("x2")))}"
    15. Console.WriteLine(rngmacaddress(i))
    16. Next
    18. Console.ReadLine()
    19. End Sub
    20. Private Function RngMacSubAddress(size As Int32, macsize As Int32) As Byte()()
    21. Dim result = New Byte(size - 1)() {}
    22. For i = 0 To size - 1
    23. result(i) = New Byte(macsize - 1) {}
    24. Rand.NextBytes(result(i))
    25. Next
    26. Return result
    27. End Function
    28. End Module



    Freundliche Grüsse

    exc-jdbi

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „exc-jdbi“ ()

Facebook
Telefonspende