[Ex] Copie De Fichiers Aleatoires

[timmalos]

Bonjour A Tous

Ayant recemment, et comme beaucoup de francais, acheté un cadre photo numérique, j'ai fait un petit programme qui me permet d'aller chercher sur mon disque mes photos (environ 8 gigas) d'en prendre 300 aléatoirement et de les copier sur ma clef USB.
Ca peut servir à quelques personnes, facilement améliorable/modifiable.

Code : Tout sélectionner

#include<Array.au3>
#include "FileListToArrayEx.au3"

$adresse = "D:\photos\"
$nombre_photos = 100
$copy_to = "K:\"


MsgBox(0,"","Le Script va maintenant partir à la recherche de vos images... Patientez, cela peut prendre quelques minutes pour les très très gros dossiers")
Global $alea[$nombre_photos] , $i
Global $ar_Array = _FileListToArrayEx ($adresse, "*.jpg", 1, "", True)


For $i = 0 to $nombre_photos - 1
    $alea[$i] = Random(1,$ar_Array[0],1)
Next
MsgBox(0,"","Felicitations ! Les Images ont été choisis avec plaisir, et le script va maintenant les copier sur votre Disque Externe (USB, Mini-SD, etc...)")

;_ArrayDisplay($ar_Array, "Liste fichier")  ; Ceci est facultatif, c'est juste pour afficher la liste des fichiers.#cs ----------------------------------------------------------------------------

ProgressOn("Progression","Copie des fichiers sur la clef USB en cours")
For $i = 0 to $nombre_photos - 1
    FileCopy($ar_Array[$alea[$i]],$copy_to)
    ProgressSet(Int((100*$i)/$nombre_photos),Int((100*$i)/$nombre_photos) & " %")
Next
ProgressOff()
MsgBox(0,"","Maintenant, Profitez de la vie !!!")

[timmalos]

Pour info , je suis passé par Random et pas un _ArraySwap ou Autre à cause de la probable taille de l'array
Mettez le disque c:\ vous comprendrez.

[TaPuZ]

Joli, et sympathique de ta part de partager.
Je me posais une question. Tu es parti du principe où le nombre de photos dans le dossier était fini et connu, et que tu en prenais un % parmi ce pool, de manière aléatoire.
J'avais déjà vu (sur l'ancien forum, il me semble) un moyen de connaitre le nombre de fichiers présent dans un dossier (mais je ne retrouve pas la fonction).
On pourrait prévoir qu'il "détecte" le nombre total de photo, et qu'il en prélève un % aléatoire. Ainsi, pas besoin de changer le script à chaque fois qu'on rajoute des photos.
Quelqu'un se rappelle-t-il de cette fonction?

A bientôt,
T@PµZ

[ani]

$ar_Array[0] renvoi le nombre de fichier trouvé.
nombre photo = 100 < limité à cent.

[TaPuZ]

J'ai enfin pu démontrer mon spécial! Mettre les pieds dans le plat!
Merci pour l'info que j'avais sous les yeux. Effectivement, c'est ça.
Comment faire, si on veut renvoyer un nombre de dossiers, au lieu d'un nombre de fichiers?
Ou si on veut juste le nombre de fichiers images (tif, bmp, jpg, ...)?
Je sais, je sais, c'est pas mon topic, mais ça m'intéresse.
Merci encore.

[timmalos]

Merci Ani pour l'editage du titre



TaPuZ, comme Ani te la expliqué, je ne connais pas le nombres de photos.

La fonction _FileListToArrayEx (Disponible dans Fonctions, post par Tlem) va chercher toutes les images et renvoie une array avec en position 0 le nombre de fichiers trouvés, ici le nombre d'images.


Mais chez moi, j'ai beaucoup trop d'images pour que ma clef USB les supportent tous. Donc le nombre_photo correspond au nombre d'images que tu souhaite transferer aleatoirement sur ta clef USB.

Je monte le chiffre a 500, bon rapport Temps/Nb Photos sur une clef USB 1 Giga , et ca me permet de prendre les photos aleatoirements je ne les choisis pas.

[timmalos]

Comment faire, si on veut renvoyer un nombre de dossiers, au lieu d'un nombre de fichiers?

Code : Tout sélectionner

Global $ar_Array = _FileListToArrayEx ($adresse, "*.jpg", 2, "", False)

Va retourner tous les dossiers(pas les fichiers) d'un dossier, SANS prendre les SOUS-DOSSIERS

Code : Tout sélectionner

Global $ar_Array = _FileListToArrayEx ($adresse, "*.jpg", 2, "", TRUE)

Va retourner le nombre total de Dossiers dans $adresse recursivement, c'est à dire en prenant en compte TOUS les sous-dossiers.

Ou si on veut juste le nombre de fichiers images (tif, bmp, jpg, ...)?

Code : Tout sélectionner

Global $ar_Array = _FileListToArrayEx ($adresse, "*.jpg", 1, "", TRUE)
Global $ar_Array2 = _FileListToArrayEx ($adresse, "*.bmp", 1, "", TRUE)
Global $ar_Array3 = _FileListToArrayEx ($adresse, "*.tif", 1, "", TRUE)

$nombre_images = $ar_Array[0] +  $ar_Arra2[0] +  $ar_Array3[0]

Mais je pense qu'on peut faire mieux, mais la pas trop le temps.

[TaPuZ]

Merci pour toutes ces réponses! J'ai enfin compris la fonction array!
Merci, j'étais à côté de la plaque à ce niveau.

EDIT : Juste un souci... Je dois encore merder, mais...

Global $ar_Array = _FileListToArrayEx ($adresse, "*.jpg", 2, "", False)

Est-ce que ça ne renvoit pas plutôt tout ce qui n'est pas fichier jpg? Et du coup, s'il s'agit d'un mélange de plein de fichiers? Ca fonctionne aussi?

Merci, A+

[Tlem]

@TaPuZ
Vous devriez lire ce qui est écrit en haut de la fonction.
Cette première partie énumère les paramètres et donne leur fonction et valeurs.

[tolf]

Code : Tout sélectionner

...
For $i = 0 to $nombre_photos - 1
    $alea[$i] = Random(1,$ar_Array[0],1)
Next
....

Petit problème envisageable : si Random renvoie deux fois le même nombre au cours de la sélection des photos, il y aura des photos en double donc il faut vérifier que la photo n'ait pas déjà été choisie (à moins que ce soit le but recherché ) :

Code : Tout sélectionner

Func _VerifiePhoto($alea, $iPhoto, $iRandom)
    Local $i
    For $i = 0 To $iPhoto
        If $alea[$i] = $iRandom Then Return 0
    Next
    Return 1
EndFunc

A intégrer dans le code :

Code : Tout sélectionner

For $i = 0 to $nombre_photos - 1
    Do
        $iRandom = Random(1,$ar_Array[0],1)
    Until _VerifiePhoto($alea, $i, $iRandom) = 1
    $alea[$i] = $iRandom
Next

[TaPuZ]

@Tlem : Oops ! Un chti problème de comprenette aujourd'hui! J'ai pourtant relu x fois le topic ([Func] Recherche de fichiers et de dossiers.), et pourtant, je viens juste de piger que je calculais mal l'emplacement du $iFlag! Et comme le $iFiltre "*.jpg" m'enduisait d'erreur... Bon, je sais, je n'ai pas d'excuses, mais j'essayais juste de faire pale figure!

@Tolf :Bien joué! C'est ce que je voulais signaler aussi, mais vu comment je me noie dans un verre d'eau, j'ai bien fait! :p J'ai même pens" à un moment, qu'il y avait un paramètre inclus dans la func de choix aléatoire pour éviter les remises.

[timmalos]

Par contre, mon code est débile

Code : Tout sélectionner

Global $ar_Array = _FileListToArrayEx ($adresse, "*.jpg", 1, "", TRUE)
Global $ar_Array2 = _FileListToArrayEx ($adresse, "*.bmp", 1, "", TRUE)
Global $ar_Array3 = _FileListToArrayEx ($adresse, "*.tif", 1, "", TRUE)

$nombre_images = $ar_Array[0] +  $ar_Arra2[0] +  $ar_Array3[0]

Peut etre remplacer par ca :

Code : Tout sélectionner

Global $ar_Array = _FileListToArrayEx ($adresse, "*.jpg;*.tif;*.bmp", 1, "", TRUE)

$nombre_images = $ar_Array[0]]

[Tlem]

Peut être à compléter avec _ArrayUnique.