- Apre il file
- Legge un carattere alla volta e lo mostra sullo schermo
- termina quando incontra il carattere "EOF"
frame .f
text .f.text
pack .f.text
pack .f
set nome_file "file_in.txt"
proc loadFile { } {
global nome_file
if [file exists $nome_file] {
.f.text delete 1.0 end
set prova [open $nome_file]
while {![eof $prova]} {
.f.text insert end [read $prova 1]
}
close $prova
} else {
.f.text insert end "Il file \"$nome_file\" non esiste"
}
}
loadFile
file_read_1.tcl
file_in.txt