egghelp/eggheads community

Max 10 lines in file

2009-05-14T03:59:48-04:00

awesome, Works a treat.
Thanks heaps guys

Statistics: Posted by SCR34M3R — Thu May 14, 2009 3:59 am

Max 10 lines in file

2009-05-13T09:40:05-04:00

Thnx for pointing it out, I'll update my post in a sec or two.

Statistics: Posted by nml375 — Wed May 13, 2009 9:40 am

Max 10 lines in file

2009-05-13T09:31:06-04:00

Code:

set fd [open thefile "RDONLY"]set tmp [split [read -nonewline $thefile] "\n"]

should be $fd, as in:

Code:

set fd [open thefile "RDONLY"]set tmp [split [read -nonewline $fd] "\n"]

Statistics: Posted by Papillon — Wed May 13, 2009 9:31 am

Max 10 lines in file

2009-05-13T09:41:46-04:00

Easiest modification here then, would probably to use list operations..

The approach, roughly put, is to open the file as read-only, and read the whole content. Then use split to convert the raw data into a list.
Once we've got a list, we can use commands such as lappend/linsert and lrange to manipulate the list to suit our needs.
When we're satisfied with our new list, we then use join to restore it to "raw data", and write it back to our file (which now has been opened as write-only).

A rough example:

Code:

set fd [open thefile "RDONLY"]set tmp [split [read -nonewline $fd] "\n"]# Read the data, and split it on newlines...close $fdset fd [open thefile "WRONLY CREAT TRUNC"]# Re-open the file in write-only mode, creating the file if it's missing, and clearing any previous content.puts $fd [join [lrange [linsert $tmp 0 $data] 0 9] "\n"]# Insert $data at the beginning of the list, then trim the list to the first 10 items, and finally join it back into a textstring, separating each list item with a newline. Write it back into (the empty) file.close $fd

I've stacked a few steps of the process here, hope you get the picture anyway.

Edit: fixed minor bummer... Thank you papillon for pointing it out.

Statistics: Posted by nml375 — Wed May 13, 2009 8:42 am

Max 10 lines in file

2009-05-13T07:04:34-04:00

its the sitelist.tcl which i have edited a bit to suit what i need.
the add section is

Code:

## Operation Proceduresproc prc_addsite {site} {global sitefile        if {[catch {open $sitefile a} fd]} {                return 0        } else {                puts $fd $site                close $fd                return 1        }}

Statistics: Posted by SCR34M3R — Wed May 13, 2009 7:04 am

Max 10 lines in file

2009-05-12T10:07:09-04:00

That kind of depends on what you've done so far, and how you've approached adding/deleting lines.

If you're using read->split approach, it'd be pretty much a matter of adding the new list item and then using lrange to restrict the set to 10 items (lines).
Other approaches would require other techniques..

Post what you've got so far, and we'll go from there..

Statistics: Posted by nml375 — Tue May 12, 2009 10:07 am

Max 10 lines in file

2009-05-12T03:51:00-04:00

hay guys
pretty new to tcl scripting, But got myself a add,del and list script going, but i want it so when i do !add text, it checks the file and deletes the oldest entry into the file. So that there is only 10 lines in the file.

So Add entry to Top, Remove last line.

How would i go about doing this?

Cheers in Advanced
Justin

Statistics: Posted by SCR34M3R — Tue May 12, 2009 3:51 am