Open file and write.

[kem]

File:
text1
text2

Code: Select all

bind dcc - test test

proc test {h i a} {
set fp [open file.txt "w"]
puts $fp "text0"
close $fp
}

Script add new line at end of file, what i can use to add "text0" in begin file and not delete text1 and text2 ?

(sorry for my english:>)

[demond]

read the file into a list, insert text0 at the beginning of that list, write the list to file

[kem]

simple, thx :>