Question

说我有这样的字符串：

set str "AAA    B C     DFG 142               56"

现在我想得到如下列表：

{AAA B C DFG 142 56}

为此，我想使用split函数，但在这种情况下，我得到一些额外的空列表{}。我怎么能得到上面的清单？

Answer 1

set text "Some arbitrary text which might include \$ or {"
set wordList [regexp -inline -all -- {\S+} $text]

请参阅：Splitting a String Into Words。

Answer 2

您可以随时执行以下操作：

set str "AAA    B C     DFG 142               56"
set newStr [join $str " "]

它将输出以下内容：

{AAA B C DFG 142 56}

Answer 3

来自textutil::split的tcllib模块有一个splitx触发器，可以完全按照您的需要进行操作

package require textutil::split
set result [textutil::split::splitx $str]

Answer 4

从Tcl 8.5起，以下内容也有效：

list {*}$str

（前提是字符串也是正确的列表，如问题所示）。输出是所需的列表。

文档： list， {*} (syntax)

Answer 5

我知道这很旧，但是如果将来有人遇到这种情况，我将添加我的解决方案。我将未知数量的空格替换为一个空格字符，以使拆分正常工作，类似于Scott的答案：

set str "AAA    B C     DFG 142               56"    
regsub -all { +} $str " " str ; # str is now "AAA B C DFG 142 56"
set splitout [split $str { +}] ; # Split on one or more spaces.

TCL - 将任意数量的空格分隔为一个列表

5 个答案: