PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → WD - Como exportar o conteúdo de uma tabela de memória em um arquivo de texto?
WD - Como exportar o conteúdo de uma tabela de memória em um arquivo de texto?
Débuté par BOLLER ADRIANO, 02 juil. 2016 02:01 - Aucune réponse
Membre enregistré
3 665 messages
Popularité : +175 (223 votes)
Posté le 02 juillet 2016 - 02:01
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


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/