WDForge.org - Forums

Re: Trier un fichier avec les ordres Hxxx

Sujet: Re: Trier un fichier avec les ordres Hxxx
par R&B sur 30/6/2005 14:59:44

OK.
Juste pour information, depuis DBase III, les bases fichiers dont HyperFile est un dérivé sont munies d'index (ou rubriques clé) qui sont en réalité des tables qui permettent un parcours ordonée sur une rubrique (ou un ensemble de).

pour parcourir votre fichier selon l'ordre alhabetique il suffit de d'utiliser les fonction de lectures comme suit :

// parcours tout le fichier
HLitPremier(FICHIER,Rubrique)
TANTQUE PAS HEnDehors(FICHIER)
   Info(FICHIER.RUBRIQUE)
   HLitSuivant(FICHIER,RUBRIQUE)
FIN

Pour limiter le parcours, utiliser un filtre...

// parcours le fichier de C à D
cCle est une chaine = HFiltre(FICHIER,Rubrique,"C","D")
HLitPremier(FICHIER,cCle)
TANTQUE PAS HEnDehors(FICHIER)
   Info(FICHIER.RUBRIQUE)
   HLitSuivant(FICHIER,cCLe)
FIN
HDesactiveFiltre(FICHIER)

// parcours le fichier de C à la fin
cCle est une chaine = HFiltre(FICHIER,Rubrique,"C",hValMax)
HLitPremier(FICHIER,cCle)
TANTQUE PAS HEnDehors(FICHIER)
   Info(FICHIER.RUBRIQUE)
   HLitSuivant(FICHIER,cCLe)
FIN
HDesactiveFiltre(FICHIER)

// parcours le fichier du début à C
cCle est une chaine = HFiltre(FICHIER,Rubrique,hValMin,"C")
HLitPremier(FICHIER,cCle)
TANTQUE PAS HEnDehors(FICHIER)
   Info(FICHIER.RUBRIQUE)
   HLitSuivant(FICHIER,cCLe)
FIN
HDesactiveFiltre(FICHIER)