regsub syntax

[arfer]

I want to use a single regsub command to colourise text that is inside parenthesis without colourising the parenthesis themselves.

The following would additionally colourise the parenthesis

Code: Select all

set txt "this is a test (hopefully). We'll see"
set txt [regsub -all -- {\([^\)]+\)} $txt "\00314&\003"]

The following would work but is two regsub commands

Code: Select all

set txt "this is a test (hopefully). We'll see"
set txt [regsub -all -- {\(} $txt "(\00314"]
set txt [regsub -all -- {\)} $txt "\003)"]

Is there any regsub syntax that would accomplish my needs?

[tsukeh]

Code: Select all

set txt "this is a test (hopefully). We'll see"
set txt [regsub -all -- {(.*)\(([^)]*)\)(.*)} $txt "\\1(\00314\\2\003)\\3"]

[speechles]

<speechles> .tcl set txt "this is a test (hopefully). We'll (see) what happens (here)"
<sp33chy> Tcl: this is a test (hopefully). We'll (see) what happens (here)
<speechles> .tcl set txt [regsub -all -- {\((.*?)\)} $txt "\(\00309\\1\003\)"]
<sp33chy> Tcl: this is a test (hopefully). We'll (see) what happens (here)

[arfer]

Ah OK, thanks a lot. I get the gist of it now.

I'm going to try just this. Should be OK I expect (now I've seen what isn't in the manual)

Code: Select all

set txt "this is a test (hopefully). We'll see" 
set txt [regsub -all -- {\(([^)]*)\)} $txt "(\00314\\1\003)"] 

Hmm, I just saw your post speechless, perhaps this then

Code: Select all

set txt "this is a test (hopefully). We'll see" 
set txt [regsub -all -- {\(([^)]*?)\)} $txt "(\00314\\1\003)"] 

Anyway. Thanks guys. I can have a play now I know about these replacement functions.