Q5/ws_objects/Ew_email.pbl.src/f_all_indexof.srf

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

forward prototypes
global subroutine f_all_indexof (string arg_text, string arg_taglist[], ref s_email_indexof arg_rslt[])
end prototypes

global subroutine f_all_indexof (string arg_text, string arg_taglist[], ref s_email_indexof arg_rslt[]);long cnt,row,max,pos
string tag

max=len(arg_text)


for row=1 to upperbound(arg_taglist)
	pos=1
	cnt=1
	tag=arg_taglist[row]
	pos=pos(arg_text,tag,pos)
	do while pos>0
		arg_rslt[row].list[cnt]=pos
		arg_rslt[row].match[cnt]=-1
		cnt++
		pos=pos(arg_text,tag,pos+1)
	loop
//	arg_rslt[row].list=rslt
next
end subroutine