PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → exportation d'une requête vers un fichier texte
exportation d'une requête vers un fichier texte
Débuté par guest, 26 oct. 2005 11:43 - 3 réponses
#1
Posté le 26 octobre 2005 - 11:43
bonjour,

après avoir créer une requête, comment puis-je exporter son contenu vers un fichier texte?
J'aimerai que l'exportation se lance après avoir cliquer sur un bouton "exporter".
Auriez-vous un exemple pour me guider?

je vous remercie d'avance
cdt

fred
#2
Posté le 26 octobre 2005 - 12:29
salut !

On 26-Oct-2005, "fred" <guest@newsgroup.fr> wrote:

bonjour,

après avoir créer une requête, comment puis-je exporter son contenu vers
un fichier texte?
J'aimerai que l'exportation se lance après avoir cliquer sur un bouton
"exporter".
Auriez-vous un exemple pour me guider?

je vous remercie d'avance
cdt

fred



Tu ouvres un fichier texte avec les commandes qui vont bien, et si
l'ouverture a réussi, tu fait :
Pour tout <nomrequète>
fécrit(handledufichiertexte,hrecupèreenregistrement(<nomrequète>))
fin
et tu fermes ton fichier texte ...

En espérant t'avoir mis sur la piste ...
Bien à toi !

--
Marcel Berman
c/o Managing Business SPRL
Allée du Petit Paris, 11
B - 1410 - Waterloo
Tel : +32 2 351.60.64
Fax : +32 2 351.45.78
Gsm : +32 475.799.477
#3
Posté le 26 octobre 2005 - 21:06
bonjour,
merci pour ton aide.
Je me suis également aidé de l'assistant. Voilà le code généré:



nIdfic est un entier
sMaChaine est une chaîne
nIdfic = fOuvre("d:\fichier.txt", focréationsiInexistant+foajout+folectureecriture)
si nIdfic =-1 alors
erreur("erreur")
sinon
sMaChaine = "texte à écrire"
fecritLigne(nIdfic, sMaChaine)
fFerme(nIdfic)
fin

Mais je souhaite écrire dans ce fichier toutes les lignes d'un fichier ou via une requête. Comment puis-je faire?
merci d'avace
cdt
fred
#4
Posté le 26 octobre 2005 - 22:37
Salut !

On 26-Oct-2005, "fred" <guest@newsgroup.fr> wrote:

bonjour,
merci pour ton aide.
Je me suis également aidé de l'assistant. Voilà le code généré:



nIdfic est un entier
sMaChaine est une chaîne
nIdfic = fOuvre("d:\fichier.txt",
focréationsiInexistant+foajout+folectureecriture)
si nIdfic =-1 alors
erreur("erreur")
sinon
sMaChaine = "texte à écrire"
fecritLigne(nIdfic, sMaChaine)
fFerme(nIdfic)
fin

Mais je souhaite écrire dans ce fichier toutes les lignes d'un fichier ou
via une requête. Comment puis-je faire?
merci d'avace
cdt
fred



J'ai l'impression de me répéter ... mais bon ... la réponse est ci-dessous
....

nIdfic est un entier
sMaChaine est une chaîne
nIdfic = fOuvre("d:\fichier.txt",
focréationsiInexistant+foajout+folectureecriture)
si nIdfic =-1 alors
erreur("erreur")
sinon

//-------------------------------------------- code de lecture du fichier et
d'écriture dans le fichier texte
pour tout monfichier
fécriligne(nldfic,hrecupereenregistrement(monfichier))
fin
//-------------------------------------------- fn du code ...
fFerme(nIdfic)
fin


pour tout monfichier
fécriligne(nldfic,hrecupereenregistrement(monfichier))
fin

Bien à toi !
--
Marcel Berman
c/o Managing Business SPRL
Allée du Petit Paris, 11
B - 1410 - Waterloo
Tel : +32 2 351.60.64
Fax : +32 2 351.45.78
Gsm : +32 475.799.477
→ Revenir à WINDEV 2024