- This topic has 9 replies, 6 voices, and was last updated 16 years, 1 month ago by
.
-
Topic
-
Hello Everyone, I am having great difficulty accomplishing something that should not be too hard – but, I cannot in the life of me figure out what I am doing wrong.
I need to add a new hard coded OBX segment after the VERY last OBX segment if a condition is met (if $flg is P). I don’t know where or how I should do this? I attempted setting a new variable with the new OBX and added an if condition, but it did not work. So, I have removed it.
The segment to add is :
OBX|$OBX_count||CULTSTAT|||||P[format %c 13]
I have attached the code, and also have a snippet below:
set OBX [lindex $line 3]
set OBXSplit [lindex [split $OBX ^] 0]
set ABFlg [lindex [split [lindex $line 3] ^] 1]
set Flg [lindex [split $ABFlg “*”] 1]
set Flg [string trimright $Flg]
if {$Flg !=”P”} {
append OBXsegs OBX|$OBX_count||||[lindex $line 3][format %c 13]
} else {
append OBXsegs OBX|$OBX_count||||$OBXSplit[format %c 13]
}
incr OBX_count +1
}
incr DSP_count +1
}
}
}
append out OBR|1|$OBR2||$OBR4_1^|||$OBR7|||||||||$physID||||||||$OBR24|$OBR25|[format %c 13]
append out $OBXsegs
return $out
}
Thank you for all your help.
-
Replies
-
-
-
-
-
Without reading through your code, you should be able to make something like this work: set segIndex -1
set addOBX 0
foreach seg $segList {
incr segIndex
# Everytime you come across an OBX, set ‘obxIndex’ to $segIndex
# At the end of the proc, this will give you the index of the last OBX
# in the message.
#
# Determine if you need to add extra OBX. If so, do the following:
# set addOBX 1
# Create the new OBX and place the value in ‘newOBXData’
# Do whatever you need to do with the other segments in the message
}
# If you need the extra OBX, insert it into whatever your new segList variable maybe
if { $addOBX } {
incr obxIndex
set newSegList [linsert $newSegList $obxIndex $newOBXData]
}
There are many ways to accomplish something like this. This is just one.
Hope this helps.
Steve
-
-
Thanks for all the responses. I will give them some thought. Tom,
I tried exactly as you suggested before posting, but that didn’t do a thing. It was actually ignoring the new variable.
Jim,
I am not currently using an Xlate. We are just modifying an existing code in place to address this matter.
Thanks again.
-
I didn’t really look at your code but assuming you have Tcl 8.4 (CL 5.4.1+) this is easy. Assume all of your segments are in a lis, segList. Also assume you have built the extra OBX segment in a variable name OBX
# First get a list of locations for all OBX segments
set obxLocs [lsearch -all -regexp $segList {^OBX}]
# Now get the last location
set lastLoc [lindex $obxLocs end]
# Incement this location so you insert after last
incr lastLoc
$ Now simply insert in the list
set segList [linsert $segList $lastLoc $OBX]
Piece of cake 😀
-
-
Thank you all for your replies and for the many helpful suggestions. I apologize for not responding sooner, as I had been out of the country and just returned. I finally did get it to work, and the problem was that a variable I had set was not set in the correct place; it had to be defined globally or out of the loop.
Thank you Steve Carter for sending me a script to follow, this was very helpful indeed.
Again, thank you all for always coming thru for me!
-
- The forum ‘Cloverleaf’ is closed to new topics and replies.
