[TCL] Farben Anfängerprob

[willi]

Hallo,

ich habe folgendes kleines Script geschrieben:


set fname logs/data.txt
if {![file exists $fname]} { close [open $fname w] }

set fname logs/data.txt
if {![file exists $fname]} { close [open $fname w] }

bind pubm - "*" pubm:echo
proc pubm:echo {nick uhost hand chan arg} {
global fname
set fp [open $fname "a"]
puts $fp $arg
close $fp
}


Funktioniert auch soweit ganz gut, allerdings habe ich ein Prob wenn die User andere Farben benutzen, da werden dann diese komischen Kästchen und Ziffern mit in die TXT gespeichert.

Wie kann ich das verhindern?

[Northeim]

Benutz mal die Suchfunktion hier im Board. Der Befehl heisst "regsub".

[willi]

den befehl hab ich gefunden... allerdings bekomm ich ihn anscheinend nicht korrekt eingebaut, denn egal wie ichs mache, ich seh nur error meldungen ;/

[darton]

Füge diese Zeile in dein Script ein und es sollte funktionieren.
set arg [stripcodes bcruag $arg]

[DarkAngel52457]

regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\007} $arg {} arg