Hello,
J'essaie de faire une fonction récursive mais je galère grave !!
Voici mon code source :
Function Contenu (texte,ContenuArch,j)
' Variables de bdd
Dim bd
Dim rec
Dim rec2
Dim MyDSN
Dim RequeteSQL
Dim RequeteSQL2
Dim i
' Initialisation bdd
Set bd= Server.CreateObject("ADODB.Connection")
MyDSN="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "\bdd.mdb"
bd.Open MyDSN
Set rec = Server.CreateObject ("ADODB.recordset")
Set rec2 = Server.CreateObject ("ADODB.recordset")
'selection dans la table
RequeteSQL = "SELECT * from Param order by Cpt ;"
RequeteSQL2 = "SELECT Count(Param.ARemplacer) AS Compteur FROM Param;"
response.write "<br><u>1_ Niveau de recherche : " & j & "</u><br>"
'execution de la requete
rec.Open RequeteSQL, bd, 3, 3
rec2.open RequeteSQL2, bd, 3, 3
rec.movefirst
if rec2("Compteur") > 0 then
for i=1 to rec2("Compteur")
response.write "<br>2_ Boucle for : de " & i & " à " & rec2("Compteur") & "<br>"
response.write "3_ Contenu à tester : " & Texte & "<br>"
set fso=nothing
if rec("Valeur") <> Texte then
response.write "<br>4_ Texte ouvert : " & Texte & "<br>"
response.write "5_ On recherche dans ce texte le champ : " & rec("ARemplacer") & " qui a pour valeur : " & rec("Valeur") & "<br>"
j=j+1
if InStr(Texte,rec("ARemplacer")) = 0 then
response.write "<br><table border=1><tr><td>On ne remplace pas </td></tr></table><br>"
else
response.write "<br><table border=1><tr><td>On remplace </td></tr></table><br>"
end if
if InStr(Texte,rec("ARemplacer")) <> 0 then
contenu = replace(Texte,rec("ARemplacer"),Contenu(rec("Valeur"),Contenu,j))
response.write "<br>7_ Apres replace 1 : METTRE <b>" & Contenu & "</b> DANS <b>" & ContenuArch & "</b><br>"
end if
end if
rec.movenext
next
end if
'fermeture de la connection
bd.close
'vidange
Set bd = Nothing
end function
response.write "<br>Reponse finale : " & Contenu("ceci AREMPLACER1 test AREMPLACER3","","1")
Voici le contenu de ma table Param :
Cpt ARemplacer Valeur
1 AREMPLACER1 est un AREMPLACER2 de
2 AREMPLACER2 putain
3 AREMPLACER3 n est il pas ?
Le but de la manoeuvre est de récupérer à partir de la fonction le texte : 'Ceci est un putain de test n est il pas ?'
J'y suis presque mais je ne vois pas ce qui bloque !!
Help me !!
J'en ai très très besoin de cette fonction !!