# legge un file costituito da un numero indefinito di righe # ciascuna delle quali contiene 3 numeri separati da "," frame .f text .f.text pack .f.text pack .f set f [open "dati.txt" "r"] while {[gets $f riga] >= 1} { set count [scan $riga "%f, %f, %f" x y z ] if {$count != 3} { error "Errore : questa riga non contiene 3 elementi" } .f.text insert end "Dati letti : x=$x, y=$y, z=$z " } close $f

scan.tcl