| Vous pouvez vous inspirer du code suivant :
//1 - Code clic d`un bouton :
LanceAppliAssociée(TableVersTexte(Table..Nom))
//2 - Code de la procédure TableVersTexte()
PROCEDURE TableVersTexte(sNomTable,sNomFicTxt="Export.txt",sSéparateur = ";")
nIdFichier, i, j sont des entiers
sNomColonne, sLigne est une chaîne
//Code valable pour une table mémoire :
// Création et ouverture du fichier
nIdFichier = fOuvre(sNomFicTxt,foCréation+foEcriture)
// Vérification de l`ouverture du fichier
SI nIdFichier = -1 ALORS
Erreur("Impossible de créer 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+= sSéparateur+{sNomColonne}[i]
FIN
j++
sNomColonne = TableEnumèreColonne(sNomTable,j)
FIN
sLigne = sLigne[[Taille(sSéparateur) A ]] //Suppression du premier séparateur
fEcrit(nIdFichier,sLigne+RC)
SI ErreurDétectée ALORS
Erreur("Erreur lors de l`écriture dans le fichier",ErreurInfo())
RENVOYER ""
FIN
FIN
FIN
fFerme(nIdFichier)
RENVOYER sNomFicTxt
|