Reading a certain line of a text file....

[Jimbo]

Without doing gets $channel line 5 times....how can i read the 5th line of a file?

[ppslim]

There is no way. Allthough you could create a proc that will do the the gets 5 times for you.

Code: Select all

proc get_line {file line} {
  set fp [open $file r]
  set r {}
  while {![eof $fp]} {
    set i 0
    while {$i < $line} {
      set r [gets $fp]
      incr i
    }
    break
  }
  catch {close $fp}
  return $r
}

Then you can use it like

Code: Select all

my code here
set test [get_line file.name 5]

which will get line 5

[Wcc]

It would make more sense to me to read the entire file with [read $channel], split it by n, then use lindex to pull lines.

[Petersen]

well, ppslim's way is cpu intensive, your way is ram intensive. which method is the best to use depends on the length of the file.

[Jimbo]

Cheers ppl...Just so ya know im using ppslim's idea cos its neater....cos im needing to get a certain line quite frequently!!!