PB中取出用固定分割符隔开的字符串的代码

string str
string mpart[12],cs,csg
int strlen,i,p

str=trim(mle_1.text)
strlen=len(str)
p=1
csg=""

for i=1 to strlen
    cs=mid(str,i,1)  //依次取出字符串中的每一位
    if cs<>"/" then // 此处的 / 为分割符
        csg=csg+cs
    else
        mpart[p]=csg  将分隔开的字符串存储到数组中
        csg=""
        p++
    end if   
next