VBS- Traiter fichiers dans un répertoire Résolu

Question

Bonjour, VBScript : Traiter chaque fichier dans un répertoire ? Assez complexe - Help Bonjour à tous, Etant debutant et n'ayant pas vraiment trouvé une réponse en cherchant, je vous pose la question : J'ai plusieurs fichiers log qui contiennent les données de backup de chaque utilisateurs : il contient la date, la taille du backup, le nombre de fois.... La taille du backup dans le fichier est délimitée par des "< >". Par exemple < 700.450> J'ai commencé par traité un seul fichier pour m'entrainer. J'effectue une recherche dans le texte et j'arrive à saisir la valeur située entre les <> avec ce code : Code : Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("H:\Backup\user1-Backup.log") Do Until objFile.AtEndOfStream strData = "" strSearchString = objFile.ReadLine intStart = InStr(strSearchString, "<") If intStart <> 0 Then intStart = intStart + 2 strText = Mid(strSearchString, intStart, 250) For i = 1 to Len(strText) If Mid(strText, i, 1) = ">" Then Exit For Else strData = strData & Mid(strText, i, 1) End If Next Le résultat de cette opération est stocké dans un fichier texte. ( Est ce la bonne méthode ? ou faut-il stocker temporairement en mémoire ? ) Jusque là je me débrouilles péniblement. Mais là ou je bloque c'est que je dois effectuer ces opérations sur tous les fichiers présents dans un répertoire et je ne sais vraiment pas comme faire ? Je dois faire aussi le total de la taille des backup présents dans chaque fichier et placer le résultat dans un fichier texte unique pour les statistiques mais je galère vraiment... ça veut dire que dois effectuer le premier code en haut pour chaque fichier, faut-il créer une fonction ou un sub pour ce code et l'appeler dans la boucle FOR...EACH ? J'ai vraiment du mal à coder... Peut-on stocker le résultat de chaque fichier dans une variable ou plusieurs variables et les mettre ensuite dans un fichier unique , je deviens fou, cela fait 3 jours que je galère , je désespere vraiment.. Tous ce que je sais : Code : Set oFSO = CreateObject("Scripting.FileSystemObject") stRep = Dossier For Each oFl In oFSO.GetFolder(stRep).Files ................ LE CODE POUR 1 FICHIER ................ Loop Excusez moi s'il y a des fautes ou si je ne suis pas clair, il est 3h30 du mat et je me casse la tete sur le code. En plus ça doit etre fonctionnel pour la fin de la semaine sinon le chef ne va pas être content... PLEASE AIDEZ MOI SVP

teteve · Answer

Salut,

Laisse moi un peu de temps que j'me remette en tête le VBS et j'te dis ça... ;)

PS : il est 11h20, j'viens de me lever donc j'ai aussi la tête en vrac... :)

teteve · Answer

Alors, peux tu me donner un exemple de la structure d'un fichier log stp ? (savoir s'il y a plusieurs sauvegardes enregistrées sur le même fichier, donc plusieurs chaines <...> à rechercher ou une seule...etc...)
Euh... je sais pas lequel des deux a le cerveau le plus embrouillé, mais j'ai pas tout compris la finalité du script... Peux tu me redire précisement (avec des exemples si besoin) ce que tu veux ?
Et dois tu parcourir tous les fichiers d'UN répertoire (backup) ou le faire de façon récursive dans une arborescence ?

winzip · Answer

Merci teteve de me répondre . Je résume : J'ai un folder qui contient des logs. Je dois parcourir chaque log situé dans ce folder et extraire des informations que je dois stocker dans un seul fichier qui servira de statistique : il contiendra la somme de tous les backups, la fréquence des backups.... Voici le contenu d'un fichier backup (h:\Backup\user1-backup.log : ************************************************************************************************************************ Backup date: <27/06/2007 16:41:54> Total size of the backup : <<678.692 Mb>> ************************************************************************************************************************ ************************************************************************************************************************ Backup date: <13/07/2007 10:59:31> Total size of the backup : <<696.333 Mb>> ************************************************************************************************************************ ************************************************************************************************************************ Backup date: <24/08/2007 12:15:16> Total size of the backup : <<710.514 Mb>> ************************************************************************************************************************ ************************************************************************************************************************ Backup date: <14/09/2007 17:45:27> Total size of the backup : <<747.748 Mb>> ************************************************************************************************************************ ************************************************************************************************************************ Backup date: <19/09/2007 18:08:55> Total size of the backup : <<755.377 Mb>> ************************************************************************************************************************ Comme tu peux le voir on a la date et la taille du backup. Je dois aller extraire dans chaque fichier la valeur située entre les "< >" et les "<< >>" Donc pour la taille totale, je dois prendre la dernière valeur dans chaque fichier et les additionner Si tu as besoin de plus de précisions n'hésites pas . MERCI ENCORE !!!

teteve · Answer

Set objFSO = CreateObject("Scripting.FileSystemObject") Set objRep = objFSO.GetFolder("H:\Backup") For Each file In objRep Set objFile = objFSO.OpenTextFile(file) Do Until objFile.AtEndOfStream strData = "" strSearchString = objFile.ReadLine intStart = InStr(strSearchString, "<") If intStart <> 0 Then intStart = intStart + 2 strText = Mid(strSearchString, intStart, 250) For i = 1 To Len(strText) If Mid(strText, i, 1) = ">" Then Exit For Else strData = strData & Mid(strText, i, 1) End If Next Set objFile = Nothing End if Next (j'ai laissé tel quel ton analyse de chaine...) voilà déjà pour parcourir tous les fichiers... Par contre je n'ai toujours pas compris comment tu veux ressortir tes données... créer un seul fichier avec : date taille date taille date taille ... Ou un fichier avec toutes les dernières tailles des sauvegardes ? taille_user1 taille_user2 taille_user3 ...

winzip · Answer

Merci teteve pour ta rapidité !! je test ça...

Il faudrait un seul fichier qui contient la somme de tous les derniers backup effectué

Donc : 

taille dernier backup-user1  +  tailler dernier backup-user2 + ........

Tu vois ce que je veux dire ? N'hésites pas s'il te faut plus d'explications

teteve · Answer

J'regarde ça, j'viens enfin de retrouver la fonction qui me manquait... :)
(j'ai laissé toutes mes docs au boulot...)

teteve · Answer

en premier jet, voici ce que je te propose... A toi de le modifier après si besoin, ou de demander si tu ne comprends pas un passage... Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFiles = objFSO.GetFolder("H:\Backup").Files dbleCompteur = 0 For Each file In objFiles strFile = objFSO.OpenTextFile(file).ReadAll IntStart = InStrRev(strFile, "<<") + 2 IntStop = InStrRev(strFile, ">>") - 4 IntLong = IntStop - IntStart If IntStart <> 0 Then strData = Replace(Mid(strFile, IntStart + 2, IntLong), ".", ",") End If dbleCompteur = dbleCompteur + CSng(strData) Set strFile = Nothing Next ' Tu as ta variable dbleCompteur qui contient la taille de toutes les dernières archives... ' L'écrire dans un fichier, dans une cellule Excel.... Cela correspond à tes attentes ? PS : petit inconvénient de cette méthode, c'est que je charge tout le contenu du fichier texte dans la variable strFile. A éviter en cas de gros fichiers, refaire une boucle sur chaque ligne (ou juste sur les premières en partant de la fin...)

winzip · Answer

Ok merci pour le code recherche entre les tags <<>> MAintenant faut que je le fasse pour chaque fichier et ensuite additionner le résultat trouver dans chaque fichier. Au final je dois avoir la somme. La ou je cale c'est comment prendre le résultat trouvé dans chaque fichier , additionner le tout et le placer dans un fichier texte Si tu pouvais m'aider..... PLZ

teteve · Answer

regarde bien le code... c'est déjà fait... Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFiles = objFSO.GetFolder("H:\Backup").Files ' Je récupère l'objet "ensemble des fichiers du répertoire Backup" dbleCompteur = 0 ' J'initialise le compteur (correspond au total des backups) For Each file In objFiles ' Pour chaque fichier, je fais : strFile = objFSO.OpenTextFile(file).ReadAll ' - j'ouvre le fichier, je le lis et je place le contenu dans la variable strFile IntStart = InStrRev(strFile, "<<") + 2 IntStop = InStrRev(strFile, ">>") - 4 ' - je fais ma recherche pour avoir le dernier chiffre placé entre "<< >>" IntLong = IntStop - IntStart If IntStart <> 0 Then strData = Replace(Mid(strFile, IntStart + 2, IntLong), ".", ",") ' je récupère le chiffre de taille (et j'remplace le "." par "," au passage) End If dbleCompteur = dbleCompteur + CSng(strData) ' j'additionne la taille trouvée (la dernière sauvegarde) au compteur global, donc = 0 au début, puis augmente au fur et à mesure strFile = Nothing Next ' Fin du traitement du premier fichier, je recommence avec le deuxième...etc... A la fin de ta boucle, dbleCompteur a pour valeur la taille totale des sauvegardes... à toi d'en faire ce que tu veux... (l'écrire dans un fichier avec d'autre texte, dans un tableau excel...etc...)

winzip · Answer

AH ouais super teteve, je ne l'imaginais pas comme ça.
Je test mais j'ai une erreur : Type mismatch: 'CSng'
Merci pour ta patience

teteve · Answer

ah vi, je m'a planté... :-S correction : au lieu de : IntStart = InStrRev(strFile, "<<") + 2 IntStop = InStrRev(strFile, ">>") - 4 IntLong = IntStop - IntStart If IntStart <> 0 Then strData = Replace(Mid(strFile, IntStart + 2, IntLong), ".", ",") End If mettre : IntStart = InStrRev(strFile, "<<") +2 IntStop = InStrRev(strFile, ">>") - 3 If IntStart <> 0 Then strData = Trim(Replace(Mid(strFile, IntStart, IntStop - IntStart), ".", ",")) End If explications : j'ai supprimé IntLong qui n'apporte rien à part une variable en plus... Mais j'ai rajouté Trim "à priori inutile" juste pour en parler... :)) Il permet de supprimer les espaces au début et à la fin de la chaine de caractères. et j'ai recalculé le -3 qui correspond au nombre de caractères " Mb" à supprimer à droite... (idem pour le +2 qui correspond au "<<") J'sais pas si c'est très clair mais j'me suis compris...

winzip · Answer

Ouiiiiiin , j'ai toujours le message d'erreur : Type mismatch: 'CSng' Je ne vois pas le problème. Tu peux copier ce code et l'essayer chez toi STP ? ( faut d'abord créer le folder et quelques fichiers ) Voici le fichier global : Dim strData, objFiles, objFSO, objFile, dbleCompteur Dim file, fichier, strFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFiles = objFSO.GetFolder("d:\backup\").Files dbleCompteur = 0 For Each file In objFiles strFile = objFSO.OpenTextFile(file).ReadAll IntStart = InStrRev(strFile, "<<") +2 IntStop = InStrRev(strFile, ">>") - 3 If IntStart <> 0 Then strData = Trim(Replace(Mid(strFile, IntStart, IntStop - IntStart), ".", ",")) End If dbleCompteur = dbleCompteur + CSng(strData) Set strFile = Nothing Next MsgBox("Le total des backups est : " & dbleCompteu & " Mb") ' creation du fichier qui stocke les infos Set FSO = CreateObject("Scripting.FileSystemObject") Set fichier = FSO.OpenTextFile("d:\BackupSize.txt", 2, True) fichier.WriteLine Rtrim(dbleCompteur) fichier.Close MERCI ENCORE de ton aide et ta patience. J'espère vraiment qu'on y arrivera... Tu es disponible aussi en soirée ? car je continuerai aussi ce soir assez tard

teteve · Answer

Chez moi il fonctionne très bien... Comment l'exécutes tu ? Je t'avoue que je passe toujours par Excel pour faire mes programmes en vb...
Peux tu essayer d'afficher par exemple le contenu de strData juste après le End If pour voir ce qu'il contient stp ?
sinon, pourquoi recréer un objet FSO alors que tu as déjà objFSO de créé ? Réutilise le...

winzip · Answer

Teteve tu ES UN BOSS ! ça marche du tonnerre !!! Mais je sais pourquoi j'ai une erreur :Invalid procedure call or argument: 'Mid' J'ai fait ce que tu m'as dit "Peux tu essayer d'afficher par exemple le contenu de strData juste après le End If pour voir ce qu'il contient stp" ? J'ai remarqué que ce message d'erreur survient quand il ne trouve aucune taille entre les << >> dans un des fichiers ou que ces << >> ne sont pas présents dans le fichier. Et donc le programme s'arrete... Je compte sur toi pour trouver la parade à ce problème Encore une fois merci Beauuuuuuuucoup pour ta patience et le temps que tu me consacres !!! :o)

winzip · Answer

Teteve , tu es là ?? A l'aide.... S.O.S

teteve · Answer

j'viens de me lever, laisse moi 2 min pour prendre des news... :P
Effectivement, je n'ai pas du tout géré la gestion des erreurs... J'ai eu la flemme à vrai dire de la faire, en espérant que tous tes fichiers soient bien conformes à l'exemple que tu m'as donné...

winzip · Answer

Ah super tu es là :o)
Dacc prends toi un bon café et welcome to the real world ;o)
J'attends de tes news...

teteve · Answer

J'ai pas mal de choses à faire aujourd'hui, donc je ne te garantis pas de pouvoir surveiller ce sujet pour y répondre dans l'heure... Remplace ton "For Each" par celui-ci : For Each file In objFiles strFile = objFSO.OpenTextFile(file).ReadAll IntStart = InStrRev(strFile, "<<") + 2 IntStop = InStrRev(strFile, ">>") - 3 If (IntStart > 0) And (IntStop > 0) Then strData = Trim(Replace(Mid(strFile, IntStart, IntStop - IntStart), ".", ",")) If strData <> "" Then dbleCompteur = dbleCompteur + CSng(strData) End If End If Set strFile = Nothing Next Pour être franc, ce n'est pas la meilleure gestion des erreurs qui soit... Je palie juste au fait qu'il y ait une taille vide ou qu'il ne trouve pas les "<<" ">>"...

winzip · Answer

Hé ben tu es une bête, ça marche impec ! 
Tu me sauves tu ne sais pas comment ! 
MERCI MERCI MERCI
( euh.. je pourrais encore t'embêter si j'ai d'autres questions professeur teteve ?? )
Je mets ce topic en résolu et j'en ouvrirai un autre au besoin
Sincérement MERCI MILLE FOIS de ton aide et de tu temps que tu as consacré...

teteve · Answer

Hi hi... *rougit*
Euh, j'suis trèèèès loin d'être une bête en VB comme tu dis... J'en ai juste fais un peu, et n'importe quel bon programmeur pourrait optimiser 300 fois mon code... (regarde ma signature : "amateur"...)
Merci de mettre le topic en résolu :)
Et si je ne réponds pas à d'autres questions, d'autres prendront le relai pour t'aider j'en suis sûr... :)
Il n'y a qu'une seule chose qui me gène... Appelle moi "Teteve tout court" :P
Amicalement,

Teteve

PS : regarde tes MP aussi...

winzip · Answer

Daccord "Teteve tout court" :P
Peut être qu'il y a de super programmeurs qui "pourraient" ....comme tu dis, mais tu es le seul à m'avoir répondu et aidé ! Et ça , c'est LA chose que j'apprécié le plus !

Merci encore et à bientot pour un autre code ....

Bernie_liege · Answer

En effet, le prof Teteve s'est montré d'une patience inouie dans ce problème, lol!

Félicitation pour cette écoute Teteve.

VBS- Traiter fichiers dans un répertoire - Page 2

Discussions similaires

Newsletters