欢迎访问世纪网络官网,宝鸡网站建设SEO优化已累计服务超过900家企业!     咨询热线:13619273150

15年网站建设优化经验,900家客户的选择,值得信赖!


适用于初学者的asp数组类

作者:佚名      发布时间:2011-12-31      浏览:2080

62.9K


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):ArrayListindex处插入一个值,原先的index和之后的值都往后移

ArrayList.InsertArray(index,arr):ArrayListindex处插入一个数组,原先的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)返回ArrayListmn的一段数组

ArrayList.GetArray()返回整个Array数组

---数组其他操作:

ArrayList.Reverse()将整个 ArrayList 中元素的顺序反转

ArrayList.Implode(separator)返回字符串值,元素由指定的分隔符分隔开来

******************************/

<%

/******************************

’类名:ArrayList

’名称:数组操作类

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=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

//返回ArrayListmn的一段数组

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 "

新宋体"", Arial"">"

Response.Write errInfo

Response.Write "

"

Response.End()

End Sub

End Class

%>

宝鸡世纪网络



0