Récupération automatique du fichier txt du jour pour traitement

Version imprimable

08/01/2013, 20h30
Gibs98

Récupération automatique du fichier txt du jour pour traitement

Bonjour à tous,

Je reçois quotidiennement la mise à jour de mon fichier principal d à travers des fichiers en txt qui ont un numéro qui se génère automatiquement de la façon suivante : C120624 - C120625 - C120626.... (AAMMJJ). Tous ces fichiers se cumulent dans un même dossier.

Pour ce qui est du traitement des données : c'est ok en revanche je ne sais pas comment coder pour que la récupération du fichier du jour se fasse en automatique avant traitement.

En espérant que vous pourriez me mettre sur la voie.

Merci beaucoup par avance.
09/01/2013, 08h21
tatayo

Bonjour,
Qu'est-ce que tu entends par "la récupération du fichier du jour" ?

Tatayo.

Automatiquement -> timersys.

Trouver le fichier :
Code:

1 2 3 4 5 6 7 sNomFic est chaine sNomFic = DateSys() sNomFic = sNomFic[[3 a 8]] sNomFic = "C" + sNomFic si ffichierexiste(sNomFic) alors //traitement fin
[EDIT]J'avais mis "S" à la place de "C"... :oops:

bonjour, ou comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sDate est une chaîne=DateDuJour()
sDate=Droite(sDate,6)
 
MonFichier est une chaîne="C130109"
MonFichier=Droite(MonFichier,6)
SI MonFichier=sDate ALORS
	Info("Monfichier est le fichier du jour")
	MonFichier="C"+MonFichier
	Info("monfichier est : "+MonFichier)
	//traitement
SINON
	Info("non")
	//traitement
FIN

15/01/2013, 21h57
Gibs98

Merci beaucoup à vous, j'ai résolu mon problème.

Re bonjour à tous, je réouvre la discussion car je n'avais pas pensé aux aléas éventuels....

Normalement je reçois le fichier du jour pour traitement mais il arrive parfois que ce fichier ne soit pas envoyé le jour J mais par exemple 2 jours après....donc avec 2 autres fichiers (ceux de la veille et de l'avant veille) => ce qui donne 3 fichiers à traiter en J+3. Donc je ne peux pas baser mon traitement uniquement sur la datesys().

Donc s'il n'y a que le fichier du jour = On le traite mais si il y a plusieurs fichiers, il faudrait que le fichier le plus ancien soit traité en premier

* Tous ces fichiers commencent par la lette C à laquelle se rajoute AAMMJJ => C130211 - C130212....

* Ils arrivent tous dans un même dossier : C:\Users\Gibs\Desktop\INBOX\"+CAAMMJJ+".txt"

*Ils doivent être traités par ordre croissant pour ensuite être déplacés dans un autre dossier:
C:\Users\Gibs\Desktop\DONE\"+CAAMMJJ+".txt"

J'ai pensé partir sur une Liste qui regrouperait tous les fichiers qui commencent par "C" pour ensuite faire le traitement sur chacun des fichiers. => mais je n'y arrive pas.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Recherch est une chaîne RepCourant est une chaîne = "C:\Users\GIBS\Desktop\INBOX\"+"C*.*" // On vide la liste LISTFIC ListeSupprimeTout(LISTFIC) // On amorce la recherche. // La constante FRFichier indique qu'on recherche des fichiers Recherch=fRep(RepCourant,frFichier) // Recherch = "" si plus de fichiers dans le répertoire TANTQUE Recherch <> "" // On ajoute le fichier trouvé dans la liste LISTFIC ListeAjoute(LISTFIC,Recherch) // On recherche le suivant Recherch=fRep("",frFichier) FIN
Le traitement qui doit s'effectuer (je vous mets mon code actuel qui est donc basé sur datesys()
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 unfichier est une chaîne unfichier = DateSys() unfichier = unfichier[[3 A 8]] unfichier = "C" + unfichier unfichier = "C:\Users\Gibs\Desktop\INBOX\"+unfichier+".txt" SI fFichierExiste(unfichier) = Vrai ALORS Info("Le fichier " + unfichier + " existe bien sur le disque") ni est un entier NbreEnr est un entier ni = 0 NbreEnr = HNbEnr(HF_CV) //----------------- nIdfichier est un entier sChaîneLue est une chaîne // Ouverture du fichier nIdfichier = fOuvre(unfichier, foLecture) SI unfichier <> -1 ALORS // Lecture du fichier sChaîneLue = fLitLigne(nIdfichier) TANTQUE sChaîneLue <> EOT //-------------------- ni ++ Jauge(ni,NbreEnr,"Import des mises à jours") //---------------------- HLitPremier(HF_CV,ND) HLitRecherchePremier(HF_CV,ND,sChaîneLue[[13 sur 9]]) TANTQUE HTrouve()=Vrai //------------------- PJ_VAL_CP.ND=HF_CV.ND PJ_VAL_CP.DateDebutvalidite=HF_CV.DateDebutvalidite HAjoute(PJ_VAL_CP) FIN //--------------------- HLitPremier(HF_CV,ND) HLitRecherchePremier(HF_CV,ND,sChaîneLue[[13 sur 9]]) TANTQUE HTrouve()=Vrai HSupprime() HLitSuivant() FIN // FIN // Récupération des données HF_CV.codeenregistrement = sChaîneLue[[1 sur 2]] // => OK HF_CV.dateconstitutiondossier = ChaîneVersDate(sChaîneLue[[3 sur 10]],"AAAA-MM-JJ") // => OK HF_CV.ND = sChaîneLue[[13 sur 9]] // => OK HF_CV.NOM=sChaîneLue[[20 sur 35]] // => OK // J'ajoute les données HAjoute(HF_CV) sChaîneLue = fLitLigne(nIdfichier) FIN FIN // Fermeture du fichier fFerme(nIdfichier) Info("Traitement du fichier STATUT OK") Jauge() SINON Erreur("Le fichier n'est pas disponible") FIN
Merci pour votre aide ;-)

12/02/2013, 08h22
tatayo

Bonjour,
Tu peux utiliser fListefichier pour récupérer la liste des fichiers présents dans le répertoire. Cette fonction renvoie la liste sous forme de chaine de caractères.
Il me semble que la liste est triée par nom, mais si tu veux "forcer le tri":
Il suffit de parser cette chaine, de mettre le tout dans un tableau puis de trier le tableau.
Ainsi les fichiers sont dans l'ordre chronologique, il ne te reste plus qu'à parcourir le tableau et traiter les fichiers.

J'ai cherché dans l'aide, visiblement on ne peut pas trier une variable "liste", d'où mon passage par un tableau.

Tatayo.
12/02/2013, 08h43
WDKyle

Bonjour,

Une fois un fichier txt récupéré et "mouliné" dans ton application Windev, ne peux tu pas le déplacer dans un dossier d'archive ?

Comme çà, si des fichiers arrivent plus tard, tu les mets dans un dossier temporaire de "traitement" on va dire et dans ce dossier il n'y aura que les fichiers à traiter. A toi après de vérifier la date d'arrivé des fichiers pour savoir lequel traiter en premier, second, etc...
12/02/2013, 10h05
frenchsting

Je plussoie Tatayo et Damien. Sans déplacer le fichier, tu peux le renommer (en changeant l'extension en ".old"). En te débrouillant bien cela n'interfère pas avec le filtre d'un flistefichier().

Bonjour,

j'y vais de ma proposition :

Parcours de tous les fichiers présents dans le répertoire pour connaître quel est le plus ancien. FListeFichier te donne une chaîne dont tu peux isoler chaque composante par le séparateur et la date par le nom (CAAMMJJ nous permet de savoir cela).

Ensuite on cherche si un fichier JJ, JJ+1, JJ+2 ... existe jusqu'à la date du jour. Comme le traitement fait également le ménage on a parcouru tous les fichiers CXXXXX.txt et on est sûr d'avoir traité dans l'ordre.

Très sommairement et sans aucun contrôle :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 UnFichier, ResListeFichier, PlusVieuxFichier, FichierEnCours, FichierDuJour sont des chaînes EntierDate est un entier PlusVieuxFichier= DateSys() PlusVieuxFichier= PlusVieuxFichier[[3 A 8]] PlusVieuxFichier= "C" + PlusVieuxFichier FichierDuJour=PlusVieuxFichier ResListeFichier = fListeFichier("C:\Users\GIBS\Desktop\INBOX\"+"C*.*",frInterruptible) // Pour chaque fichier trouvé POUR TOUTE CHAÎNE UnFichier DE ResListeFichier SEPAREE PAR RC // Test de la date FichierEnCours = ExtraitChaine(UnFichier,1,".",) SI VAL(PlusVieuxFichier[[2 A 7]]) > VAL(FichierEnCours[[2 A 7]]) ALORS PlusVieuxFichier = FichierEnCours FIN FIN EntierDate = VAL(PlusVieuxFichier[[2 A 7]]) TANTQUE PlusVieuxFichier <> FichierDuJour SI fFichierExiste(PlusVieuxFichier) = Vrai ALORS // Traitement sur le fichier ... // Déplacement du fichier ou suppression ... FIN // Changement de fichier EntierDate += 1 PlusVieuxFichier = "C"+ NumeriqueVersChaine(EntierDate) FIN
Bon courage,

Nicolas