[Solved] color codes not interpreted but displayed

[CrazyCat]

Hello there,

I've a small tcl containing sentences with color code, as : "\0034Alert\003 : error in code"

These sentences are loaded in an array in my script, but when the line is used by my script, I get the color code in the channel.

Here is the way I load the sentences:

Code: Select all

proc file:load {} {
    set jp [open $::filename "r"]
    set jdata [read -nonewline $jp]
    close $jp
    set ::j_list ""
    foreach templine [split $jdata "\n"] {
        set line [split $templine "="]
        set jkey [string tolower [lindex $line 0]]
        lappend ::j_list $jkey
        set ::key_gen($jkey) [lindex $line 1]
        bind pubm - "*:$jkey*" file:display
    }
}

Any idea about this "bug" ?

[EDIT]
Making a small test, error appears when getting datas from a file. Seems to be an escape of \ ?

[nml375]

Escape sequences are never substituted when reading a file. If you trust the contents of the file to be safe, you could use subst to do the substitutions...

[CrazyCat]

MenzAgitat gaves me the solution on my forum: join the line. And it works fine.