Dictionnaire (~150000 mots) + tirage aléatoire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 695 fois - Téléchargée 44 fois

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

Ajouter un commentaire

Commentaires

Eclateur
Messages postés
1
Date d'inscription
mardi 2 novembre 2004
Statut
Membre
Dernière intervention
2 novembre 2004
-
Salut,
Le lien du dico de 150000mots n'est plus dispo...
quelqu'un l'aurait il qq part.... (le dico...)
Merci
cs_seyev
Messages postés
93
Date d'inscription
samedi 9 juin 2001
Statut
Membre
Dernière intervention
6 mai 2005
1 -
Hum, oui, désolé.. je reposte... c'est ici : http://www.geneva-by-night.com/~divers/download/dico_alea.zip

désolé
Osris6880
Messages postés
41
Date d'inscription
samedi 27 décembre 2003
Statut
Membre
Dernière intervention
12 janvier 2006
-
Je pense qu'il y a un problème avec l'adresse du Dico.
cs_seyev
Messages postés
93
Date d'inscription
samedi 9 juin 2001
Statut
Membre
Dernière intervention
6 mai 2005
1 -
J'ai remis le fichier. Désolé
Osris6880
Messages postés
41
Date d'inscription
samedi 27 décembre 2003
Statut
Membre
Dernière intervention
12 janvier 2006
-
Merci
Commenter la réponse de cs_Stephane

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.