Insert Line After Regular Interval

2006-06-07T12:09:47-04:00

1. read the file into list in memory
2. manipulate the list using [linsert] or [lreplace]
3. write the list back to disk file

Statistics: Posted by demond — Wed Jun 07, 2006 12:09 pm

Insert Line After Regular Interval

2006-06-07T11:54:29-04:00

If this is covered somewhere else then please direct me there because i couldnt find it.

I am trying to insert a line in a text file, starting after a certain line and then at regular intervals till eof.

Not to mention that this works in a wierd way.

Code:

proc main {nick host hand chan rest} {global opfileset logfile [open $opfile(list) r]set lines [split [read -nonewline $logfile] "/n"]set totlines [llength $lines]set fp [open $opfile(final) a]set num 7while {$num <= $totlines} {set lines [linsert $lines $num $opfile(insert)]puts $fp [join $lines "\n"]set num [expr {$num + 5}]} close $fp close $logfile}

Any help ?

Statistics: Posted by StaleJoke — Wed Jun 07, 2006 11:54 am

egghelp/eggheads community

Insert Line After Regular Interval

Insert Line After Regular Interval