WDForge.org - Forums

Re: Table vers Fichier

Sujet: Re: Table vers Fichier
par R&B sur 5/8/2005 10:51:06

Oui, maintenant que je sais où on va, je puis être plus clair

Vous voulez transférer le contenu de votre table fichier dans un autre fichier HyperFile.

Evidement je vous laisse le soin de mettre en correlation la structure du fichier cible avec les données à exporter.

Dans un bouton, ajoutez y le code suivant :

SI TABLE..Vide ALORS RETOUR
i,j sont des entiers
J=TableOccurrence(TABLE,toTotal)

POUR i = 1 A j
   HRAZ(FICHIER2)
   FICHIER2.RUB1=TABLE.COLONNE[i]
   ...
   HAjoute(FICHIER2)
FIN

Attention, ce code pose un problème cas les lignes non affichée ne sont pas lues et donc ne devraient être accessible.
Néanmoins, il doit être possible alors de parcourir le fichier source de la table (plus rapide en plus)...

SI TABLE..Vide ALORS RETOUR
cFic est une chaine=TABLE..FichierParcouru
cCle est une chaine=TABLE..RubriqueParcourue
nPos est un entier = hSauvePosition(cFic)
hLitPremier(cFic,cCle)
TANTQUE PAS HEnDehors(cFic)
   HRAZ(FICHIER2)
   FICHIER2.RUB1=FICHIER1.RUBRIQUE
   ...
   HAjoute(FICHIER2)
   HLitSuivant((cFic,cCle)
FIN
HRetourPosition(nPos)