BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019
-
7 août 2003 à 12:23
Chatmuel
Messages postés6Date d'inscriptionmardi 12 octobre 2004StatutMembreDernière intervention26 janvier 2005
-
26 janv. 2005 à 15:23
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Chatmuel
Messages postés6Date d'inscriptionmardi 12 octobre 2004StatutMembreDernière intervention26 janvier 2005 26 janv. 2005 à 15:23
Oui mais il a quand meme une forme d'itération je pense puisque la méthode s'auto incémente ??
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 26 janv. 2005 à 13:16
remplace2 s'appelle elle meme, il y a donc recursivite.
Chatmuel
Messages postés6Date d'inscriptionmardi 12 octobre 2004StatutMembreDernière intervention26 janvier 2005 26 janv. 2005 à 13:12
Function remplace2(Text, quoi, par, resultat) 'mettre "" pour resultat lors de l'appel de la methode
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é)
GarnetDiAlexandros
Messages postés55Date d'inscriptionmercredi 31 juillet 2002StatutMembreDernière intervention19 novembre 2004 19 nov. 2004 à 16:13
cool, pile poil ce que je cherchais
très simple et qui marche bien, rien à redire
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 7 août 2003 à 12:23
Petite rectif mais importante:
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.
26 janv. 2005 à 15:23
26 janv. 2005 à 13:16
26 janv. 2005 à 13:12
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é)
19 nov. 2004 à 16:13
très simple et qui marche bien, rien à redire
7 août 2003 à 12:23
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.