Re: Table vers Fichier
Posté par R&B le 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 :
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)...
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)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=2587&post_id=10965