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[])