简单字符串处理——急，谢谢！！！——送上100分（结贴率100%）


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