Dictionnaire (~150000 mots) + tirage aléatoire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 763 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

cs_Stephane
Messages postés
551
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006
-
ouaou, si y a 150000 mots, (d'abord je te felicite parcke moi j'aurai pas eu le courange) et je te di merci parcke ca fait un moment que je voulai avoir ce genre de fichier

merci !!!
cs_seyev
Messages postés
93
Date d'inscription
samedi 9 juin 2001
Statut
Membre
Dernière intervention
6 mai 2005
1 -
c'est pas moi qui les ai tapés (j'aurais pas eu le courage non plus...)... J'ai trouvé sur internet mais je ne sais plus ou ;)
cs_Jack
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
61 -
Dommage qu'il manque les accents, ça aurait pu être exploitable !
Bonne idée quand même
Jack
cs_FAS
Messages postés
88
Date d'inscription
vendredi 26 avril 2002
Statut
Membre
Dernière intervention
24 février 2006
-
UN problème : multimania refuse le téléchargement de fichier si ce n'est pas à partir d'un lien du site... POurrais tu faire un page avec un lien sur ton compte multimania stp?
cs_seyev
Messages postés
93
Date d'inscription
samedi 9 juin 2001
Statut
Membre
Dernière intervention
6 mai 2005
1 -
Voila, FAS l'adresse du lien : http://membres.lycos.fr/sergay/dico.html normalement ça devrait passer ;)

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.