pb中如何获取字符串中以逗号分割的字符

[wangqin7927]

本人遇到一个问题：想获取"m_operator_manager:1,m_operator_maintenace:1,m_role_manager:1,m_role_authorization:1,m_role_maintenance:1,m_help:1,m_exit:1"中以逗号分割的字符，请各位dx赐教。

[sunqi_790817]

string ls_char,arr_char[]
long ll_i,ll_pos1,ll_pos2,ll_len

ls_tmp = "m_operator_manager:1,m_operator_maintenace:1,m_role_manager:1,m_role_authorization:1,m_role_maintenance:1,m_help:1,m_exit:1"

ll_i = 1

ll_len = len(ls_tmp)
ll_pos1 = 1
ll_pos2 = pos2(ls_tmp,",",1)

do while ll_pos2 >= 0
arr_char[ll_i] = mid(ls_tmp,pos1,pos2 - pos1)
ll_i = ll_i + 1
pos1 = pos2 + 1
ll_pos2 = pos2(ls_tmp,",",pos1)
loop

[sunqi_790817]

对不起，上边写错了！
string ls_char
string arr_char[]
long ll_i,ll_pos1,ll_pos2,ll_len

ls_char = "m_operator_manager:1,m_operator_maintenace:1,m_role_manager:1,m_role_authorization:1,m_role_maintenance:1,m_help:1,m_exit:1"

ll_i = 1

ll_len = len(ls_char)
ll_pos1 = 1
ll_pos2 = pos(ls_char,",",1)

do while ll_pos2 > 0
arr_char[ll_i] = mid(ls_char,ll_pos1,ll_pos2 - ll_pos1)
ll_i = ll_i + 1
ll_pos1 = ll_pos2 + 1
ll_pos2 = pos(ls_char,",",ll_pos1)
loop

arr_char[ll_i] = mid(ls_char,ll_pos1,ll_len - ll_pos1 + 1)

测试过的

[yclidong]

/读取参数,分隔符:逗号.
//返回: String 读取的参数.
//参数: String ps_message 输入内容.读取的部分被去掉.

Long ll_ls
String ls_out

ls_out=''
ll_ls=Pos(ps_message,',')
If ll_ls<1 Then
ls_out=ps_message
ps_message=''
Else
ls_out=Left(ps_message,ll_ls -1)
ps_message=Mid(ps_message,ll_ls+1)
End If

Return ls_out

[wangqin7927]

谢谢楼主的指点.