$PBExportHeader$f_atab.srf
$PBExportComments$Tab分隔的字符串分解为数组--函数
global type f_atab from function_object
end type

forward prototypes
global function long f_atab (ref string aa[], string as)
end prototypes

global function long f_atab (ref string aa[], string as);int lj,li
string lsl='~t',ls
if as>'' and right(as,1)<>'~t' then as=as+'~t'
do while true
	lj=pos(as,'~t')//tab
	if lj=0 then exit
	ls=trim(left(as,lj -1))
	as=mid(as,lj+1)
	if pos(lsl,'~t'+ls+'~t')>0 then continue//有重名情况
	li++
	aa[li]=ls
	lsl=lsl+ls+'~t'
loop
return li

end function