Re: Construire un formule récursif ?

Posté par SSX9999 le 2/6/2008 15:37:07
je froward la reponse qui a ete donnée sur fr.comp.develppement.windev

Citation :

Bonjour,

en fait un compile avec une chaine qui prend l'operation
et qui remplae tous les elements trouves

Fichier1 abrev F1
Fichier2 abrev F2
fichier3 abrev CALC

donc dans Cal j'ai un code et une operation

machaine = CALC.chaine
monCode = CALC.code

donc voila maintenant il faut remplacer les formule en faisant des recherche
Hfiltre(F1,"code2="+CALC.code)
hpremier
tantque pas h.endehors
machaine = remplace(machaine,F1.code1,F1.valeur1)
hsuivant(F1)
Fin

// idem pour fichier 2
Hfiltre(F1,"code2="+CALC.code)
hpremier
tantque pas h.endehors
machaine = remplace(machaine,F2.code1,F2.valeur2)
hsuivant(F1)
Fin

// la chaine est normalement formate
Res = compile("MaPRoc",machaine)
si res <> "" alors
info(res)
sinon
executeTraitement("MaPRoc")
fin

voila je pense que l'idée est la c'est comme ca que je ferais

Bon dev
@+

Firetox


Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=5876&post_id=23779