如何在tcl中创建一个n 1的字符串？

Question

我需要在tcl中创建一个n 1的字符串，其中n是某个变量，我该怎么做呢？

目前我正在这样做，但必须有更好的方法。

BEGIN_CONNECTION_POINT_MAP(CMBusInclinometerTemChannel)
  CONNECTION_POINT_ENTRY(__uuidof(IChannelEvents))
END_CONNECTION_POINT_MAP()

在python中我写set i 1 set ones 1 while {$i < $n} { set ones 1$ones incr i} 。

Answer 1

解决方案1：[简单解决方案]

set n 10
puts "[string repeat "1" $n]" ;# To display output on console
set output_str [string repeat "1" $n] ;# To get output in variable

解决方案2：

你必须在字符串中多次append“一个”n次，其中n是你想要的字符串数。

set n 10
set i 0
set ones 1
set output_str ""
while {$i < $n} {
    append output_str $ones
    incr i
}

输出，

puts $output_str ;#Gives output 1111111111

Answer 2

有一个内置的字符串命令来执行此操作：

% set n 10
10
% string repeat "1" $n
1111111111
%