Question

我有来自有限元分析程序的数据列表。我的问题是FE程序中写入数据的功能是通过将所有信息放在同一行上来实现的。我最终得到了一个＆＃34;列表＆＃34; llength 1，同一行有10 000个条目。我希望能够提供一些＆＃34;输入＆＃34;在列表中的每个数据之间。每个数据都有相同的长度（#ofracracter）。列表是这样的： 4.81941e-010 4.89941e-010 3.81941e-010 1.81341e-010 ......等（在同一条线上）我想做点什么：

for {set i 1} {$i<=$length in list} {incr i 1} {
count 12 caracter then do a enter
}

感谢您的帮助！

Answer 1

怎么样

join $list \n

这是基于数字之间似乎有空格字符的事实，这意味着该字符串也是10000个项目的列表。

否则，您可以将子字符串放在这样的列表中：

set list {}
for {set i 0} {$i < [string length $str]} {incr i 13} {
    lappend list [string trimright [string range $str $i $i+12]]
}

文档：for，incr，join，lappend，set，string

Answer 2

除了彼得的回答，您可以选择用新行代替空格：

set list [string map {" " "\n"} $list]

TcL - 列表编辑

2 个答案: