asp中对数组的操作功能太弱，所以写了一个ArrayList类(参考c#中的ArrayList类),可以满足对数组操作的大部分功能.
对数组操作要注意的一些问题：
1,LBound()和UBound()是取得数组里最小的和最大的索引值，并不是数组的长度，
数组的长度是:UBound()+1
2,有时要动态改变数组大小，所以要先声明一个空的数组:
Dim arr()
使用这种方式声明的空数组如果用LBound()和UBound()取值的话会出现错误，但可以使用For Each:
Dim arr()
For Each v In arr
Response.Write v
Next
这样就不会出错了
另一种声明空数组的方法是:
Dim arr
arr=array()
这样的话使用LBound(arr)和UBound(arr)则分别返回0和-1．
ArrayList类功能描述:
***************ArrayList属性***************
ArrayList.Length:数组长度
***************ArrayList方法***************
---数组添加:
ArrayList.Add(v):在ArrayList尾部添加一个元素
ArrayList.AddArray(arr):在ArrayList尾部附加一个数组
ArrayList.Insert(index,v):在ArrayList的index处插入一个值,原先的index和之后的值都往后移
ArrayList.InsertArray(index,arr):在ArrayList的index处插入一个数组,原先的index和之后的值都往后移
---数组更新:
ArrayList.Update(index,v):更新索引为index处的值
---数组删除:
ArrayList.Remove(v):从ArrayList中删除第一个匹配项,注意是第一个,将会得到一新的数组
ArrayList.RemoveAt(index):移除ArrayList的指定索引处的元素,将会得到一新的数组
ArrayList.Splice(m,n):从一个数组中移除从索引m到索引n的一段元素,并返回这段移除的数组
ArrayList.Clear()清空数组,数组将变为空,长度Length=0
---数组查找:
ArrayList.IndexOf(v):查找,返回ArrayList第一个匹配项的索引。没找到返回-1。
ArrayList.LastIndexOf(v):返回ArrayList的最后一个匹配项的索引。没找到返回-1。
---返回数组中的值:
ArrayList.GetValue(index)取得ArrayList某个索引的值
ArrayList.Slice(m,n)返回ArrayList从m到n的一段数组
ArrayList.GetArray()返回整个Array数组
---数组其他操作:
ArrayList.Reverse()将整个 ArrayList 中元素的顺序反转
ArrayList.Implode(separator)返回字符串值，元素由指定的分隔符分隔开来
******************************/
<%
/******************************
类名：ArrayList
名称：数组操作类
日期：2007-11-6
作者：西楼冷月
网址：www.xilou.net | www.chinaCMS.org
描述：对数组的各种操作
版权：转载请注名出处，作者
******************************
最后修改：2007-11-6
修改次数：0
修改说明：
目前版本：v1.0
******************************/
Class ArrayList
Private arrList//内部数组
Private arrLength//记录数组的长度
Private Sub Class_Initialize()
arrList=Array()
arrLength=0
End Sub
Private Sub Class_Terminate()
Erase arrList
End Sub
//数组长度,只读
Public Property Get Length
Length=arrLength
End Property
//取得某个索引的值
Public Function GetValue(index)
On Error Resume Next
GetValue=arrList(index)
If Err Then showErr "ArrayList.GetValue()"&Err.Description:Err.Clear:Exit Function
End Function
//返回整个Array数组
Public Function GetArray()
GetArray=arrList
End Function
//添加元素,将值添加到ArrayList的结尾处
Public Sub Add(v)
ReDim Preserve arrList(arrLength)
arrList(arrLength)=v
arrLength=arrLength+1
End Sub
//将数组添加到ArrayList的结尾处
Public Sub AddArray(arr)
If Not IsArray(arr) Then showErr "参数不是数组(arr):ArrayList.AddArray()":Exit Sub
Dim I,L,J
On Error Resume Next
If arrLength = 0 Then //如果ArrayList为空则直接附值
arrList=arr
arrLength=arrLength+UBound(arr)+1
Else
L=arrLength+UBound(arr)//新的数组长度
J=0
ReDim Preserve arrList(L)
For I = arrLength To L
arrList(I)=arr(J)
J=J+1
Next
arrLength=arrLength+UBound(arr)+1
End If
If Err Then showErr "ArrayList.AddArray()"&Err.Description:Err.Clear:Exit Sub
End Sub
//将元素插入ArrayList的指定index索引处,原有的arrList(index)及后面的元素都往后排
Public Sub Insert(index,v)
Dim I,v2
If index<arrLength And index>=0 Then
ReDim Preserve arrList(arrLength)
arrLength=arrLength+1
For I = index To arrLength - 1
v2=arrList(I)//交换值
arrList(I)=v
v=v2
Next
Else
showErr "下标越界:ArrayList.Insert()"
End If
End Sub
//将一组数组插入到指定的index处
Public Sub InsertArray(index,arr)
If index = "" Or Not IsNumeric(index) Then
showErr "非法的参数:ArrayList.InsertArray()":Exit Sub
End If
If index < 0 Or index > arrLength-1 Then
showErr "下标越界:ArrayList.InsertArray()":Exit Sub
End If
If Not IsArray(arr) Then showErr "参数不是数组:ArrayList.InsertArray()":Exit Sub
Dim I,L1,L2,J:J=0
On Error Resume Next
L1=UBound(arr)
L2=arrLength+L1
ReDim Preserve arrList(L2)
For I = arrLength -1 To index Step -1
arrList(I+L1+1)=arrList(I)//把index之后的值往后移
Next
For I = index To index+L1
arrList(I)=arr(J)
J=J+1
Next
If Err Then showErr "ArrayList.InsertArray()"&Err.Description:Err.Clear:Exit Sub
arrLength=arrLength+L1+1//新的数组长度
End Sub
//更新数组中索引为index的对应值
//by xilou 39949376
Public Sub Update(index,v)
If index = "" Or Not IsNumeric(index) Then
showErr "非法的参数(index):ArrayList.Update()":Exit Sub
End If
If index < 0 Or index > arrLength-1 Then
showErr "下标越界(index):ArrayList.Update()":Exit Sub
End If
arrList(index)=v
End Sub
//从ArrayList中删除第一个匹配项,注意是第一个,将会得到一新的数组
Public Sub Remove(v)
Dim I,index
index = -1 //第一个匹配的索引
For I = 0 To arrLength - 1
If arrList(I)=v Then index = I : Exit For
Next
If index <> -1 Then
For I = index To arrLength - 2
arrList(I) = arrList(I+1)//值向前填充
Next
ReDim Preserve arrList(arrLength-1)//收缩数组
arrLength = arrLength - 1
End If
End Sub
//移除ArrayList的指定索引处的元素,将会得到一新的数组
Public Sub RemoveAt(index)
If index = "" Or Not IsNumeric(index) Then
showErr "非法的参数(index):ArrayList.RemoveAt()":Exit Sub
End If
If index < 0 Or index > arrLength-1 Then
showErr "下标越界(index):ArrayList.RemoveAt()":Exit Sub
End If
If index > 0 Then
For I = index To arrLength - 2
arrList(I) = arrList(I+1)//值向前填充
Next
ReDim Preserve arrList(arrLength-1)//收缩数组
arrLength = arrLength - 1
End If
End Sub
//从一个数组中移除从索引m到索引n的一段元素,并返回这段移除的数组
Public Function Splice(m,n)
If m = "" Or n = "" Or Not IsNumeric(m) Or Not IsNumeric(n) Then
showErr "非法的参数(m,n):ArrayList.Splice()":Exit Function
End If
If m < 0 Or m > arrLength-1 Or n < 0 Or n > arrLength-1 Then
showErr "下标越界(m,n):ArrayList.Splice()":Exit Function
End If
Dim newArr,x,L,I,J
newArr=Array()
If m > n Then x=m:m=n:n=x //交换数值
L=n-m
ReDim Preserve newArr(L)
For I = m To n
newArr(J)=arrList(I)要移除的元素
J=J+1
Next
//把n后面的元素的值移前
For I = (n+1) To arrLength -1
arrList(I-L-1)=arrList(I)
Next
arrLength=arrLength-L-1
ReDim Preserve arrList(arrLength)
Splice=newArr
End Function
//清空数组,数组将变为空,长度Length=0
Public Sub Clear()
Erase arrList
arrLength=0
End Sub
//将整个 ArrayList 中元素的顺序反转
Public Sub Reverse()
Dim L,I,J,v
J=arrLength-1
If arrLength > 0 Then
L=Int(arrLength/2)
For I = 0 To L-1
v=arrList(I)
arrList(I)=arrList(J)
arrList(J)=v
J=J-1
Next
End If
End Sub
//返回字符串值，其中包含了连接到一起的数组的所有元素，元素由指定的分隔符分隔开来
Public Function Implode(separator)
Implode=Join(arrList,separator)
End Function
//返回ArrayList从m到n的一段数组
Public Function Slice(m,n)
If m = "" Or n = "" Or Not IsNumeric(m) Or Not IsNumeric(n) Then
showErr "非法的参数:ArrayList.Slice()":Exit Function
End If
If m < 0 Or m > arrLength-1 Or n < 0 Or n > arrLength-1 Then
showErr "下标越界:ArrayList.Slice()":Exit Function
End If
Dim I,J,newArr()
J=0
If m<=n Then
ReDim Preserve newArr(n-m)
For I = m To n
newArr(J)=arrList(I)
J=J+1
Next
Else
ReDim Preserve newArr(m-n)
For I = n To m
newArr(J)=arrList(I)
J=J+1
Next
End If
Slice=newArr
Erase newArr
End Function
//查找,返回ArrayList第一个匹配项的从零开始的索引。没找到返回-1。
//by xilou 39949376
Public Function IndexOf(v)
Dim I
For I = 0 To arrLength - 1
If arrList(I)=v Then IndexOf=I:Exit Function
Next
IndexOf=-1
End Function
//返回ArrayList的最后一个匹配项的从零开始的索引。没找到返回-1。
Public Function LastIndexOf(v)
Dim I
If arrLength=0 Then
LastIndexOf=-1:Exit Function
Else
For I = (arrLength-1) To 0 Step -1
If arrList(I)=v Then LastIndexOf=I:Exit Function
Next
End If
LastIndexOf=-1
End Function
//显示错误
Private Sub showErr(errInfo)
Response.Write "<div id=""ERRORINFO"" style=""font-size:12px;color:#990000;font-family:""新宋体"", Arial"">"
Response.Write errInfo
Response.Write "</div>"
Response.End()
End Sub
End Class
%>
