J'ai précisé à la fin de l'article :
"Il s'agit d'une simple fonction que vous pouvez adapter facilement."
Si tu as des +33 < tu adaptes, dans le cas où j'ai développé cette 'petite' fonction, je ne cherchais pas la performance mais juste que ca fasse ce que j'avais besoin.
Merci tout de même pour les remarque ca servira sans doute à d'autres qui reprendront cette source.
Pas mal ta source, assez simpe mais peut tj servir mais au lieu de tous tes replace, je pense qu'il serait preferable de faire une boucle et que tu mettes tous les numeros sauf les caracteres numeriques
for i = 1 to 255
if i >100 or i <110 then
exit for
end if
Temp = Replace(Temp, chr(i), "")
next
les nombres 100 et 110 sont pris au hasard je connais pas par coeur les codes de caractères, mais c juste pour te montrer ce que je pensais :)
- Messages postés
-
1765
- Date d'inscription
- jeudi 12 octobre 2000
- Statut
- Modérateur
- Dernière intervention
- 11 décembre 2013
4"Il s'agit d'une simple fonction que vous pouvez adapter facilement."
Si tu as des +33 < tu adaptes, dans le cas où j'ai développé cette 'petite' fonction, je ne cherchais pas la performance mais juste que ca fasse ce que j'avais besoin.
Merci tout de même pour les remarque ca servira sans doute à d'autres qui reprendront cette source.
F___
et puis, si tu veux avancer sur le sujet, gère aussi les doubles espaces comme 01 45 12 ...
et ce type de systeme : +33660...
y'a encore du boulot :)
A +
- Messages postés
-
6814
- Date d'inscription
- dimanche 15 décembre 2002
- Statut
- Modérateur
- Dernière intervention
- 13 octobre 2010
25for i = 1 to 255
if i >100 or i <110 then
exit for
end if
Temp = Replace(Temp, chr(i), "")
next
les nombres 100 et 110 sont pris au hasard je connais pas par coeur les codes de caractères, mais c juste pour te montrer ce que je pensais :)
@+