PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV (précédentes versions) → Creation fichier a partir d'une table
Creation fichier a partir d'une table
Débuté par Kael, 17 avr. 2004 21:47 - Aucune réponse
#1
Posté le 17 avril 2004 - 21:47
Bonjour à tous.

Là j'ai un problème plutot bizarre, j'ai recopé l'algo d'un des exmples fournis
avec windev 7.5 qui permet d'exporter chaque ligne d'une table dans un fichier
(de type .txt dans mon cas), tout marchait tres bien et puis du jour au lendemain,
ça ne marche plus.

Le probleme c'est qu'il ne créé plus le fichier a l'endroit que je lui dit
et sans son nom. A la place je retrouve des fichiers "1", "2" ou "3" sans
extension dans le repertoire EXE du projet.

Je vous donne quand même ce que j'ai fait :

repertoire = fSélecteur(rep, "", "Sélectionnez un fichier...", "Script AVS"+TAB+"*.avs"+RC+"Fichier
Texte"+TAB+"*.txt", "avs", fselCrée+fselExiste)
SI repertoire <> "" ALORS
TableVersTexte(t_apercu,repertoire)
....

***********************************************
PROCEDURE TableVersTexte(sNomFic,sSep=TAB)

h,j,nPos,nIDFic sont des entiers
sNomCol,sLigne sont des chaînes

nIDFic = fOuvre(sNomFic,foCréation+foEcriture)

nPos=TableSelect(t_apercu)
SI nPos < 1 ALORS nPos= 1
POUR h=1 A t_apercu..Occurrence
TableSelectPlus(t_apercu,h)
sLigne=""
POUR j = 1 A TableOccurrence(t_apercu,toColonne)
sNomCol =TableEnumèreColonne(t_apercu, j)
SI PAS sLigne ~= "" ALORS
sLigne += sSep
FIN
sLigne += {sNomCol}[h]
FIN
fEcritLigne(nIDFic,sLigne)
FIN
fFerme(nIDFic)
TableSelectPlus(t_apercu,nPos)
**************************************************
ou t_apercu est la table en question
Je précise que c'est une procédure locale de la fenêtre ou se trouve la table
(on sait jamais ^^)

Merci d'avance pour votre aide :)
→ Revenir à WINDEV (précédentes versions)