20/09/2012, 12:26
Ton close est TOUJOURS dans ton while. Et la àa ne fait plus rien.
C'est pourtant facile à faire:
C'est pourtant facile à faire:
tcl
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