[Demande] Ouverture de Fichier.

[CrazyCat]

Je ne comprends même pas que tu puisses te poser la question... Chaque set va écraser le précédent, ça semble tellement logique.

Et si le but est de créer une liste de tous les utilisateurs contenus dans les fichiers, il y a plus logique:

tclcopier

proc fillfromfile {ulist file} {
   set fi [open $file]
   lappend ulist [split [read $fi] "\n"]
   close $fi
   return $ulist
}
 
proc on { nick host hand arg} {
    set user {}
    set user [fillfromfile $user $file]
    set user [fillfromfile $user $bfile]
    set user [fillfromfile $user $admin]
    set salon [lindex $arg 0]
    set pseudo [lindex $arg 1]
    foreach u $users {