问如何在TCL中操作文件中的每一行

EN

好的，如您的示例所示，您已经了解了如何将(slurped)文件拆分成行，并逐个处理它们。

现在实现“跳过十行，处理十行，跳过另外十行等等”有什么问题呢？它只是使用一个变量来计算到目前为止看到的行数，并根据它的值选择一个分支代码。当涉及到Tcl时，这种方法没有什么特别之处:可以使用命令进行计数、有条件地选择代码分支和控制循环。

如果基于行计数器的当前值的分支看起来太差劲了，您可以在该计数器变量周围实现一个state machine。但对于这个简单的例子，它看起来像是过度的工程。

另一种方法是使用lrange从split返回的列表中选择所需的一系列行。这种方法可能使用lrange的一个很好的属性，它可以被告知返回子列表“从这个索引开始直到列表的末尾”，所以解决方案实际上可以归结为：

set lines [split [read $fd] \n]
parse_header [lrange $lines 0 9]
puts [join [lrange $lines 10 19] \n]
parse_something_else [lrange 20 29]
puts [join [lrange $lines 30 end] \n]

对于一个小文件来说，这个解决方案看起来非常紧凑和整洁。

如果我没理解错的话，您希望打印11-20、31-40、51-60行...下面的代码将执行您想要的操作：

package require Tclx

set counter 0

for_file line xxx.txt {
    if {$counter % 20 >= 10} { puts $line }
    incr counter
}

Tclx包提供了一种从文件中读取行的简单方法：for_file命令。