[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



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
}