tcl string length > 2000 replace a string

[Ganesan Murali]

I’m new to tcl.

Can you pls help me guys.

I need to check the NTE-3.1 text length …

if NTE-3.1 > 2000 characters then

     i need to replace the NTE3.1 = ” Refer to Web Module”  

if NTE-3.1 < 2000 characters then      no change – send the same NTE-3.1 source string. Pls help . Thanks.

Topic

[Rob Abbott]

In your COPY statement, put the following in the “pre” Tcl

Code:

if { [string length [lindex $xlateInVals 0]] > 2000 } {
 set xlateOutVals [list “Refer to Web Module”]
}

Rob Abbott
Cloverleaf Emeritus

[Author]

Replies