比如有若千字符！！如何依次截取1000字,存入到数组中,如果最后截取的没有1000字,也可以存入!!

给你做了个10个的
你自己测试一下吧

ASP中可能没有直接的函数

我是用VB语法做的

<%
a="1234567890123456789012345678901234567890" '定义一个字符串
b=left(a,10) '截取左边的10位
Response.Write(b&"<br>")
i=0 '定义一个循环变量
dim c(10) '定义一个数组
do while i<len(b) '如果i小于b的长度
i=i+1
c(i)=mid(b,i,1) '截取B中第i个字符,并且赋值给数组中第i个元素
Response.Write(c(i)&"<br>") '输出数组中第i个元素
loop
%>



我就会这种笨方法了,欢迎大家讨论更好的方法

还有,如果是ASP.NET则非常简单!~
可以使用string.ToCharArray()函数得到字符数组

太简单了吧


Const ArrLen = 1000
Dim ContentArr
Dim i, Content

Content = "1234567890"
ReDim ContentArr(-Int(-(Len(Content) / ArrLen))-1)
For i = 0 To UBound(ContentArr)
ContentArr(i) = Mid(Content, i * ArrLen + 1, ArrLen)
Response.Write "ContentArr(" & i & ")=" & ContentArr(i) & "<br>"
Next

[此贴子已经被作者于2005-12-6 11:16:17编辑过]

你的数组下标是固定的，内容长度超过100怎么办？

都是用的循环+mid

既然老大都用这种方法

看来没有直接把字符串转换成数组的函数了


不过老大的代码蛮复杂的,我还要研究一会

[此贴子已经被作者于2005-12-6 10:31:35编辑过]

你的数组下标是固定的，内容长度超过100怎么办？

他说截取了1000,我想就是1000个吧

可以定义成动态吧

ContentArr(-Int(-(Len(Content) / ArrLen)))
这个是定义数组下标的
呵呵

才看清楚

好高深，存下来慢慢研究！

Const ArrLen = 1000
Dim ContentArr
Dim i, Content

Content = "1234567890"
ReDim ContentArr(-Int(-(Len(Content) / ArrLen))-1)
For i = 0 To UBound(ContentArr)
ContentArr(i) = Mid(Content, i * ArrLen + 1, ArrLen)
Response.Write "ContentArr(" & i & ")=" & ContentArr(i) & "<br>"
Next
非常谢谢各位大侠 可是我有点看不懂，能帮我解释一下吗！特别是加红色的那部分，为何要加个-

这是为了计算数组最大下标。
这种作法类似于记录集分页显示时计算最大页号一样。