egghelp/eggheads community

Removing colors etc from string.

2004-05-04T05:16:28-04:00

That worked fine! Thx!

Statistics: Posted by Guest — Tue May 04, 2004 5:16 am

Re: Removing colors etc from string.

2004-05-03T11:04:07-04:00

when I put the text into a mysql datbase some strings still have a in them. Could someone help me with this? What did I forget to remove form the string?

That "" is the mIRC control code for plain text. I think the proc you pasted is a bit overkill if you want to strip all control codes. Try this instead:

Code:

proc mircstrip text {regsub -all {\002|\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\026|\037} $text {} textset text}

I don't think is a color, is it?

you're right.

Statistics: Posted by user — Mon May 03, 2004 11:04 am

Removing colors etc from string.

2004-05-03T06:12:34-04:00

Ok, this is the mirc code:

Code:

2[14P-R-E2] 2[12MP31/121REAL2] 2[Jay_Epoch-Particles-Directions_In_Groove_(Proton)_28-03-2004-1REAL2]

This is how it looks:

Statistics: Posted by Guest — Mon May 03, 2004 6:12 am

Removing colors etc from string.

2004-05-03T06:05:55-04:00

I don't think is a color, is it? If not, why would a color stripper remove it?

Why don't you post some sample lines that cause that error.

Statistics: Posted by stdragon — Mon May 03, 2004 6:05 am

Removing colors etc from string.

2004-05-03T03:52:42-04:00

Hi, I want to parse the text of someone and put this into a mysql database. I found this function to remove colors from the post:

Code:

# mirc_strip [switches] #     version:#       v1.0proc mc:sc:mirc_strip {{args ""}} {  mc:sc:badargs $args 1 7 "?switches? text"  set switches ""  for {set i 0} {[string match -* [set arg [lindex $args $i]]]} {incr i} {    if {![regexp -- {^-(all|bold|color|reverse|underline|-)$} $arg -> switch]} {      set valid "-all -bold -color -reverse -underline {or --}"      error "bad switch \"$arg\": must be [join $valid ", "]"    }    if {$switch == "-"} {      incr i      break    }; lappend switches $switch  }  if {$switches == ""} {set switches all}  set arg [lindex $args $i]  mc:sc:badargs [lrange $args $i end] 1 1 "?switches? text"  set all [expr {([lsearch -exact $switches all] >= 0) ? 1 : 0}]  set list ""  if {$all} {    set list [list \002 "" \017 "" \026 "" \037 ""]  } else {    if {[lsearch -exact $switches bold] >= 0} {lappend list [list \002 ""]}    if {[lsearch -exact $switches plain] >= 0} {lappend list [list \017 ""]}    if {[lsearch -exact $switches reverse] >= 0} {lappend list [list \026 ""]}    if {[lsearch -exact $switches underline] >= 0} {lappend list [list \037 ""]}  }  if {$all || ([lsearch -exact $switches color] >= 0)} {    regsub -all -- "\003(\[0-9\]\[0-9\]?(,\[0-9\]\[0-9\]?)?)?" $arg "" arg  }  set arg [mc:sc:replace -- $arg [join $list]]  return $arg}

But when I put the text into a mysql datbase some strings still have a in them. Could someone help me with this? What did I forget to remove form the string?

Thx alot!

Statistics: Posted by Guest — Mon May 03, 2004 3:52 am