+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : [Résolu] trier une liste (/showthread.php?tid=677)
[Résolu] trier une liste - mistery - 23/05/2010
j'aimerai trier une liste et afficher le resultat mais j'ai un petit soucis : Tcl error [classement]: wrong # args: should be "set varName ?newValue?"
tcl
proc classement {nick host hand chan text} {
global top10_file a b c d e
set liste3 [list[split [read [set f [file join ./ $top10_file] "r"]] "\n"]]
close $f
set liste2 [list {[lindex $liste3 0] $a} {[lindex $liste3 1] $b} {[lindex $liste3 2] $c} {[lindex $liste3 3] $d} {[lindex $liste3 4] $e}]
set liste [list[lsort [-integer -index 1 $liste2]]]
putserv "NOTICE $nick : $liste "
}
RE: trier une liste - heretoc - 23/05/2010
met les balises [ tcl ] et [ /tcl ]
RE: trier une liste - mistery - 23/05/2010
resolu merci