POUR TOUTE CHAINE sUnFichier DE sFic SEPAREE PAR RC
nIdFic=fOuvre(sUnFichier,foLecture)
fPositionne(nIdFic,-128,fpFin)
sBalise = fLit(nIdFic,3)
Trace(sBalise)
sBalise = fLit(nIdFic,30)
Trace(sBalise)
lbl_fi=sBalise
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4264&post_id=17571