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,foCréation + 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 ErreurDétectée ALORS
Erreur("Erreur lors de l ecriture dans le fichier",ErreurInfo())
RENVOYER ""
FIN
FIN
FIN

fFerme(nIdFichier)
RENVOYER sNomFicTxt