La procédure read_file lit le contenu d'un fichier dont vous avez spécifié le nom et le stocke dans la variable $file_content.

La procédure write_file écrit le contenu de la variable $file_content dans un fichier dont vous avez spécifié le nom.


Procédures
############################################################################### ### Lit un fichier et récupère les données dans la variable $file_content. ############################################################################### proc read_file {path_and_file} { if { [file exists $path_and_file] } { set fileID [open $path_and_file r] variable file_content [read $fileID] close $fileID } else { variable file_content "" } } ############################################################################### ### Ecrit dans un fichier les données contenues dans la variable $file_content. ############################################################################### proc write_file {path_and_file} { variable file_content set fileID [open $path_and_file w] puts $fileID $file_content close $fileID }


Utilisation
read_file "scripts/test.txt" Tcl:
write_file "scripts/test.txt" Tcl: