Page 1 sur 1
[..] Accélérer script
Posté : ven. 29 janv. 2010 18:32
par 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 !
Re: [..] Accélérer script
Posté : ven. 29 janv. 2010 19:40
par pop45
Dis de qui il viens surtout
et je cherche pour voir si je peut pas l'accélérer
Re: [..] Accélérer script
Posté : ven. 29 janv. 2010 19:41
par 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...
Re: [..] Accélérer script
Posté : ven. 29 janv. 2010 19:41
par 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 ...
Re: [..] Accélérer script
Posté : ven. 29 janv. 2010 19:47
par 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é
Re: [..] Accélérer script
Posté : sam. 30 janv. 2010 11:49
par 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....?
Re: [..] Accélérer script
Posté : dim. 31 janv. 2010 18:00
par pop45
Tlem a écrit :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?
Re: [..] Accélérer script
Posté : dim. 31 janv. 2010 20:24
par 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 !!
Re: [..] Accélérer script
Posté : dim. 31 janv. 2010 20:50
par 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().
Re: [..] Accélérer script
Posté : lun. 01 févr. 2010 00:35
par Douves
J'ai testé ce script pendant 10 minutes
Voila ce que ça donne (Pas encore terminé hein..)
Re: [..] Accélérer script
Posté : lun. 01 févr. 2010 08:03
par Tlem
Si vous générez le fichier à la volée, n'oubliez pas de modifier la ligne
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 ...
