字符截取问题

[maituo]

a=1000100110021003(位数不固定，中间没有空格和其他字符 但都是4的倍数)

想分别截取出 1000 1001 1002 1003 怎么弄啊？？？？

[lzp4881]

<%
str="1000100110021003"
dim a()
for i=0 to len(str)-1 step 4
redim a(i)
a(i)=mid(str,i+1,4)
next
%>

[lzp4881]

刚才那个不对
<%
str="1000100110021003"
dim a()
for i=0 to len(str)/4-1
redim a(i)
a(i)=mid(str,i*4+1,4)
next
%>

[ld2099]

应该是分类吧？如果最多的一个级别的分类数没有超过99个，建议使用两位作为一个级别
四位做为一个级别有点长

[lzp4881]

<%
str="abcdertygfdsdfgh"
dim a()
for i=0 to len(str)/4-1
redim preserve a(i)
a(i)=mid(str,i*4+1,4)
next
response.write join(a,",")
%>
再次修改，呵呵，redim忘了加preserve

[Msxindl_Com]

整得那么复杂,用下面的代码就OK了:

<%
dim str,i,a
str="1000100110021003"
for i=1 to len(str) step 4
a=a&mid(str,i,4)&","
next
response.write left(a,len(a)-1)
%>

[maituo]

对不起 大哥 我写的有问题 其实我要实现的是：

1000
1000 1001
1000 1001 1002
1000 1001 1002 1003

这样的形式！！

[Msxindl_Com]

改一下就行了.

<%
dim str,i,a
str="1000100110021003"
for i=1 to len(str) step 4
a=a&mid(str,i,4)&" "
response.write a&"<br>"
next
%>

[maituo]

大哥 问题解决了 ！

请教下 我是 access 数据库 以前用的

字段 in (seelct bm from biao ) 怎么不好使呢 解决就给分了！！！

[hookee]

<%
Dim s,i,a,j
s = "1000100110021003"
For i=1 To Len(s) Step 4
    a = a & Mid(s,i,4) & ","
Next
If a <> "" Then a = Left(a, Len(a)-1)
a = Split(a, ",")
For i = 0 To UBound(a)
    For j=0 To i
        Response.Write a(j) & "  "
    Next
    Response.Write "<br>"
Next
%>