Trouver une chaine et la remplacer

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 253 fois - Téléchargée 36 fois

Contenu du snippet

Trouve str1 dans la chaine s et le remplace par str2

inputs :
<ul>
<li>s, str1, str2 au format string
<li>s est la chaine source
<li>str1 celle à trouver
<li>str2 celle à remplacer
</ul>

Source / Exemple :


<%
 Function TrouvRemp(s, Str1, Str2)
 	Dim pos
 	s = s & "" 
 	pos = InStr(s, Str1)
 	While pos > 0
 		s = Mid(s, 1, pos - 1) & Str2 & Mid(s, pos + Len(Str1))
 	    pos = InStr(pos, s, Str1)
 	Wend
 	TrouvRemp = s
 End Function
%>

Conclusion :


les habitué retrouveron "la roue" : la fonction replace ! ;-)

A voir également

Ajouter un commentaire Commentaires
Messages postés
24
Date d'inscription
dimanche 20 août 2000
Statut
Membre
Dernière intervention
17 mai 2004

alors pourquoi tu veux utiliser le mien????...
Messages postés
6
Date d'inscription
dimanche 5 août 2001
Statut
Membre
Dernière intervention
25 juillet 2003

Il marche pas ton code. Il me vire l'entièreté du string de départ à chaque fois.

Replace fonctionne très bien lui.
Ouais parceque ton truc il sert a rien du tout! Vive Replace!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.