SUPPRIMER TOUS LES CARACTÈRES NON DÉSIRÉS D'UNE CHAÎNE DE CARACTÈRES
cs_Mercury
Messages postés
329
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
7 octobre 2005
-
18 févr. 2002 à 11:55
erreurs404 Messages postés 117 Date d'inscription lundi 23 octobre 2000 Statut Membre Dernière intervention 12 août 2009 - 7 juin 2002 à 14:53
erreurs404 Messages postés 117 Date d'inscription lundi 23 octobre 2000 Statut Membre Dernière intervention 12 août 2009 - 7 juin 2002 à 14:53
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/2625-supprimer-tous-les-caracteres-non-desires-d-une-chaine-de-caracteres
https://codes-sources.commentcamarche.net/source/2625-supprimer-tous-les-caracteres-non-desires-d-une-chaine-de-caracteres
7 juin 2002 à 14:53
Public Function Replace(expr, car1, car2)
I = InStr(expr, car1)
Do While I > 0
expr = Left(expr, I - 1) & car2 & Right(expr, Len(expr) - I - Len(car1) + 1)
I = InStr(expr, car1)
Loop
Replace = expr
End Function
Cordialement
18 févr. 2002 à 13:26
Et merci pour ta note
PS: N'hésitez pas à me corriger si je me trompe.
18 févr. 2002 à 11:55
Mais bon, le but est d'apprendre, et ta fonction peut être utile pour les "puristes" du VB ;-)
Un petit 6/10 me semble honnête.