Page 3 sur 3
Re: Compter les lignes de plusieurs fichiers...
Posté : 22 déc. 2014, 10:05
par centaure
aerf... mince,.. je me suis emballé trop vite... ça marche "presque"...
En fait la macro ne vérifie que le premier fichier de la liste...
Si le premier fichier de la liste à moins de 400 lignes > Message d'alerte
mais
Si un fichier "en plein milieu" de la liste à moins de 400 lignes, ça marche pas, pas d'alerte... (message ok)
J'ai essayé de faire une macro avec une boucle, mais elle ne marche pas non plus... pourtant je suis sur qu'il ne manque pas grand chose !
:
Code : Tout sélectionner
Variable <var_Nom>;;Alpha;
Variable <var_Compteur>;0;Numerique;
Variable [CLIPBOARD];[CLIPBOARD];Alpha;
Variable <Var_Nbre_d_enregistrements>;0;Numerique;
Variable <compter_lignes>;0;Numerique;
Variable <fichier>;;Alpha;
Fonction <Var_Nbre_d_enregistrements>;Fichier;Nombre d'enregistrement;D:\mails-a-vérifier.txt;
Boucle <Var_Nbre_d_enregistrements>
Calcul <var_Compteur>;+;1;
Lire D:\mails-a-vérifier.txt;<var_Nom>;<var_Compteur>;
Calcul évolué [CLIPBOARD]=<var_Nom>
Calcul évolué <fichier>=<var_Nom>+.txt
Fonction <compter_lignes>;Fichier;Nombre d'enregistrement;D:\listes\<fichier>;
Examine <compter_lignes>;<;400;
Goto <Fichier_inférieur_a_400_lignes>
Goto <Fichier_superieur_a_400_lignes>
Pause 00:00:01
Label <Fichier_inférieur_a_400_lignes>
Message Message;Fichier inférieur à 400 lignes;
Goto <continuer>
Label <Fichier_superieur_a_400_lignes>
Message Message;Fichier Ok;
Label <continuer>
Boucle [FIN]
Re: Compter les lignes de plusieurs fichiers...
Posté : 28 déc. 2014, 22:07
par plvh935
Bonsoir,
Je comprend pas pourquoi tant de difficultés. Pour vérifier j'ai fait une macro simple qui marche bien. La voici :
Variable <Fichier>;C:\Program Files\Super macro\Liste_Fichiers\listefic.txt;Alpha;
Variable <Fic_a_lire>;;Alpha;
Variable <compteur>;0;Numerique;
Variable <Taille>;0;Numerique;
Variable <Repert>;C:\Program Files\Super macro\Liste_Fichiers\;Alpha;
Variable <Compteur1>;0;Numerique;
Commentaire Détermination du nombre de fichiers à contrôler
Fonction <Compteur1>;Fichier;Nombre d'enregistrement;<Fichier>;
Commentaire Détermination du nombre de lignes
Boucle <Compteur1>
Calcul évolué <compteur>=<compteur>+1
Lire <Fichier>;<Fic_a_lire>;<compteur>;
Calcul évolué <Fic_a_lire>=<Repert>+<Fic_a_lire>
Commentaire Teste si + de 400 lignes. Si oui affichage du nombre si non rien à faire.
Fonction <Taille>;Fichier;Nombre d'enregistrement;<Fic_a_lire>;
Examine <Taille>;>;400;
Message Taille du fichier en cours;<Taille>;
Commentaire Pas de sinon
Boucle [FIN]
C'est basé sur listefic.txt contenant le nom des fichiers à analyser (dans mon test 42 fichiers.txt de toutes tailles) et
une boucle qui avance dans cette liste puis un test sur le nombre de lignes de chaque fichier sélectionné (42 boucles)
Un message pour informer et c'est tout.
Fais signe si je suis pas clair.
Re: Compter les lignes de plusieurs fichiers...
Posté : 31 déc. 2014, 11:59
par centaure
Merci infiniement !! mais hélas de mon coté ça ne marche pas... (quand je fait lecture, il ne ce passe rien... pas de message d'erreur alors que j'ai un fichier .txt dans ma liste de fichiers qui as moins de 400 lignes)
Mais je pense que c'est parceque les fichiers à vérifier finissent par .txt (exemple "popo.txt")
alors que dans la liste des fichiers à vérifier, il n'y à pas le ".txt" (exemple "popo")
mais je ne sais pas comment corriger cela
Re: Compter les lignes de plusieurs fichiers...
Posté : 07 janv. 2015, 17:39
par Feitan
Hello, désolé pour la réponse tardive, pour ajouter le .txt tu passe par un calcul évolué, en 3 lignes ça donne ça :
Code : Tout sélectionner
Variable <Var1>;;Alpha;
Variable <Var2>;;Alpha;
Calcul évolué <Var1>=<Var2>+.txt
Re: Compter les lignes de plusieurs fichiers...
Posté : 08 janv. 2015, 08:12
par centaure
Merci bcp Feitan
mais (désolé de pas être un pro) dans la macro précédente (la tienne ou celle de plvh935) je dois rajouter/modifier ça ou pour que ça marche ?
Re: Compter les lignes de plusieurs fichiers...
Posté : 08 janv. 2015, 13:01
par Feitan
Dans la macro de plvh il faut que tu change cette ligne :
en
Re: Compter les lignes de plusieurs fichiers...
Posté : 15 janv. 2015, 10:07
par centaure
ok je test
merci encore !!!