Q5/ws_objects/Ew_define.pbl.src/f_get_pzsplit2.srf

$PBExportHeader$f_get_pzsplit2.srf
global type f_get_pzsplit2 from function_object
end type

forward prototypes
global function string f_get_pzsplit2 (string arg_pzstr, string arg_pzint)
end prototypes

global function string f_get_pzsplit2 (string arg_pzstr, string arg_pzint);String ls_rtstr
IF Trim(arg_pzstr) = "" OR IsNull(arg_pzstr) OR arg_pzint = "" OR IsNull(arg_pzint) THEN RETURN ""

IF Right(arg_pzstr,1) <> "|" THEN
	arg_pzstr += "|"
END IF

Long i
Long ll_start
String ls_name, ls_title
i = 0
ll_start = Pos(arg_pzstr, "|")
DO WHILE ll_start > 0
	i++
	
	ls_name = Left(arg_pzstr, ll_start - 1)
	IF Pos(ls_name, ":") > 0 THEN
		ls_title = LEFT(ls_name, Pos(ls_name, ":") - 1)
		ls_name = Mid(ls_name, Pos(ls_name, ":") + 1)
	ELSE
		ls_title = ""
		ls_name = ls_name
	END IF
	
	IF ls_title = arg_pzint THEN
		ls_rtstr = ls_name
		EXIT
	END IF
	
	arg_pzstr = Mid(arg_pzstr, ll_start + 1)
	ll_start = Pos(arg_pzstr, "|")
LOOP



RETURN ls_rtstr

end function