Cómo interceptar caracteres por delimitador en programación PB

Hola, puedes crear una función

Ejemplo: gf_gettext

Cadena de retorno

Parámetro 1: ls_text

Parámetro 2: ls_target//El código de función es el siguiente-------------------------------- ------- -----------------------

longll_pos

longll_pos_start

longll_pos_end

string?str_return

ll_pos?=?pos(ls_text,ls_target)

if?ll_pos?>?0?then?ll_pos_start? =?ll_pos?+?len( ls_target)?+?1 ll_pos?=?pos(ls_text,ls_target,ll_pos_start) ll_pos_end?=?ll_pos str_return?=?mid(ls_text,ll_pos_start,ll_pos_end?-?ll_pos_start?-?1 ) return?str_return

else return?"NULL"

end?if

Ejemplo de llamada: str_temp?=?'123456Zhang SanHombreNo. XX Road, XX Ciudad, '

gf_gettext(str_temp,'ID card')//Regresar ?: 123456