Je pense que je vais juste commenter mon code, il est assez parlant.
Ce système aurait pu être optimisé, par exemple en faisant sortir du while sitôt qu'on a la bonne valeur (ça évite de tout lire). Pour celà, il suffit de changer le while:
tcl
set fa [open $fichiers r] # on ouvre le fichier en lecture
set access 0 # on initialise $access à 0 (valeur par défaut, renvoyée si rien ne matche)
while { ![eof $fa]} { # Tant qu'on est pas à la fin du fichier
set ligne [gets $fa] # on lit une ligne
if {[string first [string tolower $ligne] [string tolower $nick]]==0} { # si le nick est dans la ligne
set access 1 # on passe $access à 1
} # fin du if (donc si nick n'est pas dans la ligne, on ne fait rien)
} # fin du tant que (si on est pas à la fin du fichier, on boucle pour la ligne suivante)
close $fa # On peut fermer le fichier, on a tout lu
return $access # On retourne $access maintenant qu'on a tout lu
Ce système aurait pu être optimisé, par exemple en faisant sortir du while sitôt qu'on a la bonne valeur (ça évite de tout lire). Pour celà, il suffit de changer le while:
tcl
while { ![eof $fa] && $access==0} {