PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV 2024 → importation d'un fichier texte
importation d'un fichier texte
Started by hasnaaboussaa, Mar., 27 2006 10:42 PM - 4 replies
#1
Posted on March, 27 2006 - 10:42 PM
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
Posted on March, 28 2006 - 12:47 AM
voir la fonction HImporteTexte
#3
Posted on March, 28 2006 - 8:32 AM
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
Posted on March, 28 2006 - 8:32 AM
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
Posted on March, 28 2006 - 11:05 PM
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
→ Go back to WINDEV 2024