[R] Boucle for dans boucle... for

[Saachaa]

Salut,

Alors voilà, je cherche tout simplement à lister le contenu des dossiers contenus dans '$EMPLACEMENT_DOSSIER[2]' (afin de les supprimer par la suite, mais ça, on s'en fiche).

La partie en gras ne fonctionne pas... mais comment lister $FILE dans $TXT ?

A vraie dire, la boucle For elle-même n'est pas obligatoire, c'est l'utilisation de mon Array qui l'est .

Code : Tout sélectionner

#include <file.au3>

Global $TXT = @DesktopDir & "\test.txt"
_FileCreate($TXT)

    Dim $EMPLACEMENT_DOSSIER[2] = [@AppDataDir ,@TempDir]

        For $i = 0 To UBound($EMPLACEMENT_DOSSIER) - 1
            $SEARCH = FileFindFirstFile($EMPLACEMENT_DOSSIER & "\*")
            $FILE = FileFindNextFile($SEARCH)
[b]         For $i = 0 To UBound($FILE) - 1
                FileWriteLine($TXT, $EMPLACEMENT_DOSSIER[$i] & $FILE)
            Next[/b]
        Next
FileClose($SEARCH)
 

Thanks

[mikell]

Erreurs :
- FileFindNextFile ne renvoie pas une array
- Tu peux utiliser 2 boucles For mais il faut changer de variable : $i, $j

En fait tu ferais mieux d'utiliser une des innombrables variantes de FileListToArray

[Saachaa]

Je vais regarder filelisttoarray .

Pour changer de variable, cela n'a rien changé chez moi... Mais après si on ne peut faire cela avec FFNF...

[Saachaa]

Code : Tout sélectionner

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

    Dim $EMPLACEMENT_DOSSIER[2] = [@AppDataDir ,@TempDir]

        For $i = 0 To UBound($EMPLACEMENT_DOSSIER) - 1
            $FileList = _FileListToArray($EMPLACEMENT_DOSSIER[$i])
            _ArrayDisplay($FileList)
        Next
 

Marche nickel.

Code : Tout sélectionner

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

Global $TXT = @DesktopDir & "\test.txt"
_FileCreate($TXT)

    Dim $EMPLACEMENT_DOSSIER[2] = [@AppDataDir ,@TempDir]

        For $i = 0 To UBound($EMPLACEMENT_DOSSIER) - 1
            $FileList = _FileListToArray($EMPLACEMENT_DOSSIER[$i])
            FileWriteLine($TXT, $FileList)
        Next
 

Failed ! Y'a rien dans le texte...

[mikell]

Là par contre ça renvoie bien une array

► Afficher le texte

Code : Tout sélectionner

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

Global $TXT = @DesktopDir & "\test.txt"
_FileCreate($TXT)

    Dim $EMPLACEMENT_DOSSIER[2] = [@AppDataDir ,@TempDir]

        For $i = 0 To UBound($EMPLACEMENT_DOSSIER) - 1
            $FileList = _FileListToArray($EMPLACEMENT_DOSSIER[$i])
            For $j = 1 to $FileList[0]
               FileWriteLine($TXT, $FileList[$j])
            Next
        Next
 

[Saachaa]

Du for dans du for...

Dis-moi, pourquoi je ne peux utiliser que des variables d'environnement ?

[mikell]

Gné
Par 'variables d'environnement' tu veux dire macros ?
Comprends pas, avec FileListToArray tu peux utiliser n'importe quel chemin de dossier...

[Saachaa]

Yellow,

Beh non, c'est ça qui m'embête !

Je ne peux que lister des @x, comme @DesktopDir...

Si je fais un truc du genre :

Code : Tout sélectionner

Dim $EMPLACEMENT_DOSSIER[3] = _
        [@AppDataDir, _
        @WindowsDir & "\Applog", _
        @TempDir]

        For $i = 0 To UBound($EMPLACEMENT_DOSSIER) - 1
            $FileList = _FileListToArray($EMPLACEMENT_DOSSIER[$i])
            For $j = 1 to $FileList[0]
               FileWriteLine($TXT, $EMPLACEMENT_DOSSIER[$i] & "\" & $FileList[$j])
            Next
        Next
 

Edit: Je viens de tester ce chemin : @HD & "\Windaube", cela fonctionne... Mais pas avec Applog !

Sinon, si un dossier n'existe pas... ça va planter ?

[mikell]

ça, ça relève de la gestion d'erreurs

_FileListToArray
...
Return Value :
Success: an Array
Failure: 0
@Error: 1 = Path not found or invalid

[Saachaa]

Okay ça marche, je regarde tout ça !

[Saachaa]

Salut,

Tout marche pour le mieux, j'ai pu coder optimiser mon outil .

Merci encore à toi !

[Tlem]

N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.

[Saachaa]

Bonjour Tlem,

Oups d'habitude je le fais tout le temps !

De suite