egghelp/eggheads community

I've said this before...

2004-03-26T06:25:21-04:00

Code:

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

That's not the right way to match colors. It would match things like "\003," "\003,99" "\00366," where "," and "99" are not part of the color "tag". Try this instead:

Code:

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

Statistics: Posted by user — Fri Mar 26, 2004 6:25 am

lreplace question

2004-03-22T11:25:04-04:00

Thank you all

Statistics: Posted by Jag — Mon Mar 22, 2004 11:25 am

lreplace question

2004-03-22T10:56:58-04:00

or another version:

Code:

set code "1.2.3.4"set code [join [split $code .] *]

Statistics: Posted by arcane — Mon Mar 22, 2004 10:56 am

lreplace question

2004-03-22T09:14:59-04:00

Code:

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

Statistics: Posted by GodOfSuicide — Mon Mar 22, 2004 9:14 am

lreplace question

2004-03-22T08:28:43-04:00

Thanks, it works!

last question, how can i regsub all the colors/bolds/italics (\003,\002\037) from line?

Thanks again

Statistics: Posted by Jag — Mon Mar 22, 2004 8:28 am

lreplace question

2004-03-21T15:10:34-04:00

You can use that :

Code:

set code "1.2.3.4"set code [string map {. *} 1.2.3.4.5] ; return $codethat returns : 2 - result: 1*2*3*4*5 - clicks: 109

Or that :

Code:

set code "1.2.3.4"regsub -all -- {\.} $code * code ; return $codethat returns : 2 - result: 1*2*3*4*5 - clicks: 416

Statistics: Posted by Rusher2K — Sun Mar 21, 2004 3:10 pm

lreplace question

2004-03-21T14:32:09-04:00

I have the line:

1.2.3.4

How can i replace these lines to be:

1*2*3*3

With the [lreplace] command?

I have read the manual of this command, but i didn't understand.
Hope that you'll help me, thanks

Statistics: Posted by Jag — Sun Mar 21, 2004 2:32 pm