获取文件中的行

Question

如何从行尾或最大行[expr max_line - 3]获取第3行中的字符串，我已经写下了下面的代码，但是我无法通过第3行从最后一行或最大行中得到结果。

set idx 0 
while {![eof $flopen]} { 
    gets $flopen line 
    puts $line 
    set vlist [split $line " "] 
    set vle [string trim [lindex $vlist 0]] 
    if {$vle == "STP"} { 
    set dtxid [string trim [lindex $value_list 1]] 
    set dtid [string trim [lindex $value_list 4]] 
    gets $flopen line 
    gets $flopen line 
    gets $flopen line 
    set line [join $line ","] 
    set tglist($idx) $dtxid 
    set gslist($idx) $dtid 
    set atblist($idx) $line 

    set data_end_from_max_line $datax ;# Can set the string here [expr $max_line - 3] 

    incr idx 
} 
} 

Answer 1

在做这样的事情，最简单的方法（提供的数据不是太大，所以不超过几百兆字节）是加载这一切并处理它里面的Tcl作为行列表。

set lines [split [read $flopen] "\n"] 
set particularLine [lindex $lines end-3]