Backup of txt file

[TomSommer]

Hello, I want to make a backup of a file called words.txt to words.bak

So I was wondering how to do this... perhaps there is a copy function or something?

[Papillon]

open the txt file and read it into a variable/list, then open a new file (the bak file) and put the variable in there.... [open $somefile a+] <--- that should make a new file if it does not already exists.... u might wanna check if the file exists

[TomSommer]

Thanks.. how do I read the whole file into a variable.. gets only gets one line

[Papillon]

I think this:

Code: Select all

set op [open $thefile r]
set fs [read $op]

should put everything in the file into the $fs var

if not...

Code: Select all

while {![eof $file]} {
  set f "[gets $file]"
  lappend somelist $f
}

then this should read every line of the file and put them into $somelist

[TomSommer]

nice, thanks... how do I loop through the list? and put it in.. the read thing does not work

[Papillon]

u could just put the whole list into the file as it is... if u want to apply each element to the list :

Code: Select all

foreach l $somelist {
  puts $file $l
}

this should do the trick

[TomSommer]

No, because then there would be lots of {}

But I tried putting all data into a string.... but that does not keep the newlines....

So maybe put it all into an array and load the lines into the new file?

so my question is...

array set x {}
how do I just add an element to x...?

[Papillon]

u tried this?

Code: Select all

while {![eof $file]} { 
  set f "[gets $file]" 
  puts $backupfile $f 
}

[TomSommer]

DOH!!!

Works like a charm.... Thanks

[ppslim]

You can simply use the "[file copy]" command provided with Tcl.

It's far quicker, and it doesn't given any of the hastle assosiated with {}'s in badly handled strings.