Need help to remove color codes

2022-10-08T17:59:02-04:00

Many thanks!!! Worked!

Statistics: Posted by cnecrea — Sat Oct 08, 2022 5:59 pm

Need help to remove color codes

2022-10-08T09:24:05-04:00

If you want to strip any color or control char, just add:

Code:

set text [stripcodes * $text]

You can have a look @ https://docs.eggheads.org/using/tcl-com ... ags-string if you want more informations about this command.

Statistics: Posted by CrazyCat — Sat Oct 08, 2022 9:24 am

Need help to remove color codes

2022-10-08T09:07:54-04:00

hi there,

Can someone help me with this part of TCL? It is supposed to log all chat lines and actions (/me or /ame) to a file. The "problem" is that when someone writes with color code (CTRL+K) or BOLD/Underline also logs it and I don't want that.

CTRL+K+12 example

Code:

10/08/22 14:49:52 CMSG #CHANNELLOG: user(user@12.12.12.12) 12this is CTRL+K+12

example what I want without inserting "12" or similar (strip codes)

Code:

10/08/22 14:49:52 CMSG #CHANNELLOG: user(user@12.12.12.12) this is CTRL+K+12

Code:

setudef flag chatset logfile "logs/"bind pubm - * spymsgechoproc spymsgecho { nick uhost h chan text } {   if {[channel get $chan chat]} {     global logfile     set r "[open "$logfile/$chan.log.log" a+]"     puts $r "[strftime "%D %T"] CMSG $chan: $nick ($uhost) $text";     close $r   }}bind ctcp - action spyactionechoproc spyactionecho {nick uhost h d k text} {   global botnick   if {$d == $botnick} {       return 0   } elseif {[lsearch -exact [channel info $d] {+chat}] != "-1"} {     global logfile     set r "[open "$logfile/$d.log.log" a+]"     puts $r "[strftime "%D %T"] AMSG $d: $nick ($uhost) $text";     close $r   }}putlog "TCL LOG"

Any help would be a great help, thanks!!!

Statistics: Posted by cnecrea — Sat Oct 08, 2022 9:07 am

egghelp/eggheads community

Need help to remove color codes

Need help to remove color codes

Need help to remove color codes