[..] Accélérer script

[periaz]

Bonsoir,
Je voudrais savoir si il est possible d'accélérer le script suivant :

► Afficher le texte

Code : Tout sélectionner

for $a = 1 to 36
    for $b = 1 to 36
        for $c = 1 to 36
            for $d = 1 to 36
                for $e = 1 to 36
                    $clef = _l($a) & _l($b) & _l($c) & _l($d) & _l($e)
                    FileWriteLine ( @scriptdir & "\tt.txt", $clef )
ToolTip ( $clef , 0,0 )
                Next
            Next
        Next
    Next
Next

Func _l($i)
    $s = StringSplit ( "0/1/2/3/4/5/6/7/8/9/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z" , "/" )
    Return $s[$i]
EndFunc

Merci !

[pop45]

Dis de qui il viens surtout

et je cherche pour voir si je peut pas l'accélérer

[mimione]

Je me demande (mais sans avoir essayé, hein !) s'il n'y aurait pas un petit quelque chose à gratter en faisant un "FileOpen" préalable, puis en passant le "handle" à la fonction "FileWriteLine ".
A tester...

[Tlem]

En limitant l'écriture dans le fichier (qui prend quelques ms) ainsi que l'appel à la fonction (qui prend aussi pas mal de ms), alors on arriverait à ceci :

► Afficher le texte

Code : Tout sélectionner

Dim $aVal = StringSplit ( "0|1|2|3|4|5|6|7|8|9|a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z" , "|" )
Dim $Val

For $a = 1 To 36
    For $b = 1 To 36
        For $c = 1 To 36
            For $d = 1 To 36
                For $e = 1 To 36
                    $clef = $aVal[$a] & $aVal[$b] & $aVal[$c] & $aVal[$d] & $aVal[$e]
                    $Val &= $clef & @CRLF
                    ToolTip ( $clef , 0,0 )
                Next
            Next
        Next
    Next
Next

FileWriteLine ( @scriptdir & "\tt.txt", $Val )

Mais bon, ca risque d'être quand même relativement long de générer 36^5 combinaisons différentes ...

[periaz]

Pop45, ne soit pas vexé, ton script va me servir dans les minutes qui suivent. Mais la partie aide générale est mieux pour poser des questions.
Merci Tlem, je vais essayé

[mimione]

Bonjour
Finalement, la question que je me pose est celle-ci: ça va servir à quoi de fourrer tout ça dans un fichier...? Quelle sera son utilisation ultérieure....?

[pop45]

En limitant l'écriture dans le fichier (qui prend quelques ms) ainsi que l'appel à la fonction (qui prend aussi pas mal de ms), alors on arriverait à ceci :

► Afficher le texte

Code : Tout sélectionner

Dim $aVal = StringSplit ( "0|1|2|3|4|5|6|7|8|9|a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z" , "|" )
Dim $Val

For $a = 1 To 36
    For $b = 1 To 36
        For $c = 1 To 36
            For $d = 1 To 36
                For $e = 1 To 36
                    $clef = $aVal[$a] & $aVal[$b] & $aVal[$c] & $aVal[$d] & $aVal[$e]
                    $Val &= $clef & @CRLF
                    ToolTip ( $clef , 0,0 )
                Next
            Next
        Next
    Next
Next

FileWriteLine ( @scriptdir & "\tt.txt", $Val )

Mais bon, ca risque d'être quand même relativement long de générer 36^5 combinaisons différentes ...

Le filewriteline ne devrait t'il pas être dans la boucle?

[mimione]

Non, l'écriture dans le fichier doit bien se faire à la sortie, les résultats sont enregistrés dans la variable à l'intérieur des boucles, puis la variable écrite dans le fichier en fin de calculs.
Sauf erreur de ma part, le résultat généré doit faire un peu plus de 300 mégaoctets...!
On ne peut vraiment pas savoir pour quoi faire? ça m'intrigue !!

[Tlem]

Effectivement, si le résultat doit être de l'ordre des 300Mo, il est sans doute mieux d'écrire le fichier au fur et a mesure.
Par contre il vaut mieux comme cela a été suggéré, passer par un FileOpen() en début de fichier puis FileWrite() dans la boucle et finir en fermant le fichier par le FileClose().

[Douves]

J'ai testé ce script pendant 10 minutes

Voila ce que ça donne (Pas encore terminé hein..)

[Tlem]

Si vous générez le fichier à la volée, n'oubliez pas de modifier la ligne

Code : Tout sélectionner

$Val &= $clef & @CRLF

qui ajoute à chaque fois la nouvelle clé aux clés déjà générées, sinon effectivement, cela va créer un énorme fichier ...

J'ai aussi fait un test de 10mn et j'ai laissé le script générer le fichier jusqu'à la clé 0a000. Cela m'a généré un fichier de 3,11 Mo pour 66562 lignes.
On est donc trés loin de votre fichier de 7,75 Go ...