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

Question

For example, my text is :

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

I want to split the by the different blocks, in tcl. Eg:

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

Any way to make this work? Thanks!

Answer 1

Try the tcllib `textutil::splitx`` command. (see http://core.tcl.tk/tcllib/doc/trunk/embedded/www/tcllib/files/modules/textutil/textutil.html#8 )

It can split text based on a regular expression.