Générer de l'aléatoire chaîne alphanumérique

Je suis en train de générer un code aléatoire dans vb.net comme ce

  Dim r As New Random
        Response.Write(r.Next())

Mais je veux générer le code à 6 chiffres et doit être composé de caractères alphanumériques comme thie A12RV1 et le code devrait ressembler à ceci.

J'ai essayé vb.net hasard de classe, mais je suis incapable de le faire comme je veux. Je veux obtenir le code alphanumérique à chaque fois lorsque j'exécute le code. Comment puis-je atteindre dans vb.net?

Le Random classe est utile à la production de semi-aléatoire de nombres. Dans votre cas, vous essayez de générer une chaîne de chiffres et de lettres. La meilleure approche est de générer des 6 chiffres et de mettre au point une méthode pour convertir une des lettres / nombres que vous voulez
un exemple plz ?
De toute façon, la prochaine fois recherche dans StackOverflow avant de poster une nouvelle question, car il y avait beaucoup de fois demandé avant

OriginalL'auteur user2024024 | 2013-03-08

  1. 4

    Essayer quelque chose comme cela:

    Public Function GetRandomString(ByVal iLength As Integer) As String
    Dim sResult As String = ""
    Dim rdm As New Random()

    For i As Integer = 1 To iLength
        sResult &= ChrW(rdm.Next(32, 126))
    Next

    Return sResult
End Function

    Ou vous pouvez le faire à la commune de chaîne aléatoire de la définition de la validité de caractères:

    Public Function GenerateRandomString(ByRef iLength As Integer) As String
    Dim rdm As New Random()
    Dim allowChrs() As Char = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLOMNOPQRSTUVWXYZ0123456789".ToCharArray()
    Dim sResult As String = ""

    For i As Integer = 0 To iLength - 1
        sResult += allowChrs(rdm.Next(0, allowChrs.Length))
    Next

    Return sResult
End Function

    OriginalL'auteur SysDragon

  2. 1

    Je pense que cela va s'adapte à vos exigences,

     Private sub GenerateString()

 Dim xCharArray() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray
 Dim xNoArray() As Char = "0123456789".ToCharArray
 Dim xGenerator As System.Random = New System.Random()
 Dim xStr As String = String.Empty

        While xStr.Length < 6

            If xGenerator.Next(0, 2) = 0 Then
                xStr &= xCharArray(xGenerator.Next(0, xCharArray.Length))
            Else
                xStr &= xNoArray(xGenerator.Next(0, xNoArray.Length))
            End If

        End While

        MsgBox(xStr)

 End Sub

    Remarque: Tested With IDE

    EDIT: Modified according to SYSDRAGON's Comment

    Tu ferais mieux de faire While xStr.Length < 6
    Et, de toute façon, "Vous ne devriez jamais écrire du code qui s'appuie sur l'équivalent des valeurs numériques pour le Vrai et le Faux", tu ferais mieux de faire If xGenerator.Next(0,2) = 0 Then
    Merci pour votre astuce, en Fait je pensais que comparring avec l'équivalent numérique des valeurs pour le vrai et le faux était droit, Ses temps de mettre à jour dans mon projet, merci!
    nous pouvons utiliser if cbool(xGenerator.Next(0,2)) then au lieu de votre suggestion à droite.?
    Pas de. Si vous lisez l'article sur MSDN j'ai commenté avant, vous voyez l'explication.

    OriginalL'auteur Rajaprabhu Aravindasamy