none
Zufalls Zeichenfolge RRS feed

  • Frage

  •  

    hi

     

    gibt es eigentlich keine Möglichkeit eine zufällige Zeichenfolge zu generieren?

    wenn es eine gibt bitte bitte mitteilen

     

    danke

    Montag, 3. März 2008 16:18

Antworten

  • Ja es gibt auch eine die hab ich gefunden 8)

    DIE HIER:

     

    Private Function Zufallsstring(ByVal lngLaenge As Long, ByVal blnNurBuchstaben As Boolean, Optional ByVal blnGross_ As Boolean = False) As String

    Dim bytAnfang As Byte

    Dim bytEnde As Byte

    Dim n As Long

    Dim bytCurChar As Byte

    Dim zufallsstring1 As String = ""

    Dim rdn As New Random

    If blnNurBuchstaben = False Then

    bytAnfang = 32

    bytEnde = 255

    Else

    If blnGross = True Then

    bytAnfang = 65

    bytEnde = 90

    Else

    bytAnfang = 97

    bytEnde = 122

    End If

    End If

    For n = 1 To lngLaenge Step 1

    bytCurChar = rdn.Next(bytAnfang, bytEnde)

    zufallsstring1 +=  Chr(bytCurChar)

    Next n

    Return zufallsstring1

    End Function

    Dienstag, 18. März 2008 12:55

Alle Antworten

  • Ja sicher -)

    Weil ich nicht genau weiß wie du das verwenden willst  sehe einfach mal hier nach: http://msdn2.microsoft.com/de-de/library/system.random.aspx
    Montag, 3. März 2008 18:52
  • Ja es gibt auch eine die hab ich gefunden 8)

    DIE HIER:

     

    Private Function Zufallsstring(ByVal lngLaenge As Long, ByVal blnNurBuchstaben As Boolean, Optional ByVal blnGross_ As Boolean = False) As String

    Dim bytAnfang As Byte

    Dim bytEnde As Byte

    Dim n As Long

    Dim bytCurChar As Byte

    Dim zufallsstring1 As String = ""

    Dim rdn As New Random

    If blnNurBuchstaben = False Then

    bytAnfang = 32

    bytEnde = 255

    Else

    If blnGross = True Then

    bytAnfang = 65

    bytEnde = 90

    Else

    bytAnfang = 97

    bytEnde = 122

    End If

    End If

    For n = 1 To lngLaenge Step 1

    bytCurChar = rdn.Next(bytAnfang, bytEnde)

    zufallsstring1 +=  Chr(bytCurChar)

    Next n

    Return zufallsstring1

    End Function

    Dienstag, 18. März 2008 12:55