PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → importation d'un fichier texte
importation d'un fichier texte
Iniciado por hasnaaboussaa, 27,mar. 2006 22:42 - 4 respuestas
#1
Publicado el 27,marzo 2006 - 22:42
salut à tout le monde
je voudrais vider la base de donnée en windev et de la recharger par des nouveaux informations "données" qu'on reçoit à partir d'n fichier texte.
le fichier lorsqu'on l'ouvre se constitue comme suite: ex:
00012;FARNC;GFTY457;JULES HENRI;IVOI;01021958;JUKI; le format de fichier texte est fixe, ne change pas.
svp je veux un programme qui permet de réaliser ce travail
please je veux la reponse le plus vite possible
et merci
#2
Publicado el 28,marzo 2006 - 00:47
voir la fonction HImporteTexte
#3
Publicado el 28,marzo 2006 - 08:32
Bonjour


hcreation(TonfichierHF)

puis allez dans l'exemple dans l'aide de windev de la commande : flitligne

copiez dans un bouton tout le code puis changez cela :

.....
saisieFichier = ligneLue
Tantque LigneLue<>eot et LigneLue<>""
LigneLue=flitligne(idfichier)
saisieFichier=saisieFichier+LigneLue
fin
....

par

//supposon que les rubriques de ton fichier sont :
//00012=>Rub1
//FARNC=>Rub2
//GFTY457=>Rub3
//JULES HENRI=>Rub4
//IVOI=>Rub5
//01021958=>Rub6
//JUKI=>Rub7
....
hraz(TonfichierHF)
TonfichierHF.Rub1=extraitchaine(ligneLue,1,",")
TonfichierHF.Rub2=extraitchaine(ligneLue,2,",")
TonfichierHF.Rub3=extraitchaine(ligneLue,3,",")
TonfichierHF.Rub4=extraitchaine(ligneLue,4,",")
TonfichierHF.Rub5=extraitchaine(ligneLue,5,",")
TonfichierHF.Rub6=extraitchaine(ligneLue,6,",")
TonfichierHF.Rub7=extraitchaine(ligneLue,7,",")
si pas hajoute(TonFichierHF)
erreur("Erreur pendant l'ajout dans le fichier",herreurinfo())
fin
Tantque LigneLue<>eot et LigneLue<>""
LigneLue=flitligne(idfichier)
hraz(TonfichierHF)
TonfichierHF.Rub1=extraitchaine(ligneLue,1,",")
TonfichierHF.Rub2=extraitchaine(ligneLue,2,",")
TonfichierHF.Rub3=extraitchaine(ligneLue,3,",")
TonfichierHF.Rub4=extraitchaine(ligneLue,4,",")
TonfichierHF.Rub5=extraitchaine(ligneLue,5,",")
TonfichierHF.Rub6=extraitchaine(ligneLue,6,",")
TonfichierHF.Rub7=extraitchaine(ligneLue,7,",")
si pas hajoute(TonFichierHF)
erreur("Erreur pendant l'ajout dans le fichier",herreurinfo())
fin
fin
....

A++

Ali Hindi : AliDev7@yahoo.fr
#4
Publicado el 28,marzo 2006 - 08:32
Re Bonjour,


NB : emplacez le separateur "," dans la commande flitligne(...) par ";"

2 ème methode qui suppose que le fichier txt est identique au fichier HF

si pas himprtetexte("TonFichier","c:\.....\TonFichierTXT.txt","Rub1,Rub2,Rub3,Rub4,Rub5,Rub6,Rub7",himpcréation)
errreur("L'importation à rencontrer une erreur",herreurinfo())
sinon
info("C'est bon")
fin


Bon Dev.

Ali Hindi : AliDev7@yahoo.fr
#5
Publicado el 28,marzo 2006 - 23:05
hasnaa a formulé la demande :
salut à tout le monde
je voudrais vider la base de donnée en windev et de la recharger par des
nouveaux informations "données" qu'on reçoit à partir d'n fichier texte. le
fichier lorsqu'on l'ouvre se constitue comme suite: ex:
00012;FARNC;GFTY457;JULES HENRI;IVOI;01021958;JUKI; le format de fichier
texte est fixe, ne change pas. svp je veux un programme qui permet de
réaliser ce travail please je veux la reponse le plus vite possible et merci


Tu peux aussi utiliser WDConver en ligne de commande. voir l'aide
→ Volver a WINDEV 2024