使用TCL提取多文件数据时无法生成独立列的技术求助

你当前的代码是先将dat1.txt中符合条件的内容逐行写入输出文件，再将dat2.txt的内容逐行追加到后面，自然会形成纵向的单列，而非横向的两列。要实现分列输出，需要先分别收集两个文件的目标数据，再将对应位置的数据拼接在同一行输出。

# 读取dat1.txt的目标数据到列表
set input1 [open "dat1.txt" r]
set list1 [list]
while {[gets $input1 line1] >= 0} {
    if {[string range $line1 0 3] == "ENE "} {
        lappend list1 [expr [lindex $line1 4]]
    }
}
close $input1

# 读取dat2.txt的目标数据到列表
set input2 [open "dat2.txt" r]
set list2 [list]
while {[gets $input2 line2] >= 0} {
    lappend list2 [lindex $line2 1]
}
close $input2

# 将两个列表的对应元素拼接成列写入输出文件
set out [open "final.txt" w]
set max_len [expr {max([llength $list1], [llength $list2])}]
for {set i 0} {$i < $max_len} {incr i} {
    set val1 [lindex $list1 $i ""]  ;# 列表长度不足时补空字符串
    set val2 [lindex $list2 $i ""]
    puts $out "$val1\t$val2"       ;# 用制表符分隔保证列对齐，也可换成空格
}
close $out

• 先分别从两个文件提取目标数据，存储到list1和list2列表中，把需要的数据提前缓存。
• 计算两个列表的最大长度，确保遍历到所有数据，避免遗漏较长列表的内容。
• 遍历过程中用lindex的第三个参数指定默认空字符串，处理两个列表长度不一致的情况，避免报错。
• 使用制表符\t分隔两个值，输出后在文本编辑器中会自动对齐成列，你也可以根据需求换成其他分隔符。

内容的提问来源于stack exchange，提问作者Juan J. Cepeda