如何在Tcl中的单词之间给出动态变化的空间？

Question

我是tcl的新手，我喜欢你帮助在Tcl中提供动态可变间距。示例：“Stack over flow”“Stack”为5个字母。所以我必须给出5的空格来开始下一个单词同样的下一个单词。

Output: Stack     over    flow

Answer 1

我想你可以这样做：

set example "Stack over flow"
set result ""

foreach word $example {
    append result $word [string repeat " " [string length $word]]
}

set result [string trim $result]
puts $result

会给：

Stack     over    flow