创建具有正确索引的文件

Question

我目前有一个包含300行和3列的文本文件。

我需要遍历所有行，使用3列中的值分配3个变量。

每次循环遍历for循环时，我需要在输出文件的名称中生成一个带有索引号的输出文件。 （总的来说，我需要生成300个输出文件）

例如，对于第49次迭代，我需要生成名为 product-49.out 的输出文件。你有什么建议吗？

Answer 1

以下是如何执行此操作的示例：

set counter 1
set fp_in [open my-text-file.txt r]
set line [gets $fp_in]
while { ![eof $fp_in] } {
  # store the columns on the current line in variables:
  lassign $line var1 var2 var3
  set fp_out [open "product-$counter.out" w]
  # write one line from the input file to each output file:
  puts $fp_out $line
  close $fp_out
  set line [gets $fp_in]
  incr counter
}
close $fp_in