set varName ?newValue?

[Garfield]

J'utilise ceci pour lire et compter :

Code :

# -> Lecture
proc read:event { fichier num_ligne } {
   if { ![file readable $fichier] } { return "\002\0034Erreur\003\002 : impossible de lire le fichier." }
   if { $num_ligne<=0 } { return "\002\0034Erreur\003\002 :  numéro de ligne non valide" }
     set fHnd [open $fichier "r"]
     set counter 0
     set ligne ""
       while { ![eof $fHnd] } {
     set foo [gets $fHnd]
      incr counter
      if { $counter == $num_ligne } {
         set ligne $foo
         break
      }
   }
   close $fHnd
   return $ligne
}

# -> Comptage du nombre de lignes
proc compte:lignes { fichier } {
   if { ![file readable $fichier] } { return 0 }
     set fHnd [open $fichier "r"]
     set counter 0
   while { ![eof $fHnd] } {
      gets $fHnd
      incr counter
   }
   close $fHnd
   return $counter
}