//====================================================================
// 函数: f_parsetoarray
//--------------------------------------------------------------------
// 描述: 根据分割符截取字符串
//--------------------------------------------------------------------
// 参数:
// value string as_string 传入的字符串
// value string as_bz 分割符
// reference string as_array[] 输出字符串数组
//--------------------------------------------------------------------
// 返回值: integer
//====================================================================
Long ll_i, ll_pos
DO
ll_i ++
ll_pos = Pos(as_string,as_bz)
IF ll_pos > 0 THEN
as_array[ll_i] = Left(as_string, ll_pos - 1)
as_string = Mid(as_string, ll_pos + 1)
ELSE
as_array[ll_i] = as_string
as_string = ''
END IF
as_array[ll_i] = Trim(as_array[ll_i])
LOOP WHILE as_string <> ''
RETURN 0
String ls_str, ls_ret[]
ls_str = '9:00,12:00,16:00'
f_parsetoarray(ls_str, ',', ls_ret)
