Created by [CecilWesterhof].

Often I want to split a string on repeating white-space. The normal split function does not do what I want. For example:

======
split "   To   show    the   problem.   "
======

gives:

======
{} {} {} To {} {} show {} {} {} the {} {} problem. {} {} {}
======

That is why I created the following proc:

======
proc splitOnWhiteSpace {value {count -1}} {
    set splitLst [regexp -all -inline {\S+} ${value}]
    if {${count} != -1} {
        set length [llength ${splitLst}]
        if {${length} != ${count}} {
            error "'${value}' contains ${length} instead of ${count} values"
        }
    }
    return ${splitLst}
}
======

With this I get:

======
To show the problem.
======

Beside splitting on repeating white-space, it can also check the count. For example:

======
splitOnWhiteSpace "Just a test." 4
======

gives:

======
'Just a test.' contains 3 instead of 4 values
======

----

As always: comments, tips and questions are appreciated.

<<categories>>Example | String | Utilities