Chaine : remplacement d'un caractére par un autre

jff27 Messages postés 8 Date d'inscription mercredi 30 janvier 2002 Statut Membre Dernière intervention 7 janvier 2003 - 31 janv. 2002 à 00:50
shervy Messages postés 62 Date d'inscription lundi 24 décembre 2001 Statut Membre Dernière intervention 15 octobre 2007 - 31 janv. 2002 à 09:48
Comment faire pour remplacer un caractere dans une chaine par un autre.
ex:
Remplacer tous les x d'un string par un y.
D'avance merci.
JFF

1 réponse

shervy Messages postés 62 Date d'inscription lundi 24 décembre 2001 Statut Membre Dernière intervention 15 octobre 2007
31 janv. 2002 à 09:48
Si ton texte n'est pas trop long tu peux utiliser ceci :

For i = 1 To Len(MonTexte)
MonCaratere = Mid(MonTexte, i, 1)
If MonCaratere = MonCaractereCherche Then
MonCaratere = MonCaractereRemplace
End If
MaChaine = MaChaine + MonCaratere
Next i

Sinon il va falloir que tu cherches des algo de recherche de texte du Boyer-Moore and Co !!!
0
Rejoignez-nous