DICTIONNAIRES, ANAGRAMMES : ALGOS EFFICACES
cs_Agaga
Messages postés
36
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
14 septembre 2006
-
15 mars 2005 à 11:31
cs_Agaga Messages postés 36 Date d'inscription mercredi 11 avril 2001 Statut Membre Dernière intervention 14 septembre 2006 - 17 mars 2005 à 13:23
cs_Agaga Messages postés 36 Date d'inscription mercredi 11 avril 2001 Statut Membre Dernière intervention 14 septembre 2006 - 17 mars 2005 à 13:23
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/30125-dictionnaires-anagrammes-algos-efficaces
https://codes-sources.commentcamarche.net/source/30125-dictionnaires-anagrammes-algos-efficaces
17 mars 2005 à 13:23
parce que c'est bcp plus lent
En plus je realise que cette foction, je l'utilisé dans mon algorithme de generation de dictionnaire (a partir de texte francais) et lorsque le dico est deja tout fait, y a plus besoin de faire les tests ...
Donc la question de "pourquoi ne pas utiliser autre chose a la place ..." ne se pose meme plus ! ;)
En fait si vous aviez tous bien regardé le code, elle n'est appelée nullepart !!!
bon voila, je corrigerai plus tard la source
a+
17 mars 2005 à 12:08
sur ta fonction EstLettre() pourquoi ne pas mettre toutes tes lettres dans une chaine et tester avec Instr ?
Drissou
17 mars 2005 à 07:42
Euh, en fait c'est volontaire qu'il manque toutes les lettres majuscules, car le dico que j'utlisais ne contenait que des minuscules. Par contre c'est vrai que je fais inutilement le test des majuscules.
Merci pour la remarque
A+
16 mars 2005 à 22:12
Ce genre de fonction :
Private Function EstLettre(str As String) As Boolean
EstLettre = (str >= "a" And str <= "z") Or (str >= "A" And str <= "Z") Or _
str "é" Or str "è" Or str = "ï" Or "û" Or str = "ù" Or str = "î" Or str = "ë" Or _
str "à" Or str "ê" Or str = "ç" Or str = "â" Or str = "ô" Or str = "-"
End Function
Devrait se faire en convertissant la string dès le départ afin de s'economiser une bursite en tapant tous les codes.
Private Function EstLettre(str As String) As Boolean
str=lcase$(str)
EstLettre = (str >= "a" And str <= "z") Or _
str "é" Or str "è" Or str = "ï" Or "û" Or str = "ù" Or str = "î" Or str = "ë" Or _
str "à" Or str "ê" Or str = "ç" Or str = "â" Or str = "ô" Or str = "-"
End Function
Autrement il te manque tous les caractères accentués et majuscules...
15 mars 2005 à 16:27
http://www.vbfrance.com/code.aspx?id=28995
15 mars 2005 à 11:31
Le dico séparé par lettre :
http://theagaga.free.fr/dicos.zip (~800 ko)
Le dico complet :
http://theagaga.free.fr/dico.zip (~800 ko)