读取特定行和列与TCL / TK形成文件

Question

我想从带有TCL / TK的文件中读取一个单词并将其存储在变量中。

我想读取位于第366行的file.txt和19到21的列中的单词，并将其存储在字符串变量Word中。

Answer 1

set fp [open src.txt r]
set count 0
while {[gets $fp line]!=-1} {
    incr count
    if {$count==366} {
            break
    }
}
close $fp

puts "Required Line : $line"
set result [string range $line 18 20]
puts "Required word(s) : $result"

string range指数从0开始，所以我在每个指数中减少了1