# 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