re-order obx segs last to first using tcl

This topic has 3 replies, 3 voices, and was last updated 12 years, 3 months ago by Charlie Bursell.

Creator

Topic
June 8, 2012 at 7:55 pm #53136

Jennifer Johnson
Participant

Looking to reverse order of obx segments using tcl without the lreverse command. Field values do not need any manipulation. Just each segment moved. Thank you!
Creator

Topic

Viewing 2 reply threads

Author

Replies
- June 11, 2012 at 1:30 pm #76689
  
  Max Drown (Infor)
  Keymaster
  
  You could try the tcl lsort command with the -decreasing command.
  
  http://www.tcl.tk/man/tcl8.0/TclCmd/lsort.htm
  
  -- Max Drown (Infor)
- June 11, 2012 at 1:35 pm #76690
  
  Max Drown (Infor)
  Keymaster
  
  Here’s a simple example.
  
  Code: lappend obx_segments 1||||5||| 2||||5||| 3||||5||| 4||||5||| 5||||5||| 6||||5||| 7||||5||| 8||||5||| 9||||5||| 10||||5||| puts $obx_segments set obx_segments [lsort -decreasing -dictionary $obx_segments] puts $obx_segments
  
  Output:
  
  Code: 1||||5||| 2||||5||| 3||||5||| 4||||5||| 5||||5||| 6||||5||| 7||||5||| 8||||5||| 9||||5||| 10||||5||| 10||||5||| 9||||5||| 8||||5||| 7||||5||| 6||||5||| 5||||5||| 4||||5||| 3||||5||| 2||||5||| 1||||5|||
  
  -- Max Drown (Infor)
- June 11, 2012 at 5:52 pm #76691
  
  Charlie Bursell
  Participant
  
  Simple
  
  Assume $SEGMENTS is a list of all HL7 segments
  
  set revLoc [lsort -integer -decreasing
  
  [lsearch -all -regexp $SEGMENTS {^OBX}]]
  
  set obxLst [lsearch -all -inline -regexp $SEGMENTS {^OBX}]
  
  foreach loc $revLoc OBX $obxLst {
  
  set SEGMENTS [lreplace $SEGMENTS $loc $loc $OBX]
  
  }
Author

Replies

Viewing 2 reply threads

The forum ‘Tcl Library’ is closed to new topics and replies.