Dictionnaire (~150000 mots) + tirage aléatoire

Commenter

Contenu du snippet

Voila, j'avais dis que je ferai ca pour le pendu (http://www.vbfrance.com/article.asp?Val=3930)... Le dictionnaire contient approx. 150000 mots de la langue française, donc c'est un peu lourd... vous pouvez en supprimer, c'est un fichier .txt de 1.64Mo...

Source / Exemple : 


'
' !! Tout ceci est dans le source !!
'
' A METTRE DANS LE CODE D'UN FORM
' Il faut :
' 2 Labels ("lblNumberWords" et "lblAleaWod")
' 1 CommandButton ("cmdAlea")

Dim sWords() As String

Private Sub cmdAlea_Click()
    Randomize Timer
    
    lblAleaWord.Caption = sWords(Int((UBound(sWords) * Rnd) + 1))

End Sub

Private Sub Form_Load()
    Dim sDicoPath As String
    ReDim sWords(0)
    
    ' Nom du fichier
    sDicoPath = App.Path
    If Right$(sDicoPath, 1) <> "\" Then sDicoPath = sDicoPath + "\"
    sDicoPath = sDicoPath & "fr.txt"
    
    Open sDicoPath For Input As #1
        Do While Not EOF(1)
            Line Input #1, sWords(UBound(sWords))
            ReDim Preserve sWords(UBound(sWords) + 1)
        Loop
    Close #1
    
    lblNumberWords.Caption = UBound(sWords)
End Sub

Conclusion :


Comme la source fait + de 250Ko (lle fait 350Ko) elle est dispo ici : http://www.seyev.com/~files/dico_alea.zip

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_seyev)