- Apre il file
- Legge una riga per volta e la mostra sullo schermo
- termina quando incontra un riga nulla : ""
<![CDATA[
frame .f
text .f.text
pack .f.text
pack .f
set nome_file "file_in.txt"
proc loadFile {} {
set riga "a"
global nome_file
set prova [open $nome_file]
while {$riga!=""} {
set riga [gets $prova]
.f.text insert end "$riga
"
}
close $prova
}
loadFile
]]>
file_read_3.tcl
file_in.txt