Afficher un texte aléatoire

Question

Bonjour,

Existe-t-il une fonction pour générer du texte aléatoire?

Cordialement

---

Celui qui ne sait rien en sait autant que celui qui n'en sait pas plus!!

Answer 1

Bonjour,

Non, pas à ma connaissance.

Il existe une fonction pour générer un Nombre aléatoire :

Dim r as New Random

....... puis, à chaque tirage
r.Next

Il est donc possible de tirer une lettre au hasard en tirant un nombre de 0 à 25. Par exemple :

Dim Lettres as String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim r as New Random
Dim Result as String = String.Empty
For i as Integer to 10
     Result &= Lettres(r.Next(0,Lettres.Length-1))
Next

Answer 2

Merci

---

Celui qui ne sait rien en sait autant que celui qui n'en sait pas plus!!

Answer 3

Bonjour,

La fonction suivante devrait aussi vous permettre la génération d'une chaîne de longueur variable entre 0 et 50 (vous pouvez l'ajuster selon votre convenance) 

    Public Function RandomString() As String
        Dim Length = New Random(0).Next(50)
        Dim Result = String.Empty

        Dim CharRendom As New Random
        For Index = 1 To Length
            Result = Result & ChrW(CharRendom.Next(Asc("A"), Asc("Z") + 1))
        Next Index

        Return Result
    End Function

Cordialement.