- Apre il file
- Carica direttamente tutto il contenuto del file in una variabile
- Mostra il contenuto del file sullo schermo semplicemente chiamando la variabile
<![CDATA[
frame .f
text .f.text
pack .f.text
pack .f
set nome_file "file_in.txt"
proc loadFile {} {
global nome_file
set prova [open $nome_file]
set data [read $prova]
close $prova
.f.text insert end $data
}
loadFile
]]>
file_read_2.tcl
file_in.txt