How to remove spaces in a string in TCL?

Question

I need to separate leading and trailing spaces from a string in TCL. How?

Answer 1

Try it -

line cropping string? chars?

Returns a value equal to the string, except that any leading or trailing characters from the set specified by characters are deleted. If no characters are specified, the space is removed (spaces, tabs, newlines, and carriage returns).

Source of the original: - http://wiki.tcl.tk/10174

Answer 2

try it. this will remove all withe spaces

[string map {" " ""} $a]; 

a is your string