asp问题关于数组，高手请进

来源：百度知道 编辑：UC知道 时间：2024/06/08 10:49:05
我想把一大段文字平均分成十份，然后把这十份文字分别存入数组中，
我得怎么做，高手指点一下@！！！

算出这段文字的文字个数
再除十
再循行取出

绝对的平分是不可能的,
比如你只有六个字符或者十五个字符,这种情况是没办法绝对平分的.
<%
Option Explicit
Dim str,length,everyLength,i
Dim myArray(9)
str = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ"
length = Cint(len(str))
everyLength = Cint(length/10) '取得每一块的长度
For i = 0 to 9
myArray(i) = mid(str,Cint((i*everyLength)+1),everyLength)
'Response.Write("i="&i&",Cint((i*everyLength)+1)="&Cint((i*everyLength)+1)&",everylength="&everylength&"<br>")
Next

For i = 0 to UBound(myArray)
Response.Write("i="&i&",value="&myArray(i)&"<br>")
Next
%>

运行结果:
i=0,value=ABCDEFGH
i=1,value=IJKLMNOP
i=2,value=QRSTUVWX
i=3,value=YZABCDEF
i=4,value=GHIJKLMN
i=5,value=OPQRSTUV
i=6,value=WXYZABCD
i=7,value=EFGHIJKL
i=8,value=MNOPQRS