PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV 2024 → PROGRAMME D'EXPORTATION DE DONNEES
PROGRAMME D'EXPORTATION DE DONNEES
Started by gwulfrid, Mar., 17 2006 8:32 PM - 3 replies
#1
Posted on March, 17 2006 - 8:32 PM
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
Posted on March, 17 2006 - 9:44 PM
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
Posted on March, 18 2006 - 1:04 PM
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
Posted on March, 18 2006 - 5:36 PM
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
→ Go back to WINDEV 2024