CENSURER(REMPLACER) CERTAINS CARACTERES DANS UN TEXTE...
cs_Warny
Messages postés
473
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015
-
7 janv. 2004 à 17:51
cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014 - 8 janv. 2004 à 03:09
cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014 - 8 janv. 2004 à 03:09
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/19350-censurer-remplacer-certains-caracteres-dans-un-texte
https://codes-sources.commentcamarche.net/source/19350-censurer-remplacer-certains-caracteres-dans-un-texte
8 janv. 2004 à 03:09
7 janv. 2004 à 21:57
Par contre, tu devrais t'inspirer du truc : sur de longues chaines, la concatenation prend un temps monstrueux, il vaut mieux créer une chaine d'une grande longueur et remplacer les caractères, quitte à tronquer après si la chaine est plus courte
pour le case, tu peux même faire ça :
case is > 230
qui sera utilisé si ton argument est supérieur à 230
je te conseille par contre de reporter a dans tous les cas que tu ne décris pas OU seulement dans des cas que tu décris et ne pas le reporter dans les cas que tu ne décrit pas (avec casse else)
C'est pour écrire moins de ligne de code
7 janv. 2004 à 18:39
Pour Mid(Text1,i,1) = translate(Mid$(Text1,i,1)) Il me met "Valeur requise. impossible de l'affecter a cet expression"
Par contre pour le Select Case tu a bien vu :
Select Case Asc(a)
Case 58 To 64, 91 To 94
Translate = ""
Case 96, 47
Translate = ""
Case 45 To 122
Translate = a
Case 32
Translate = "_"
End Select
V le rajouter en + dans le code,
Merci Mec ;)
7 janv. 2004 à 17:51
Select Case i
Case 1 to 18:
Case 19,35,85:
Case 20 to 34, 36 to 84:
End select
sinon, il faut écrire pour aller plus vite
Mid(Text1,i,1) = translate(Mid$(Text1,i,1))