pb分割字符串函数

分割字符串函数
String ls_subject //课程
String ls_str
Char lc_course[] //课程数组
Int li_split,li_split2 = 1 //分隔符的位置
Int li_i,li_count
Int li_j
Int li_arraynum //数组下标

ls_subject = as_subject
lc_course[] = ls_subject + as_split

li_count = UpperBound(lc_course[])

For li_i = 1 To li_count
If lc_course[li_i] = as_split Then
li_split = li_i
For li_j = li_split2 To li_split - 1
ls_str = ls_str + lc_course[li_j]
Next
li_split2 = li_split + 1
li_arraynum++
is_course[li_arraynum] = ls_str
ls_str = “”
End If
Next

UpperBound()：获取数组上界
LowerBound()：获取数组下界