要使用循环加数组来实现.
大致为
long sz[]
long i = 0
string linedata
int pos ,temppos
linedata="ab,cd,ef,gh,"
do while pos(linedata, ",") > 0
i = i + 1
sz[i] = pos(linedata, ",")
linedata = mid(linedata,pos(linedata, ",") + 1 ,len(linedata))
最后循环获取数组中的值.
for i = 1 to UpperBoun(sz)
messagebox("",sz[i])
end for