alias rbkx {
if ($3 == $null) { return $1- }
set %temp $3-
set %l 1
set %r 1
if ($1 isin %temp) && ($2 isin %temp) {
while ($pos(%temp,$1,%l) > $pos(%temp,$2,%r)) {
inc %r
}
set %temp $left(%temp,$calc($pos(%temp,$1,%l)-1)) $+ $right(%temp, $calc($len(%temp) - $pos(%temp,$2,%r)))
}
return %temp
}
Something like that?