lsearch and split help please

Are you looking for something like:

set j “NM1*QC*1*ABEYTA*SAM*E***MI*YIJ804039103”

NM1*QC*1*ABEYTA*SAM*E***MI*YIJ804039103

hcitcl>set k “NM1*QC*1*ADAM*MARK*S***MI*R51073202”

NM1*QC*1*ADAM*MARK*S***MI*R51073202

hcitcl>set j_value [lindex [split $j *] 9]

YIJ804039103

hcitcl>set k_value [lindex [split $k *] 9]

R51073202

Or something like

hcitcl>regexp — {*MI*([^*s]*)$} $k {} k_match

1

hcitcl>echo $j_match

YIJ804039103

hcitcl>regexp — {*MI*([^*s]*)$} $k {} k_match

1

hcitcl>echo $k_match

R51073202

Mypersonal opinion is chasing X12 with Tcl vs Xlate and variant is a waste of effort.

In either case, you need to understand the entirety of the use of the X12 segment at the various levels and loops. So vendor documentation iis essential.

It is also possible this particular provider of the X12 message is not following the standard although the X12 standard is quite vigorously enforced unlike HL/7.

Unless I am missing something here:

Assume string to search is in variable named str

set str {NM1*QC*1*ABEYTA*SAM*E***MI*YIJ804039103}

# Just in case MI not there

set wantStr “”

set lst [split $str *]

set loc [lsearch -exact $lst “MI”]

if {$loc >=0} {set wantStr [lindex $lst [expr $loc + ]]}

echo GOT: $wantStr

YIJ804039103