05/01/2009, 13:21
tcl
set fileID [open $fileName]
set _globalData [split [read $fileID] \\n]
close $fileID
Et plus loin dans ton code:
tcl
global _globalData
foreach line $_globalData {
# $line contient la ligne de ton fichier
}
Nb: Le \ ; -> Supprime le.