PowerBuilder中将以特定字符分隔的字符串分解为多组字符串并放入变长数组

//------------------------------------------------------------------------------
// 描述: 将以传进的参数as_string作为分隔符的string型参数串as_parmstring分解成独立参数并放入变长数组
//------------------------------------------------------------------------------
// 参数:
//  value     string as_parmstring  以as_string作分隔符的多参数组成的字符串(要求原始的string型独立参数内不得含有as_string字符)
//  value     string as_string      用与字符串中的分隔符号
//  reference string as_parm[]      存放分解后的独立参数
//------------------------------------------------------------------------------
// 返回值:  integer  成功，返回变量个数；否则，返回 -1
//------------------------------------------------------------------------------

integer li_finger,li_start=1,li_counter

if as_parmstring="" then return -1

li_finger=pos(as_parmstring,as_string,li_start)

do while li_finger>0
 li_counter ++
 as_parm[li_counter]=mid(as_parmstring,li_start,li_finger - li_start)
 li_start=li_finger + 1
 li_finger=pos(as_parmstring,as_string,li_start)
loop

if li_start<=len(as_parmstring) then
 li_counter ++
 as_parm[li_counter]=mid(as_parmstring,li_start,len(as_parmstring) - li_start +1)
end if

return li_counter