Need help with Regsub trying to change ‘~*’ to a ‘~’.

Hi Tom,

Here is a example:

tcl>set a “~*”
~*
tcl>regsub -all — {\*} $a “”

You can add the following script hciregsub.tcl on outbound TPS with arg {\*} “”

Hope it will help you

Regards

‘string map’ also works well.

set OrigString {abcdefg~*hijklmnop}
set NewVar [string map

$OrigString]

Tom:
Not sure I understand what you need with the statement:
“The second part of the question is how do you pull the file into the tcl proc. I have done many times with HL7, is there any difference.”

You say you are mapping to variable length. Is that done in Tcl? Put the code in the same proc. If not simply add an IB proc either before or after the mapping and put the code there.
There is no difference in handling HL7 and other forms of files.

IMHO, string map is a much better alternative in this case than regsub. regsub is nice when you need to pick and choose what needs changing but string map is much more ergonomic when changing all.

Remember, string map takes a list as the argument to change.
set Y “HELLO ~* THERE”
set X [string map

$Y]
echo $X -> HELLO ~ THERE

You can form the list simply by building a space delimited field like “~* ~” but be careful when building lists like this.