Autorise

[CrazyCat]

Ton close est TOUJOURS dans ton while. Et la àa ne fait plus rien.
C'est pourtant facile à faire:

tclcopier

set fa [open $fichiers r]
set access 0
while { ![eof $fa]} {
   set ligne [gets $fa]
   if {[string first [string tolower $get] [string tolower $nick]]==0} {
      set access 1
   }
}
close $fa
return $access