Question

我写了一个Tcl代码，它给出了如下输出。我非常接近我需要的东西。代码：

for { set row 0 } { $row < 3 } {incr row } {
set row[expr {$row + 1}] [lindex $sub_list $row]
puts "row[expr {$row + 1}] [lindex $sub_list $row]"
set pattern_number [llength [lindex $sub_list $row]]
puts "pattern_number = $pattern number"
set pattern_index [lindex $sub_list $row]

    for {set p 0} { $p < $pattern_number} {incr p} {
      set pattern[expr {$p + 1}] [lindex $pattern_index $p]
      puts "pattern[expr {$p + 1}] [lindex $pattern_index $p]"
    }

}

输出上述代码：

Row1 A B C D
pattern number = 4
pattern1 A
pattern2 B
pattern3 C
pattern4 D

Row2 P Q R S
pattern number = 4
pattern1 P
pattern2 Q
pattern3 R
pattern4 S

Row3 W X Y 
pattern number = 3
pattern1 W
pattern2 X
pattern3 Y

相反，我希望代码为我提供如下输出：

Row1 A B C D
pattern number = 4
pattern1 A
pattern2 B
pattern3 C
pattern4 D

Row2 P Q R S
pattern number = 4
pattern5 P
pattern6 Q
pattern7 R
pattern8 S

Row3 W X Y 
pattern number = 3
pattern9 W
pattern10 X
pattern11 Y

请建议我该怎么做

Answer 1

使用foreach
不要重置变量

所以你的代码变成了：

set rownr 0
set patnr 0
foreach row $sub_list {
    incr rownr
    puts "Row$rownr $row"
    puts "pattern number = [llength $row]"
    foreach pattern $row {
        incr patnr
        puts "pattern$patnr $pattern"
    }
}

如果您想进一步处理，请告诉我您的需求（我假设你真的不想动态生成变量名。）

Tcl脚本来纠正我的输出

1 个答案: