Newlines after using get command

[Malachi]

I'm using the following command to write text to a file. However, after executing this procedure, the saved text appears to have two newlines appended to the text.


proc saveFile { file } {
set f [open $file w+]
puts $f [.textEntry get 1.0 end]
close $f
}


Here is the proc to open the file for input...


proc openFile { file } {
set f [open $file]
.textEntry delete 1.0 end
.textEntry insert end [read $f]
close $f
}


How can I save the file without the newlines appended?

Brad

 

[ulis]

the line:
puts $f [.textEntry get 1.0 end]
gets the line with a newline appended.
try:
puts $f [.textEntry get 1.0 "end - 1 char"]

ulis

 

[AviaTraining]

Malachi: Every line inserted into a Text widget must end in a newline (\n). When the following line executes:

puts $f [.textEntry get 1.0 end]

you're writing the terminating \n from the last line of the Text widget, and you're getting the \n that puts automatically writes at the end of the string.

The easiest way to fix this is to use puts -nonewline to suppress the \n typically added by puts:

puts -nonewline $f [.textEntry get 1.0 end]

- Ken Jones, President
Avia Training and Consulting

http://www.avia-training.com

866-TCL-HELP (866-825-4357) US Toll free
415-643-8692 Voice
415-643-8697 Fax