Compter les lignes de plusieurs fichiers...

Postez ici si vous avez des difficultés a comprendre une commande, ou a créer une macro.
centaure
Messages : 27
Enregistré le : 14 mai 2014, 08:37

Re: Compter les lignes de plusieurs fichiers...

Message par centaure » 22 déc. 2014, 10:05

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]


plvh935
Messages : 166
Enregistré le : 10 sept. 2014, 22:33

Re: Compter les lignes de plusieurs fichiers...

Message par plvh935 » 28 déc. 2014, 22:07

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.

centaure
Messages : 27
Enregistré le : 14 mai 2014, 08:37

Re: Compter les lignes de plusieurs fichiers...

Message par centaure » 31 déc. 2014, 11:59

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 :(

Avatar du membre
Feitan
Site Admin
Messages : 301
Enregistré le : 11 avr. 2014, 15:15

Re: Compter les lignes de plusieurs fichiers...

Message par Feitan » 07 janv. 2015, 17:39

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

centaure
Messages : 27
Enregistré le : 14 mai 2014, 08:37

Re: Compter les lignes de plusieurs fichiers...

Message par centaure » 08 janv. 2015, 08:12

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 ?

Avatar du membre
Feitan
Site Admin
Messages : 301
Enregistré le : 11 avr. 2014, 15:15

Re: Compter les lignes de plusieurs fichiers...

Message par Feitan » 08 janv. 2015, 13:01

Dans la macro de plvh il faut que tu change cette ligne :

Code : Tout sélectionner

Calcul évolué <Fic_a_lire>=<Repert>+<Fic_a_lire>
en

Code : Tout sélectionner

Calcul évolué <Fic_a_lire>=<Repert>+<Fic_a_lire>+.txt

centaure
Messages : 27
Enregistré le : 14 mai 2014, 08:37

Re: Compter les lignes de plusieurs fichiers...

Message par centaure » 15 janv. 2015, 10:07

ok je test :) merci encore !!!

Répondre