removing lines from a text file

mdixon4az · Post by **mdixon4az** » Wed Dec 10, 2003 4:02 pm

I figured out how to read and message the contents of a file to a user that types a command, but how do you search a file for a specific line and delete it?

Post by **user** » Wed Dec 10, 2003 4:04 pm

what kind of search? glob/exact match or by line number?

mdixon4az · Post by **mdixon4az** » Wed Dec 10, 2003 4:13 pm

Exact. For example. !new.info would read the file and message the person that used that trigger each line of the file.

I want to be able to do !old.info and just cut & paste one of the lines after the trigger to get it to remove that line and resave the file.

Know how?

Thanks

Post by **user** » Wed Dec 10, 2003 4:32 pm

mdixon4az wrote:Exact. For example. !new.info would read the file and message the person that used that trigger each line of the file.

I want to be able to do !old.info and just cut & paste one of the lines after the trigger to get it to remove that line and resave the file.

Know how?

Thanks

I probably know how, but I don't know what '!new.info' would do...do you? If you want exact matches, why do you want the matches in return? a count would make more sense as you already know the contents of each matching line

mdixon4az · Post by **mdixon4az** » Wed Dec 10, 2003 4:42 pm

ok, well, I guess that would work too. do !old.info 4 and it would remove line 4 from the file

how would I do that?

Post by **CrazyCat** » Thu Dec 11, 2003 3:57 am

read each line of the file, and increment a counter.
if counter != the specified line, copy the line to another file
when reached the end of file, delete the old file and rename the new as the old one...

Code: Select all

proc del:line {theline} {
   global yourfile
   set oldfile [open $yourfile r]
   set newfile [open tempfile.txt w]
   set cnt 0
   while { ![eof $oldfile] } {
      incr cnt
         gets $oldfile templine
      if { $cnt != $theline } {
         puts $newfile $templine
      } else {
         putlog "Deleted $templine"
      }
   }
   close $oldfile
   close $newfile
   file delete -force $yourfile
   file rename -force tempfile.txt $yourfile
}

mdixon4az · Post by **mdixon4az** » Sun Dec 14, 2003 12:44 pm

Great, I will add that and test it out, make sure I don't mess something up. I would also like to add a search function, can you help me with that as well?

Thanks

Post by **caesar** » Sun Dec 14, 2003 2:58 pm

See this topic for an example.

mdixon4az · Post by **mdixon4az** » Mon Dec 15, 2003 2:16 am

I have it basically working, only thing I have noticed if is that each time I use the command to find and remove a line from the file it adds an extra blank line to the new file. How can I get it to stop doing that?

Thanks