前言
字符串的处理是每种语言经常会遇到的问题,tcl作为一门脚本语言自然也不例外,关于字符串的拆分,一般会有两种情况:1.使用单个字符拆分,2.使用字符串拆分。
使用单个字符拆分字符串
如图所示,使用单个字符可以轻松地分割字符串。

使用字符串拆分字符串
当我们使用字符串拆分字符串,tcl会使用字符串中的每个字符来拆分,无法达到我们的目的。

这时我们可以定义一个快捷的方法来使用字符串拆分字符串,如下是我新建的一个split.tcl文件的内容:
1 proc OnePiece {
str sep} {
2 split [string map [list $sep \0