这里会显示出您选择的修订版和当前版本之间的差别。
— |
tcl:split [2013/06/07 14:09] (当前版本) |
||
---|---|---|---|
行 1: | 行 1: | ||
+ | ====== TCL split 多个字符为分隔符 ====== | ||
+ | TCL里默认的split函数是以单个字符为分隔符对字符串进行分割,下面的程序实现了用多个字符的字符串对目标字符串进行split: | ||
+ | |||
+ | <code tcl> | ||
+ | proc wsplit {str sep} { | ||
+ | split [string map [list $sep \0] $str] \0 | ||
+ | } | ||
+ | </code> | ||
+ | |||
+ | |||
+ | ===== TCL以多个空格符分割 ===== | ||
+ | <code> | ||
+ | split [regsub -all {\s+} "a b" " "] | ||
+ | </code> |