| 1234567891011121314151617181920212223242526 |
- $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
|
