- 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
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