[R] optimisation de script

[fred39]

Bonjour,

J'ai fait un petit script destiné à nettoyer les copies mise en cache des profils itinérants.
En clair les dossiers superflus dans documents and settings, qui peuvent s'accumuler au fil du temps sur les stations du réseau.
voici le code:

► Afficher le texte

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



$Profilspath = StringTrimRight(@UserProfileDir, StringLen(@UserName))
$Filter = "*"
$Profilname = @username



;suppression des répertoires superflux de documents and setting
; on enlève tout sauf administrateur, all users, default users , admin, raip et le répertoire de l'utilisateur courant.


$FolderList=_FileListToArray($ProfilsPath,$Filter,2)

If @Error=1 Then
MsgBox (0,"","pas de dossier trouvé")
Exit
EndIf
;MsgBox(0,"test",$profilname)

For $i = 1 to $FolderList[0]
If $FolderList[$i] <> "Administrateur"And $FolderList[$i]<> $Profilname And $FolderList[$i] <> "All Users" And $FolderList[$i] <> "Default User" And $FolderList[$i] <> "admin" And $FolderList[$i] <> "raip" Then
DirRemove ($ProfilsPath&"\"&$FolderList[$i],1)
EndIf
Next

Donc, je fait un tableau $Folderlist qui contient la liste de tous les dossiers trouvés dans documents and settings
et pour chaque dossier, je test si le nom est différents d'un certains nombre de dossiers que je ne veut pas supprimer (l'utilisateur courant, default user, all users ,admin, administrateur etc...)

La question:

Plutôt que d'avoir une longue ligne:

Code : Tout sélectionner

If $FolderList[$i] <> "Administrateur"And $FolderList[$i]<> $Profilname And $FolderList[$i] <> "All Users" And $FolderList[$i] <> "Default User" And $FolderList[$i] <> "admin" And $FolderList[$i] <> "raip" Then

J'aimerais par exemple créer un second tableau contenant tous les dossiers à conserver et faire une boucle qui vienne comparer $FolderList[$i] avec chacun des éléments du tableau et qui m'indique si il est différent de chacun.
Mais je ne vois pas comment faire ça d'une manière simple.

Merci pour vos avis et suggestions.

[sylvanie]

Bonjour,
Et bien je procéderait plutôt de la sorte :
j'établie comme fait dans le script, la liste des répertoires

Code : Tout sélectionner

$FolderList=_FileListToArray($ProfilsPath,$Filter,2)
 

Puis au lieu de comparer chaque répertoire à une liste à sauter, je parcourrai $FolderList pour lui enlever la liste de ces répertoires.
Une fois que $FolderList ne les contient plus, on peut tout effacer en le parcourant sans faire d'autres tests

Bilan si on a 5 répertoires à esquiver, on n'aura que 5 recherches à faire dans le tableau principal + redimensionnements.

Pour la recherche des positions, j'utiliserai _ArraySearch puis _ArrayDelete pour enlever l'élément en question.
Attention, comme _ArrayDelete Redimensionne le tableau dans la fouler, il faut chercher les index un par un pour les supprimer dans le même tous de boucle, sinon au premeir _ArrayDelete, les autres index seront décalés d'une position et ainsi de suite >_<'

[fred39]

Merci beaucoup
mon script devient:

► Afficher le texte

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



$Profilspath = StringTrimRight(@UserProfileDir, StringLen(@UserName))
$Filter = "*"
$Profilname = @username

dim $array_xp[7] ; le tableau contenant les noms des dossiers à conserver
$array_xp[0]=6
$array_xp[1]=$Profilname
$array_xp[2]="Administrateur"
$array_xp[3]="All Users"
$array_xp[4]="Default User"
$array_xp[5]="admin"
$array_xp[6]="raip"


$FolderList=_FileListToArray($ProfilsPath,$Filter,2) ; on met dans un tableau la liste des dossiers du répertoire des profils

For $i=1 to $array_xp[0] ; on recherche les noms à conserver et on les upprime du tableau $Folderlist avec redimensionnement
$test=_ArraySearch($FolderList,$array_xp[$i],1)
if $test<>-1 Then
$newsize= _ArrayDelete($FolderList,$test)
$FolderList[0]=$newsize-1
EndIf
Next

For $i = 1 to $FolderList[0] ; on efface tous les dossiers restants dans le tableau
DirRemove ($ProfilsPath&"\"&$FolderList[$i],1)
Next