[R] Lire titre de 4 fichiers et concatener dans texte

[katanes]

Bonjour tout le monde......


Bon ça fait quelque jour que je me casse la tête a faire un truc qui me paraissait simple au premier abord mais non et bien soit......je vous demande de l aide.......

Alors voila ce que je désire faire
Dans un dossier X
"couper" 4 fichiers au hasard dans un dossier Y avec en plus récupération des 4 noms des fichiers coupé puis les concaténer dans un fichier texte pour pouvoir renommer un fichier avec ce nom concaténer .....j 'espère avoir été claire....

Alors je ne suis pas rester sans rien j ai trouvé un code excellent qui permet de choisir de façon aléatoire des photos.
Mais le soucis c est qu'il bug il n est pas rare qu'il récupere des fichiers en double.....

Code : Tout sélectionner

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

$adresse = "C:\X\"
$nombre_photos = 4
$copy_to = "C:\Y\"



Global $alea[$nombre_photos] , $i
Global $ar_Array = _FileListToArrayEx ($adresse, "*.jpg", 1, "", True)
Global $ar_Array2 = _FileListToArrayEx ($copy_to, "*.jpg", 1, "", True)

For $i = 0 to $nombre_photos - 1
    $alea[$i] = Random(1,$ar_Array[0],1)
FileWrite($alea[$i])
Next
MsgBox(0,"","ok fichier choisie)")

;_ArrayDisplay($alea, "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()
;_ArrayDisplay($ar_Array2, "Liste fichier")
MsgBox(0,"","fichier copier !!!")
 

Merci pour tout l aide que vous pouriez me donner.....

[Voodoo]

Merci de prêter attention aux règles de présentation des messages

[katanes]

Ah lalalalala je vois que mon sujet n intéresse pas grand monde....lol
Je vais devoir me rabattre dur du batch......
En attendant mieux...*

[timmalos]

Mais il arrive à quelqu'un de lire ce qu'on vous répond? TANT que votre post ne suivra pas les REGLES, et un modérateur vous a "rappelé" le lien, vous n'aurez pas de réponse. Est ce dur à comprendre?

[katanes]

Bonjour tous le monde

Voila pour la rectification du message........

J avance mais c est pas ca....je trime un peu.....


Merci de toute l aide que cous pouriez m apporter......

[Voodoo]

Je n'ai pas testé à cause de la fonction _FileListToArrayEx mais d'après ce que je vois il faut mettre dans un tableau le nom des fichiers qui sont entrain d'être copiés. Avant de copier un nouveau fichier, il faut vérifier qu'il n'existe pas déjà dans le tableau.


Sinon, on peut les traiter un par un. Prendre le fichier n°1 -> le deplacer -> prendre le fichier n°2 -> le deplacer etc...

[timmalos]

Dans la partie EXEMPLES du forum, j'ai posté un script qui prend des photos au hasart dans un fichier pour les copier dans un autre.
Utilisez le pour résoudre votre première partie de problème.

En remplacant FileCopy par FileMove, vous avez dejà la première partie de votre code de faite.

Après il faut inclure un test pour que Quand vous prenez le fichier, c'est à dire dans le script que je vous parle Quand on fait le FileCopy (Ou FileMove pour vous) On rajoute $nom_total &= $nom

Comme ca à la fin vous aurez une variable $nom_total qui contient $nom1$nom2$nom3, etc
Que vous pourrez utiliser pour creer le fichier à ce nom.

edit: Merci pour l'edition de vote titre.

[20100]

Voila c'est pas parfait, mais au moins çà te donnera les principales pistes pour avancer... enfin du moins je pense.

► Afficher le texte

Code : Tout sélectionner

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

Local $repertoire_source = "C:\X"
Local $repertoire_destination = "C:\Y"
Local $file_list = _FileListToArray($repertoire_source, "*", 1) ; Selection des noms des fichiers uniquement
Local $nb_file = $file_list[0] ; Nombre de fichiers présent dans le repertoire
Local $size_array = 4          ; Nombre de fichiers que l'on souhaite selectionner au hasard
Local $index[$size_array][2]   ; Array2D contenant l'index random (1er colonne) et le nom du fichier (2nd colonne)

; On vérifie qu'il ya assez de fichiers présent dans le rerpertoire source par rapport au nombre de fichier à couper
If( $nb_file > $size_array) Then
    
    ; Récupération Random de $size_array fichiers au hasard présent dans le $repertoire_source
    For $i=0 to $size_array-1 Step 1
        $index[$i][0] = Random(1,$nb_file-1,1)
        $index[$i][1] = $file_list[$index[$i][0]]
        ; Si ce n'est pas le 1er tour de boucle, on vérifie que l'on a pas déja selectionne l'index
        If( $i>0 ) Then
            For $j=0 to $i-1 Step 1
                If( $index[$i][0] = $index[$j][0] ) Then
                    $i= $i-1
                    ExitLoop
                EndIf
            Next
        EndIf
    Next
    _ArrayDisplay($index)

    ; Decouper les $size_array fichiers dans le $repertoire_destination
    Local $mode_move = 9 ; 8  + 1 = create directory destination and overwrite existing files
    Local $string = ""
    For $i=0 to $size_array-1 Step 1
        FileMove($repertoire_source&"\"&$index[$i][1], $repertoire_destination&"\"&$index[$i][1], $mode_move)
        $string &= $index[$i][1]&@CRLF
    Next
    MsgBox(0, "Files move", $string)
Else
    MsgBox(0,"","Pas assez de fichier présent dans le repertoire")
EndIf

[katanes]

Non mais c'est excellent je suis bluffer merci encore.....je vais décortiquer tout ca merci encore.......

Ahlala depuis le temps que trime merci encore

[20100]

pas de quoi ^^