Q5/ws_objects/updatexetmp/wfsoft.com/ew_fh.pbl.src/f_get_pzsplit_2.srf

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

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

global function string f_get_pzsplit_2 (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

//DO WHILE ll_start > 0 AND i < arg_pzint
//	i++
//	IF i = arg_pzint THEN
//		ls_rtstr = Left(arg_pzstr, ll_start - 1)
//		if pos(ls_rtstr, ":") > 0 then
//			ls_rtstr = Mid(ls_rtstr, pos(ls_rtstr, ":") + 1)
//		end if
//		exit
//	END IF
//	arg_pzstr = Mid(arg_pzstr, ll_start + 1)
//	ll_start = Pos(arg_pzstr, "|")
//LOOP


RETURN ls_rtstr


end function