none
Afficher un texte aléatoire RRS feed

  • 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!!

    vendredi 1 juin 2012 10:47

Réponses

  • 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

    • Marqué comme réponse guznat vendredi 1 juin 2012 11:13
    vendredi 1 juin 2012 11:06
  • 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.

    • Marqué comme réponse TroxsaEditor vendredi 1 juin 2012 11:56
    vendredi 1 juin 2012 11:24
    Auteur de réponse

Toutes les réponses

  • 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

    • Marqué comme réponse guznat vendredi 1 juin 2012 11:13
    vendredi 1 juin 2012 11:06
  • Merci

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

    vendredi 1 juin 2012 11:17
  • 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.

    • Marqué comme réponse TroxsaEditor vendredi 1 juin 2012 11:56
    vendredi 1 juin 2012 11:24
    Auteur de réponse