Hi,

*regsub* and *regexp* are used to apply a *regexpression* on a string.
In difference to *regexp* the *regsub* is used to modify the string.

I have the following problem:

→ I want to modify the string *config_error_text* to *configErrorText*.

this looks like a simple *regsub* job like:

> regsub -all {_(\w)} "config_error_text" {\1??}

but as you see I can not uppercase the '\1' to just do the job I want.
I cant even call a *proc* in the *{\1??}* to do an arbitrary
post-processing.

mfg

On Friday, June 24, 2022 at 10:02:13 AM UTC+2, aotto1 wrote:
> Hi,
>
> *regsub* and *regexp* are used to apply a *regexpression* on a string.
> In difference to *regexp* the *regsub* is used to modify the string.
>
> I have the following problem:
>
> → I want to modify the string *config_error_text* to *configErrorText*.
>
> this looks like a simple *regsub* job like:
>
> > regsub -all {_(\w)} "config_error_text" {\1??}
>
> but as you see I can not uppercase the '\1' to just do the job I want.
> I cant even call a *proc* in the *{\1??}* to do an arbitrary
> post-processing.
>
>
> mfg
If I remember correctly, Tcl 8.7 does allow you to specify a procedure like that.

Regards,

Arjen

On 6/24/22 03:02, aotto1968 wrote:
> Hi,
>
> *regsub* and *regexp* are used to apply a *regexpression* on a string.
> In difference to *regexp* the *regsub* is used to modify the string.
>
> I have the following problem:
>
> → I want to modify the string *config_error_text* to *configErrorText*.
>
> this looks like a simple *regsub* job like:
>
> > regsub -all {_(\w)} "config_error_text" {\1??}
>
> but as you see I can not uppercase the '\1' to just do the job I want.
> I cant even call a *proc* in the *{\1??}* to do an arbitrary
> post-processing.
>
>
> mfg

You may want to consider using the *string map* command instead.

--
+----------------------------------------------------------------------+
| Gerald W. Lester, President, KNG Consulting LLC |
| Email: Gerald.Lester@kng-consulting.net |
+----------------------------------------------------------------------+

In article
<a81653bf-f4f0-4532-b4b2-d5e971b8cd27n@googlegroups.com>,
Arjen Markus <arjen.markus895@gmail.com> wrote:

> > this looks like a simple *regsub* job like:
> >
> > > regsub -all {_(\w)} "config_error_text" {\1??}
> >
> > but as you see I can not uppercase the '\1' to just do the job I want.
> > I cant even call a *proc* in the *{\1??}* to do an arbitrary
> > post-processing.
> >
> >
> > mfg
> If I remember correctly, Tcl 8.7 does allow you to specify a procedure like
> that.

Making every conceivable and inconceivable (and I do know its
meaning) edit possible results in a bloat of never used options.

while {[regexp {^(.*)_(¥w)(.*)$} $string - pre letter post]} {
set string $pre[string toupper $letter]$post
}

And if I do uae this pattern a lot:
proc regall {string re args} {
set script [lindex $args end]
set vars [lrange $args 0 end-1]
while {[llength [set vals [regexp -inline $string $re]]]}
{ uplevel 1 [list lassign [lrange $vals 1 end] $vars]
set string [uplevel 1 $script]
}
return $string
}

regall $string {^(.*)_(¥w)(.*)$} pre letter post {concat
$pre[string toupper $letter]$post]}

--
:-<> Siri Seal of Disavowal #000-001. Disavowed. Denied. Deleted. @
'I desire mercy, not sacrifice.' /|¥
Discordia: not just a religion but also a parody. This post / ¥
I am an Andrea Chen sockpuppet. insults Islam. Mohammed