cs_Agaga
Messages postés36Date d'inscriptionmercredi 11 avril 2001StatutMembreDernière intervention14 septembre 2006
-
15 mars 2005 à 11:31
cs_Agaga
Messages postés36Date d'inscriptionmercredi 11 avril 2001StatutMembreDernière intervention14 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.
cs_Agaga
Messages postés36Date d'inscriptionmercredi 11 avril 2001StatutMembreDernière intervention14 septembre 2006 17 mars 2005 à 13:23
Drssou,
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+
cs_drissou
Messages postés160Date d'inscriptiondimanche 7 décembre 2003StatutMembreDernière intervention14 janvier 2009 17 mars 2005 à 12:08
Bonjour,
sur ta fonction EstLettre() pourquoi ne pas mettre toutes tes lettres dans une chaine et tester avec Instr ?
Drissou
cs_Agaga
Messages postés36Date d'inscriptionmercredi 11 avril 2001StatutMembreDernière intervention14 septembre 2006 17 mars 2005 à 07:42
Salut Joe
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+
JoePatent
Messages postés171Date d'inscriptionjeudi 30 janvier 2003StatutMembreDernière intervention20 juillet 2008 16 mars 2005 à 22:12
Juste une remarque mineur
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...
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 15 mars 2005 à 16:27
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)