TcL - 列表编辑

我有这个来自FE分析程序的数据列表。我的问题是，在写数据的FE程序中的功能是通过将所有信息放在同一行上来完成的。我最终得到了llength 1的“列表”，并在同一行上输入了10 000个条目。我希望能够在列表中的每个数据之间插入某种“输入”。每个数据具有相同的长度（＃字符）。这样的例子不胜枚举是这样的： 4.81941e-010 4.89941e-010 3.81941e-010 1.81341e-010 ...等（在同一行）我想这样做：TcL - 列表编辑

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

谢谢您的帮助！

来源

2016-05-31 John

如果列表与您所做的一样因为它的'llength' 1是怎么样的？ – nwk

如何

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

来源

2016-05-31 19:20:40

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

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

来源

2016-05-31 19:23:08

这看起来非常好，谢谢你的想法！ :) – John

TcL - 列表编辑

回答

相关问题