shervy
Messages postés62Date d'inscriptionlundi 24 décembre 2001StatutMembreDernière intervention15 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 !!!