PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → PROGRAMME D'EXPORTATION DE DONNEES
PROGRAMME D'EXPORTATION DE DONNEES
Iniciado por gwulfrid, 17,mar. 2006 20:32 - 3 respuestas
#1
Publicado el 17,marzo 2006 - 20:32
Je voudrais exporter un fichier d'extension txt en creant une nouvelle base de donné en windev.le fichier lorsqu'on l'ouvre se constitue comme suite:
ex: 00012;FARNC;GFTY457;JULES HENRI;IVOI;01021958; ; JUKI; ;....et l'enregistrement peut même continué a la ligne suivante.La fin d'un enregistrement est marqué par (; ;)

COMMENT ECRIRE DONC UN PROGRAMME ME PERMETTANT EN MEME TEMPS QUE J'EFFECTUE LE TRANSFERT DES DONNE DE CREER DES COLONNES A LA PLACE DE POINT VIRGULES ( ; )

Merci j'attend patiemment une suite.
#2
Publicado el 17,marzo 2006 - 21:44
Il se trouve que guinnin wulfrid a formulé :
Je voudrais exporter un fichier d'extension txt en creant une nouvelle base
de donné en windev.le fichier lorsqu'on l'ouvre se constitue comme suite: ex:
00012;FARNC;GFTY457;JULES HENRI;IVOI;01021958; ; JUKI; ;....et
l'enregistrement peut même continué a la ligne suivante.La fin d'un
enregistrement est marqué par (; ;)

COMMENT ECRIRE DONC UN PROGRAMME ME PERMETTANT EN MEME TEMPS QUE J'EFFECTUE
LE TRANSFERT DES DONNE DE CREER DES COLONNES A LA PLACE DE POINT VIRGULES ( ;
)

Merci j'attend patiemment une suite.


fChargeTexte pour charger en une seule instruction le fichier dans une
chaine.
ensuite l'instruction POUR TOUT vous permet de parcourir la chaine
ligne à ligne et de traiter les données. A chaque itération : mise en
forme si besoin + HAjoute dans le fichier Hyper File.
A+
#3
Publicado el 18,marzo 2006 - 13:04
Et en imposant une taille à chaque rubrique ?
Nom=Complète(Nom,50)
Prenom=Complète(Prenom,30)
Pour obtenir des colonnes alignées dans le fichier txt, il faut alors utiliser une police non proportionnelle (type courrier)
#4
Publicado el 18,marzo 2006 - 17:36
Bonjour,

Si j'ai bien compris vous pouvez faire :

idfichier est un entier = fouvre("Ton fichier texte",folectureecriture)
si idfichier <>-1
Ligne1 est une chaine="|"+repete("-",70)+"|"+
titre est une chaine=""
Ligne2 est une chaine="|"+repete("-",70)+"|"+
txt est une chaine="|"+Complète(Nom,30)+"|"+Complète(Prenom,30)+"|"+
si fecritligne(idfichier,Ligne1)=faux
---erreur("blablabalbalbalbalnba")
fin
si fecritligne(idfichier,titre)=faux
---erreur("blablabalbalbalbalnba")
fin
si fecritligne(idfichier,Ligne2)=faux
---erreur("blablabalbalbalbalnba")
fin
pour tout "tonfichier" sur la "rubriqueclé"
fecritligne(idfichier,"|"+Complète(tonfichier.Nom,30)+"|"+Complète(tonfichier.Prénom30)+"|"
fin
fin

vérifier ce code ( écrit à la volé )

Bonne dev.

Ali Hindi : AliDev7@yahoo.fr
→ Volver a WINDEV 2024