str="1,28"
num=len(str)
for i=1 to num
j=0
char1=mid(str,i,1)
if isnumeric(cint(char1))<>"" then
k=i-1
redim preserve num1(j)=k
if j=0 then
redim preserve char2(j)=left(str,num1(j))
else
redim preserve char2(j)=mid(str,num1(j-1),num1(j))
end if
else
j=j+1
end if
next
等待结贴。
len对中文的长度认为是1