被vbscript郁闷死了，真烦，帮我看看
dim a()
for i=1 to 10
redim preserve a(ubound(a)+1)
a(ubound(a)-1) = i
next
我的本意是将数组a里依次存放1,2,3....10,但老是出现vb运行时错误，我vb不大熟
主要是修改一个asp程序
问题点数：100、回复次数：12Top
1 楼year81s（）回复于 2003-06-03 11:55:56 得分 5
dim a(10)
for i=0 to 10
a[i]=i
nextTop
2 楼chiny（从此有你）回复于 2003-06-03 11:57:54 得分 0
我上面的是做测试，放这几个没用，我想得到一个动态增长的数组，就像C一样Top
3 楼mzhen1210（大路人）回复于 2003-06-03 12:04:47 得分 5
dim a()
redim a(0)
for i=1 to 10
redim preserve a(ubound(a)+1)
a(ubound(a)-1) = i
next
Top
4 楼tigerwen01（小虎）回复于 2003-06-03 12:05:47 得分 5
<%
dim str,i
str="1,2,3,4,5,6,7,8,9,10"
str=split(str,",")
For i=0 to ubound(str)
response.write str(i)&"<br>"
next
%>Top
5 楼mzhen1210（大路人）回复于 2003-06-03 12:06:12 得分 5
须先用redim a（0）后才可用ubound(a)!
Top
6 楼jtmoon（逍遥小贼）回复于 2003-06-03 12:07:59 得分 5
dim a(0)
for i=1 to 10
a(i-1)=i
redim preserve a(ubound(a)+1)
next
这样试试看，呵呵
Top
7 楼linuxsun999（）回复于 2003-06-03 12:09:40 得分 5
dim a()
for i=1 to 10
redim preserve a(i)
a(i) = i
nextTop
8 楼fason（咖啡人生）回复于 2003-06-03 12:11:08 得分 5
dim a()
for i=1 to 10
redim preserve a(i)
a(i-1) = i
nextTop
9 楼cpp2017（慕白兄）回复于 2003-06-03 12:11:16 得分 5
Dim a
redim preserve a(10)
for i=1 to 10
a(i) = i
next
Top
10 楼chiny（从此有你）回复于 2003-06-03 12:17:01 得分 0
我这上面只是一个比喻，我做的是一个文本数据库，从数据库里读取一个文本
将每行依次放在数组的。
function fileArray(file)
dim ret(0)
set fp = server.createobject("scripting.filesytemobject")
set fs = fp.opentextfile(server.mappath(file),1,false)
do while fs.atendofline <> true
redim preserve ret(ubound(ret)+1)
ret(ubound(ret)) = fs.readline
loop
fileArray = ret
end functionTop
11 楼cpp2017（慕白兄）回复于 2003-06-03 13:15:46 得分 60
<script language="jscript" runat="server">
function fileArray(file)
{
var ary = new Array();
var fp = Server.CreateObject("Scripting.fileSystemObject");
var fs = fp.OpenTextFile(Server.MapPath(file),1,false);
while (!fs.atEndOfLine)
{
ary[ary.length] = fs.ReadLine();
}
fs.Close();
fs = null;
fp = null;
return ary;
}
</script>
Top
12 楼chiny（从此有你）回复于 2003-06-03 14:23:17 得分 0
我也知道了，原来asp可以用javascript写，好玩。vbscript就是土土土土土土土土！Top
