Comment exporter le contenu d une table memoire dans un fichier texte ?
PROCEDURE TableVersTexte(sNomTable,sNomFicTxt="Export.txt",sSeparateur = ";")
//Variables
nIdFichier, i, j sont des entiers
sNomColonne, sLigne est une chaîne
// Creation et ouverture du fichier
nIdFichier = fOuvre(sNomFicTxt,foCreation + foEcriture)
// Verification de l ouverture du fichier
SI nIdFichier = -1 ALORS
Erreur("Impossible de creer le fichier texte d exportation",ErreurInfo())
RENVOYER ""
SINON
//Parcours de la table
POUR i = 1 A {sNomTable}..Occurrence
j = 1
sNomColonne = TableEnumèreColonne(sNomTable,j)
TANTQUE sNomColonne <> ""
SI {sNomColonne}..Visible = Vrai ALORS
sLigne = sSeparateur + {sNomColonne}[i]
FIN
j ++
sNomColonne = TableEnumèreColonne(sNomTable,j)
FIN
sLigne = sLigne[[Taille(sSeparateur) A ]] //Suppression du premier separateur
fEcrit(nIdFichier,sLigne + RC)
SI ErreurDetectee ALORS
Erreur("Erreur lors de l ecriture dans le fichier",ErreurInfo())
RENVOYER ""
FIN
FIN
FIN
fFerme(nIdFichier)
RENVOYER sNomFicTxt