如何通过tcl中的起始模式将文本（列表）拆分为部分（列表）

Question

例如，我的文字是：

Block 1:
   xxxxxx xxxx
   xxxxxx xxxx
   xxxxxx xxxx
Block 2:
   xxxxxx xxxx
   xxxxxx xxxx
   xxxxxx xxxx
Block 3:
   xxxxxx xxxx
   xxxxxx xxxx
   xxxxxx xxxx

我想在tcl中拆分不同的块。 E.g：

{Block 1:
   xxxxxx xxxx
   xxxxxx xxxx
   xxxxxx xxxx}
{Block 2:
   xxxxxx xxxx
   xxxxxx xxxx
   xxxxxx xxxx}
{Block 3:
   xxxxxx xxxx
   xxxxxx xxxx
   xxxxxx xxxx}

任何使这项工作的方法？ 谢谢！

Answer 1

尝试使用tcllib`textutil :: splitx``命令。 （见http://core.tcl.tk/tcllib/doc/trunk/embedded/www/tcllib/files/modules/textutil/textutil.html#8）

它可以根据正则表达式分割文本。