Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 311 fois - Téléchargée 36 fois
function remplace(text,quoi,par) 'function récursive : "quoi" est remplacé "par" dans "text" dim avant, après 'se qui se trouve avant et après "quoi" dans "text" if instr(text,quoi)<>0 then 'vérifie si la récursivité est utile, soit s'il on a de "quoi" remplacer "par" avant=mid(text,1,instr(text,quoi)-1) après=mid(text,instr(text,quoi)+len(quoi)) après=remplace(après,quoi,par) remplace = avant & par & après 'c'est ici que l'on remplace "quoi" contre "par" else remplace = text 'fin de la récursivité, retourne le texte tel quel end if end function
If InStr(Text, quoi) <> 0 Then
remplace2 = remplace2(Mid(Text, InStr(Text, quoi) + Len(quoi)), quoi, par, resultat & Mid(Text, 1, InStr(Text, quoi) - 1) & par)
Else
remplace2 = resultat & Text
End If
End Function
Est-ce que ça c'est itérarif ??? (ca marche j'ai essayé)
très simple et qui marche bien, rien à redire
Remplacer 'rapide car récursive'
par 'LENTE car récursive'.
La recursion est toujours plus lente que l'iteration, empilage et desempilage des parametres oblige.
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.