关于字符串的分离

[redondo520]

比如说“1234567890”这段没有分隔符的句子，用什么函数能把每个数字都取出来，并排成数组，谢谢，急用！

[MyGhosts]

dim str , i
dim arr(9)

for i=0 to len(str)
arr(i) = mid(str, i, 1)
next

[asde2004]

javascript里用split方法配合正则。

[zy51]

2楼的思路是对的.不过有个错误是忽略了mid函数的start参数不能为0.

改代码为
dim str , i
dim arr(9)
str="1234567890"
for i=0 to len(str) - 1
y=i+1
arr(i) = mid(str, y, 1)
next

[zy51]

再补充一下.定义个函数以后就可以直接调用了.
<%
dim str , i , arr

function getallstring(str)
redim arr(len(str)-1)

for i=0 to len(str) - 1
y=i+1
arr(i) = mid(str, y, 1)
response.write arr(i)
next

end function

Response.Write getallstring(1234567890)
%>

[redondo520]

zy51(Final) 正解，1楼的方法把0改为1就可以了，谢谢