Tcl 在字符串末尾添加符号 N 次

Question

例如，当 N = (25 - string_length) 时，如何在字符串末尾添加 N 个空格？是否有一个命令可以直接执行此过程，或者我应该使用循环？

Answer 1

解决这个问题的另一种方法是使用 format 命令，如果你知道你想要一个长度为 25 且用空格填充的字符串，那么：

% format "|%-25s|" hello
|hello                    |

应该这样做。 （| 只是用来分隔结果）。还可以使用变量来设置输出的总宽度：

% set width 25
25
% format "|%-*s|" $width hello
|hello                    |

Answer 2

有几种方法可以做到这一点：

使用格式

set padded [format "%-25s" $str]

（另请参阅 杰克逊对此的回答。）

使用字符串重复

set padded $str[string repeat " " [expr {25 - [string length $str]}]]

使用循环附加

for {set padded $str} {[string length $padded] < 25} {} {
    append padded " "
}

使用二进制格式

set padded [binary format "A25" $str]

（请注意，这仅对于 \u00FF 以内的字符是安全的.)

Answer 3

您可以使用字符串重复，即

% string repeat : 25
:::::::::::::::::::::::::