tcl - How to join without losing special characters? -


i have following string:

"name\r {} {} {} {} {} other_name other_name {} {} -600.0 {} {} 860.0 {} {} -" 

(i.e. string special character: \r ).

when join line lose special charecters.

suppose:

set name "name\r {} {} {} {} {} other_name other_name {} {} -600.0 {} {} 860.0 {} {} -"  set name [join $name] 

now name losing special characters(at least \r).

how resolve this?

i tried few things , came this:

set name {name\r {} {} {} {} {} other_name other_name {} {} -600.0 {} {} 860.0 {} {} -} # braces prevent substitution of \r  regsub -all {\\r} $name {\\\r} name # substitution using regexp substitute \r \\r  set name [join $name] # returns: "name\r      other_name other_name   -600.0   860.0   -" 

or in case there might more characters might want escape, use more general:

regsub -all {\\} $name {\\\\} name 

instead.


Comments

Popular posts from this blog

java - Jmockit String final length method mocking Issue -

asp.net - Razor Page Hosted on IIS 6 Fails Every Morning -

c++ - wxwidget compiling on windows command prompt -