Created by
CecilWesterhof.
I often need a certain line from a file. (Mostly the first.) Because of that I wrote the following two proc's:
proc getLine {fileName {no 1}} {
if {$no < 1} {
error "The linenumber cannot be lower as 1"
}
set linesToGo $no
set fd [open $fileName RDONLY]
while {$linesToGo} {
if {-1 == [gets $fd line]} {
error "Line $no does not exist for $fileName"
}
incr linesToGo -1
}
close $fd
return $line
}
proc getLineAsList {fileName {no 1}} {
regexp -inline -all {\S+} [getLine $fileName $no]
}The first just gets the line and returns it as a string.
Sometimes you need it as a list. For this I wrote the second one that uses the first.
As always: comments, tips and questions are appreciated.
KPV if the file is small, you can just do:
proc GetLineAt {fname lineno} {
set fin [open $fname r]
set lines [split [read $fin] \n]
close $fin
return [lindex $lines $lineno-1]
}CecilWesterhof I want it to be as generic as possible and in most cases I need the first line. But thanks for the tip.
