Extraction de données d'un fichier txt en TCL

[Merwin]

Déjà, pour lire le fichier:

tclcopier

set fileID [open "display.txt"]
set fileData [read $fileID]
set fileLines [split $fileData "\n"]
foreach line $fileLines {
  # Ici traitement de la variable line qui contient le ligne
}

C'est un début, à toi de voir pour la suite :-)