1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
PROCEDURE ImportFicDbase(FicDbase, FicHF15, ClePrincipale)
// Récupérer les rubriques d'un fichier de l'analyse en cours
ListeRubrique est une chaîne
ListeRubrique = HListeRubrique(FicDbase)
i,NbrEnr sont des entiers
i=0
HCréation(FicHF15)
// Récupération du nombre d'enregistrement
NbrEnr=HNbEnr(FicDbase)
HLitPremier(FicDbase, ClePrincipale)
// Boucle pour traiter tous les enregistrements
TANTQUE PAS HEnDehors(FicDbase)
// Lecture de l'enregistrement xBase
i=i+1
Jauge(i,NbrEnr)
//Pour chaque enregistrement, il faut parcourir les rubriques.
POUR TOUTE CHAINE sUneRubrique DE ListeRubrique SEPAREE PAR RC
{FicDbase+"."+sUneRubrique,indRubrique}=OemVersAnsi({FicDbase+"."+sUneRubrique,indRubrique})
FIN
// Ajoute l'enregistrement dans le fichier FicHF15
HCopieEnreg(FicHF15, FicDbase)
HAjoute(FicHF15)
// Passe à l'enregistrement suivant
HLitSuivant(FicDbase, ClePrincipale)
FIN
Jauge() |
Partager