[Précédent (date)] [Suivant (date)] [Précédent (sujet)] [Suivant (sujet)] [Index par date] [Index par sujet]
Re: ecrire dans un fichier avec un script TCL
- To:
- Subject: Re: ecrire dans un fichier avec un script TCL
- From: gael <>
- Date: Thu, 22 Mar 2001 11:36:35 -0500 (EST)
-
In-reply-to: <[email protected]>
Pour ecrire ou l'on veut dans un fichier
ATTENTION !!!
(il faut avoir la place de tout ecrire sinon on ecrase des donnees)
petit script :
# ecriture sur fichier
proc fwrite {data file {offset ""}} {
#on ouvre le fichier en lecture reecriture creation
set fid [open $file a+]
# si la variable offset est presente et que c'est
# un nombre
if {[regexp {^[0-9]+$} $offset] == 1} {
#on se position au point offset (on commence a 0)
seek $fid $offset start
#on reecrit les donnees sur le fichier
puts -nonewline $fid $data
flush $fid
#sinon
} else {
#on rajoute les donnees a la fin du fichier
puts $fid $data
}
#on referme le fichier
close $fid
}