Replacing Escape Characters

[David Harrison]

I

Topic

[Max Drown (Infor)]

Here’s a quick test I put together that seems to work:

Code:

set var “\.br\\.br\”
regsub {\.br\\.br\} $var ” ” result
puts “[$result]”

set var “\.br\”
regsub {\.br\} $var “” result
puts “[$result]”

-- Max Drown (Infor)

[Max Drown (Infor)]

Here’s a similar discussion: http://clovertech.infor.com/viewtopic.php?t=3332&highlight=escape

-- Max Drown (Infor)

[Jim Kosloskey]

David,

Try treating xlateInVals and xlateOutVals as lists.

Once you get the list element you want from xlateInVals I think your logic will work fine.

Just be sure to build xlateOutVals as a list.

email: jim.kosloskey@jim-kosloskey.com 29+ years Cloverleaf, 59 years IT - old fart.

[Max Drown (Infor)]

Just in case, what Jim means is something like “set var [lindex $xlateInVals 0]” and “set xlateOutVals

“.

-- Max Drown (Infor)

[Charlie Bursell]

set $xlateOutVals $xlateInVals is superflous since, by default, xlateOutVals *IS* equal xlateInVals.

The statement:  if {$result >=0} {

will always be true since the rexexp above will return 0 or 1

As Jim said, treating xlateInVals and xlateOutVals as lists will probably solve your problem.

FWIW, I like string map in this situation bettter than regsub becaulse of the backslashes and the dots.  However opinions are like rear ends.  We all have one and most of them stink  😆

[David Harrison]

Many thanks to all. I followed Jim’s advice and it worked perfectly.

Charlie, from what you say, I presume you value Dolly Parton’s opinion.

Regards,

Dave

[Author]

Replies