Q5/ws_objects/Ew_email.pbl.src/uo_strhelper.sru

$PBExportHeader$uo_strhelper.sru
forward
global type uo_strhelper from nonvisualobject
end type
end forward

global type uo_strhelper from nonvisualobject
end type
global uo_strhelper uo_strhelper

forward prototypes
public subroutine split (string arg_source, string arg_spliter, ref string arg_return[])
end prototypes

public subroutine split (string arg_source, string arg_spliter, ref string arg_return[]);string arg_rslt[]
long ll_cnt = 0
long ll_pos = 0

do while len(arg_source) > 0
	ll_pos = pos(arg_source, arg_spliter)
	if ll_pos > 0 then
		ll_cnt++
		arg_rslt[ll_cnt] = mid(arg_source, 1, ll_pos - 1)
		arg_source = mid(arg_source, ll_pos + len(arg_spliter))
	else
		ll_cnt++
		arg_rslt[ll_cnt] = arg_source
		arg_source = ''
	end if
loop

arg_return = arg_rslt
end subroutine

on uo_strhelper.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_strhelper.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on