Zufalls Zeichenfolge

Question

 

hi

 

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

wenn es eine gibt bitte bitte mitteilen

 

danke

Answer 1

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

Answer 2

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