format - 如何在 tcl 中以表格格式打印？

Question

我正在尝试在 tcl 中以表格格式打印数据。假设我有三个数组:-
GOLD, TEST, DIFF它有一些值(value)。我想按以下格式打印:-

GOLD           TEST         DIFF
-----------       --------       ---------
     1               Hello            Hi
     2               Stack          Format
     3               Guys           for
     4               TCL            print

你们有什么建议吗？

Answer 1

我会使用 format命令结合 foreach完成您的要求。我假设您实际上有 3 个列表，而不是 3 个数组，因为它会显示 gold、test、diff 的值以某种方式相互关联。

set goldList {1 2 3 4}
set testList {Hello Stack Guys TCL}
set diffList {Hi Format for print}

set formatStr {%15s%15s%15s}
puts [format $formatStr "GOLD" "TEST" "DIFF"]
puts [format $formatStr "----" "----" "----"]
foreach goldValue $goldList testValue $testList diffValue $diffList {
    puts [format $formatStr $goldValue $testValue $diffValue]
}

# output
       GOLD           TEST           DIFF
       ----           ----           ----
          1          Hello             Hi
          2          Stack         Format
          3           Guys            for
          4            TCL          print