20/09/2012, 12:03
Superbe:
Donc, tu démarres ta boucle, tu lis la première ligne et quoi qu'il arrive tu fermes l'accès au fichier et tu retournes $access ?
tcl
while {![eof $fa]} {
set get [gets $fa]
if {[string first [string tolower $get] [string tolower $nick]]==0} {
set access 1
}
close $fa
return $access
}
Donc, tu démarres ta boucle, tu lis la première ligne et quoi qu'il arrive tu fermes l'accès au fichier et tu retournes $access ?