egghelp/eggheads community

I want to edit a line but clobbers the whole file

2009-10-31T09:52:34-04:00

Thank you tomekk that did it.

Statistics: Posted by admiralboom — Sat Oct 31, 2009 9:52 am

I want to edit a line but clobbers the whole file

2009-10-31T03:35:25-04:00

This should be helpful: Basic File Operations

Statistics: Posted by Sir_Fz — Sat Oct 31, 2009 3:35 am

I want to edit a line but clobbers the whole file

2009-10-31T14:26:28-04:00

ahhh, my fault...

you can read whole file and later you can use some loop (for, foreach) to check the line

it will be smth like:
1. open file 'r', read whole content to some Var, close the file
2. open the same filem with 'w'
3. copy all from Var to this file (insert some IF inside loop, if line match - write it, if not - don't)
3. close the file

file.txt:

Code:

onetwothree

example.tcl:

Code:

#!/usr/bin/tclshset read_data [open "file.txt" r]set all_lines [split [read $read_data] "\n"]close $read_dataset change "two"set write_data [open "file.txt" w]foreach file_line $all_lines {        if {$file_line != ""} {                if {$file_line == $change} {                        puts $write_data "woohooo"                } {                        puts $write_data $file_line                }        }}close $write_data

file.txt after:

Code:

onewoohoothree

Its possible to this with one 'file open' by using 'seek' and 'a+' mode.

Statistics: Posted by tomekk — Fri Oct 30, 2009 1:31 pm

I want to edit a line but clobbers the whole file

2009-10-30T13:14:00-04:00

I suppose so although how do I tell it which line to edit?

Statistics: Posted by admiralboom — Fri Oct 30, 2009 1:14 pm

I want to edit a line but clobbers the whole file

2009-10-30T12:22:50-04:00

if you want to append some data to end of file, use just

Code:

set some_file_to_append [open $file a]

http://www.tcl.tk/man/tcl8.4/TclCmd/open.htm#M9

Statistics: Posted by tomekk — Fri Oct 30, 2009 12:22 pm

I want to edit a line but clobbers the whole file

2009-10-30T11:59:34-04:00

I need a suggestion on appending a line in the file without clobbering the whold file, suggestions?

Code:

bind pub - !status proc_statusproc proc_status { ircnick userhost handle channel arg } {  set status "$arg"  if {$status == ""} {     puthelp "PRIVMSG $ircnick :Please supply your status"     return 0  }   set fs [open "/srv/httpd/htdocs/status.txt" r]   set tmpfs [open "/srv/httpd/htdocs/tmpstatus.txt" w]   set change 0   while {![eof $fs]} {        if {![gets $fs line]} {          puts -nonewline $tmpfs "$line\n"        } elseif {[lindex $line 1] == $ircnick} {          puts -nonewline $tmpfs "[unixtime] $ircnick $status\n"          set change 1        }    }   if {!$change} {        puts -nonewline $tmpfs "[unixtime] $ircnick $status"           puthelp "PRIVMSG $ircnick : Your status has been added."        }  else {           puthelp "PRIVMSG $ircnick : Your status has been updated."        }   close $fs   close $tmpfs   set tmpfs [open "/srv/httpd/htdocs/tmpstatus.txt" r]   set statusdb "[read $tmpfs]"   close $tmpfs   set fs [open "/srv/httpd/htdocs/status.txt" w]   puts -nonewline $fs "$statusdb"   close $fs   return 0}

Statistics: Posted by admiralboom — Fri Oct 30, 2009 11:59 am