test est une chaîne
i est un entier
SI PAS HInitHF55(ComplèteRep(fRepEnCours())+"ForxBase.WDD") ALORS
Erreur(HErreurInfo())
SINON
HOuvreAnalyse(ComplèteRep(fRepEnCours())+"ForxBase.WDD")
SI PAS HDBOuvre("MonDBF","DB",ComplèteRep(fotowinrep)+"DBFAX\SESSION.DBF") ALORS
Erreur("Impossible d'ouvrir le fichier" + ComplèteRep(fotowinrep)+"DBFAX\SESSION.DBF")
SINON
Info("Ouverture du fichier " + ComplèteRep(fotowinrep)+"DBFAX\SESSION.DBF" + " réussie !")
POUR i = 1 A HNbEnr("MonDBF",hEtatTous)
SI HLit("MonDBF",i)= Faux ALORS
Erreur("Impossible de lire la ligne " + i)
SINON
test = {"DB.IDENT"}
Info(test)
FIN
FIN
FIN
FIN
POUR i = 1 A HNbEnr("MonDBF",hEtatTous)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=2159&post_id=9020