Saving a variable into a text file

[Real]

Well I think the topic says it all doesn't it

I've been trying to make the script myself, but it's just too hard for me
I've also searched on the forum, but nothing seems to work

So first, I want to write a line in a text file:
proc savevar
set thevar $text
save $thevar in $thisfile (so there should be just 1 line in the text file, this means replacing an other line )

Second:
I want to make my bot read the file and save the line into a var on every load.

How can this be done? :/

Thank you very much

[awyeah]

You can do something like this.

Code: Select all

set myfile "data.txt"
set myvar "my data here"

#To write the variable to the file.
set file [open $myfile "a"]
puts $file "$myvar"
close $file

#To read the variable
set file [open $myfile "r"]
set newvar [gets $file]
close $file

Try reading the FAQ section, with the topic 'BASIC FILE OPERATIONS' in this forum on the other section. It has very useful tips regarding this.

Anyway, in this case, the data will be written in the first line of the file, and will be appended and overwritten each time (will be replaced), and it will be read from the first line as well.

I assume you can do the rest, make a procedure and use these codes in your procedure accordingly.

[greenbear]

Here's the code I use to do a backup of a array called 'settings'

Code: Select all

set settings_file "settings.dat"

proc backup_settings {} {
 global settings settings_file
 if {![catch {open $settings_file w} fileid]} {
   puts $fileid "### Channel Settings ###"
   foreach w [array names settings] {
     set setting "[lindex [split [array get settings $w]] 1]"
     puts $fileid "set settings($w) $setting"
   }
   puts $fileid "### EOF Channel Settings ###"
   close $fileid
   return 1
  } else {
   putlog "Error: Could not save settings to $settings_file"
   return 0
 }
}

Then you can just load it on startup like you normally load a tcl, with

Code: Select all

source settings.dat