Pb拆分字符串

/******************************************************************* 
函数名称：f_parse() 
参数: as_text string 来源字符串 
as_sep string 分隔字符 
as_list[] ref string 分析后形成的字符串数组 
返回值： long 分析后形成的数组元素个数 
功能描述：分析字符串到一个数组中 
*******************************************************************/ 
long i,ll_pos 
string ls_null[],ls_text 
ls_text = as_text 
as_list = ls_null 
i=0 
ll_pos = posw(lower(ls_text),lower(as_sep)) 
do while ll_pos > 0 
    i ++ 
    as_list[i]=leftw(ls_text,ll_pos - 1) 
    ls_text=midw(ls_text,ll_pos + lenw(as_sep),lenw(ls_text)) 
    ll_pos = posw(lower(ls_text),lower(as_sep)) 
    loop 
as_list[i + 1] = ls_text 
return upperbound(as_list[])