解析分割字符串序列

/******************************************************************************/ //函数名： gf_Split //功能说明：解析分割字符串序列 //输入参数：1、as_Sequence  待解析的字符序列 //    2。as_Separator  分隔符 //输出参数：1.  as_Str[]     解析后得到的字符串数组（注意参数调用方式） //返回值： 0_成功  -1_失败 //函数完成：woods //调用关系：本函数为公共外部函数，可被系统开发的任何地方调用 /******************************************************************************/ Long  ll_len //字符长度 long  i,j String ls_Sequence String ls_Separator integer li_position

ls_Sequence = as_Sequence ls_Separator= as_Separator

//取字符串长度 ll_len=len(ls_Sequence)

j=1

for i=1 to ll_len  li_position=pos(ls_Sequence,ls_Separator,i)    if li_position=0 then //没有找到符合要求的位置   as_Str[j]=mid(ls_Sequence,i,ll_len)   exit  elseif li_position=1 then //如果第一个位置为分隔符     else   as_Str[j]=mid(ls_Sequence,i,li_position - i)   j=j+1  end if    i=li_position next

return 0