[..] Editer fichier CSV obtenu automatiquement

[remilie]

bonjour,

j'ai fait ma mise en place dun script dans mon reseaux qui permet de remonte tous les fichiers sur le disque avec la taille
(http://www.autoit.fr/forum/viewtopic.php?f=20&t=7473)

Code : Tout sélectionner

#include <Array.au3>
#include <File.au3>
#include <FileListToArray3.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Date.au3>



#Region Phase n°1
;ConsoleWrite(@HOUR&":"&@MIN&":"&@SEC&"."&@MSEC&" : Recherche de fichiers"&@CRLF)
Local $chemin = "c:\", $fichier = "*.*", $array, $size
$array = _FileListToArray3 ($chemin, $fichier, 1, 1, 1)
$size = $array[0]
#EndRegion

#Region Phase n°2
;ConsoleWrite(@HOUR&":"&@MIN&":"&@SEC&"."&@MSEC&" : Traitement de fichiers"&@CRLF)
Local $i, $valeur, $nom, $taille, $resultat[$size+1][2]
$resultat[0][0] = $size
$resultat[0][1] = "Octets"
For $i = 1 To $size
    $valeur = $array[$i]
    $resultat[$i][0] = StringTrimLeft($valeur, StringInStr($valeur,"\",0,-1))
    $resultat[$i][1] = FileGetSize($valeur)
Next
#EndRegion

#Region Phase n°3
;ConsoleWrite(@HOUR&":"&@MIN&":"&@SEC&"."&@MSEC&" : Création du fichier CSV"&@CRLF)
Local $fichier = "c:\liste_fichiers.csv", $flux
$flux = FileOpen($fichier, 10)
For $i = 1 To $size
    FileWriteLine($flux, '"'&$resultat[$i][0]&'"' & ";" & $resultat[$i][1])
Next
FileClose($flux)
#EndRegion

 

l'exe est lancé et creer le fichier en local sur la machine

ensuite un .bat est lancé qui permet de renomer le fichier et le copier sur un partage reseaux

Code : Tout sélectionner

@echo off

copy "c:\liste_fichiers.csv" "partagereseaux\%computername%-disqueC.csv"
del "c:\liste_fichiers.csv"
 

donc cela me creer une serie de fichier dans le partage reseaux avec le nom du poste


le truc c'est que je voudrais eliminer les fichiers qui finnisse par
*.dll
*.cat
*.policy
*.manifest
*.ini
*.log
*.dat
*.tmp
*.jar
*.mui
*.mof
*.mod
*.ink
*.ico
*.mfl
*.fmb
*.fmx
*.pll
*.plx
*.nlb
*.htm

et ensuite rassembler dans un seul fichier csv tous les fichiers restant par taille et surtout par poste...

merci d'avance pour votre aide

[pierrotm777]

Je pense que _FileListToArray pourrait vous aider :

voir doc:

Code : Tout sélectionner

#Include <File.au3>
#Include <Array.au3>

$FileList=_FileListToArray(@DesktopDir)
If @Error=1 Then
    MsgBox (0,"","No Folders Found.")
    Exit
EndIf
If @Error=4 Then
    MsgBox (0,"","No Files Found.")
    Exit
EndIf
_ArrayDisplay($FileList,"$FileList")
 

ou :

Code : Tout sélectionner

FileDelete("D:\*.tmp")
 

[remilie]

je vois pas trop comment l'utiliser...
je peux determiner les fichiers que je peux afficher?
ou exclure?

[pierrotm777]

Eh bien , déjà pour sélectionner les fichier à effacer, (les extensions sont définies à la ligne 11)

► Afficher le texte

Code : Tout sélectionner

#Include <File.au3>
#Include <Array.au3>

;choix du dossier et du path par boîte de dialogue en fixé une fois pour toute (à commenter selon le besoin !)
$Folder = FileSelectFolder("Choisissez un dossier !", "")
;ou:
;$Folder = "D:\Temp\"
;MsgBox(0,"Info","le dossier choisi est :"&$Folder)

;définition des extensions à effacer
Dim $filter[22] = [21,"dll","cat","policy","manifest","ini","log","dat","tmp","jar","mui","mof","mod","ink","ico","mfl","fmb","fmx","pll","plx","nlb","htm"]
;MsgBox(0,"Info",$filter[1])
Dim $var, $filename, $fileextension, $filestodelete, $todeletearray[1], $Question

;création des fichiers de test (à commenter aprés le premier lancement !)
;For $i = 1 to 21
;   _FileCreate($Folder&"\file."&$filter[$i])
;Next
;Exit

;création d'un tableau dans lequel seront listés les fichiers du dossier
$FileList=_FileListToArray($Folder)
If @Error=1 Then
    MsgBox (0,"","Aucun dossier trouvé !")
    Exit
EndIf
If @Error=4 Then
    MsgBox (0,"","Aucun fichier trouvé !")
    Exit
EndIf

;visualisation du tableau
;_ArrayDisplay($FileList,"$FileList"); à décommenter pour visualiser le tableau

For $i = 1 to UBound($FileList) -1
    $var= StringSplit($FileList[$i],".")
    $filename = $var[1]
    $fileextension = $var[2]
    For $j = 1 to 21
        If $fileextension = $filter[$j] Then
            _ArrayAdd($todeletearray,$folder&$FileList[$i])
        EndIf
    Next
Next
_ArrayDisplay($todeletearray,"Fichiers suceptibles d'être effacés !")
$Question = MsgBox(36,"Votre attention !","Voulez vous effacer tous les"&@crlf&"fichiers listé précédemment ?")
Switch $Question
    Case 6;la réponse est oui
        For $i = 1 to UBound($FileList) -1
            $var= StringSplit($FileList[$i],".")
            $filename = $var[1]
            $fileextension = $var[2]
            For $j = 1 to 21
                If $fileextension = $filter[$j] Then
                    FileDelete($folder&$FileList[$i])
                EndIf
            Next
        Next

    Case 7;la réponse est non
EndSwitch