tcllist创建连续数

通过设置一个变量为由多个值组成的列表-- set lst {{item1} {item2} {item3}}

使用split命令 -- set lst [split "item1.item2.item3" "."]

使用list命令 -- set lst [list "item1" "item2" "item3"]

使用concat -- set lst [concat arg1 arg2 ... argn]

注：split string ?splitChars? 是把string中分割成多个值组成list，分割符是splitChars，默认是空格

concat ?arg1 arg2 ... argn? 中的args既可以是一个单个的 元素，也可以是一个list列表，如果是一个arg已经是list，它的内容会和其他arg连接在一起

一个独自的list成员可以通过lindex下标命令访问:

lindex $list index -- 返回第index个列表项（下标从0开始）

llength $list -- 返回列表元素的个数，可通过使用foreach命令进行枚举

foreach varname $list {body} -- 对每一个列表项执行body中的代码，每一次，varname会包含list的下一个变量。可以同时接受多个来自列表的元素：foreach {a b} $lst {...}，也可以同时接受来自多个列表的单个变量：foreach a $lst1 b $lst2 {...}

如果想要实现列自增的话可以设置该列字段为自增列即identity（int, 1,1）

而如果只是想在该列中插入自增数据，则可以通过定义变量，利用循环实现

declare @count int

select @count = 1

while @count <= 100

begin

insert list(‘列名') select @count

select @count = @count + 1

end

---