鞏固foreach命令

Question

foreach old_cellname $old_cell_full_name { 
echo $old_cellname >> origin.txt} 
foreach origin $cell_origin { 
echo $origin >> origin.txt} 
foreach new_cellname $new_cell_full_name { 
echo $new_cellname >> origin.txt} 

使用上面的代碼我能夠得到origin.txt中的輸出作爲舊的單元格名稱，後跟它們的原始編號，然後是新的單元格名稱。但我希望我的輸出作爲行，即舊的單元名稱的起源和新的單元名稱。是否有可能做出這些改變？任何幫助，高度讚賞。

Answer 1

如果列表長度相同並且明智地匹配，當然可以。只需使用一個多列表foreach：

foreach old $old_cell_full_name origin $cell_origin new $new_cell_full_name { 
    # echo isn't a standard Tcl command, but I guess this ought to work 
    echo "$old\t$origin\t$new" >> origin.txt 
} 

我假設製表符分隔就行了。這非常方便，因爲它可以讓您輕鬆地將數據導入電子表格。如果您喜歡逗號，請使用,而不是\t。