PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → WINDEV (versões anteriores) → Creation fichier a partir d'une table
Creation fichier a partir d'une table
Iniciado por Kael, abr., 17 2004 9:47 PM - Sem resposta
#1
Publicado em abril, 17 2004 - 9:47 PM
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 :)
→ Voltar para WINDEV (versões anteriores)