VBS ArrayList Class vbs中的数组类

Class ArrayList
 Private items()
 Private size

Private Sub Class_Initialize
 size = 0
 ReDim items(1)
  End Sub

Private Sub Class_Terminate
 items = null
  End Sub

Public Function Add(ByVal value)
       If (size = Ubound(items)) Then EnsureCapacity((size + 1))

items(size) = value
       size = size + 1
       Add = size
 End Function

Public Property Get Item(index)
  Item = items(index)
 End Property

Public Property Let Item(index, vObject)
  items(index) = vObject
 End Property

Property Get Count
  Count = size
 End Property

Public Property Get Capacity()
  Capacity = Ubound(items)
 End Property

Public Property Let Capacity(value)
            If (value <> Ubound(items)) Then
                  If (value < size) Then Err.Rise 6

If (value > 0) Then
                        ReDim Preserve items(value)
                  Else
                        ReDim Preserve items(3)
                  End If
            End If
 End Property

Private Sub EnsureCapacity(ByVal min)
       If (Ubound(items) < min) Then
      Dim num1 : num1 = IIf((Ubound(items) = 0), 4, (Ubound(items) * 2))
      If (num1 < min) Then num1 = min
      Capacity = num1
       End If
 End Sub

Private Function IIf(j, r1, r2)
  IF (j) Then
   IIf = r1
  Else
   IIf = r2
  End IF
 End Function

End Class

示例:

Dim al : Set al = new ArrayList
al.Add(1)
al.Add(2)
al.Add(3)
al.Add(4)
al.Add(5)
al.Add(6)
al.Add(7)
al.Add(8)
al.Add(9)
al.Add(10)

For i = 0 To al.Count -1
 w("Index"& i &": "& al.Item(i))
Next

w("Count: "& al.Count)
w("Capacity: "& al.Capacity)

Sub w(o)
Response.Write(o &"<br />")
End Sub

赞 (0)

相关推荐

  • java的arraylist排序示例(arraylist用法)

    写了一个java数组排序示例,这里分享给大家共同学习 复制代码 代码如下: package com.yonyou.test;import java.util.ArrayList;import java.util.Collections;import java.util.Comparator;import java.util.List;public class Test { public static void main(String[] args) {  Student zlj = new St

  • Android中ArrayList和数组相互转换

    List-–>数组 在大家开发中应该经常碰到List与数组类型之间的相互转换,举一个简单的例子: package test.test1; import java.util.ArrayList; import java.util.List; public class Test { /** * @param args */ public static void main(String[] args) { List list=new ArrayList(); list.add("王利虎"

  • Java ArrayList 数组之间相互转换

    做研发的朋友都知道,在项目开发中经常会碰到list与数组类型之间的相互转换,本文通过一个简单的例子给大家讲解具有转换过程. Java代码 package test.test1; import java.util.ArrayList; import java.util.List; public class Test { /** * @param args */ public static void main(String[] args) { List list=new ArrayList(); l

  • Repeater控件分别绑定数组和ArrayList实现思路

    前台代码: 复制代码 代码如下: <asp:Repeater ID="rptarry" runat="server" > <HeaderTemplate><table></HeaderTemplate> <ItemTemplate> <tr><td> <%# GetDataItem()%> </td></tr> </ItemTemplate&

  • C# 没有动态的数组，可以用arraylist或list取代

    复制代码 代码如下: using System.Collections; ArrayList a = new ArrayList(); a.Add("a");//这里"a"可以改成你要取出的字符串 a.Add("b"); 运行后a就相当于一个数组a[0]="a",a[1]="b 推荐用泛型 复制代码 代码如下: List<String> list = new List<String>(); f

  • C#中数组Array，ArrayList，泛型List详细对比

    在C#中数组Array,ArrayList,泛型List都能够存储一组对象,但是在开发中根本不知道用哪个性能最高,下面我们慢慢分析分析. 一.数组Array 数组是一个存储相同类型元素的固定大小的顺序集合.数组是用来存储数据的集合,通常认为数组是一个同一类型变量的集合. Array 类是 C# 中所有数组的基类,它是在 System 命名空间中定义. 数组在内存中是连续存储的,所以它的索引速度非常快,而且赋值与修改元素也非常简单. Array数组具体用法: using System; names

  • JAVA LinkedList和ArrayList的使用及性能分析

    JAVA LinkedList和ArrayList的使用及性能分析

    第1部分 List概括List的框架图List 是一个接口,它继承于Collection的接口.它代表着有序的队列.AbstractList 是一个抽象类,它继承于AbstractCollection.AbstractList实现List接口中除size().get(int location)之外的函数.AbstractSequentialList 是一个抽象类,它继承于AbstractList.AbstractSequentialList 实现了"链表中,根据index索引值操作链表的全部函数

  • 浅析C#中数组，ArrayList与List对象的区别

    我们先来了解一下数组,因为数组在C#中是最早出现的.数组数组有很多的优点,比如说数组在内存中是连续存储的,所以它的索引速度是非常的快,而且赋值与修改元素也很简单,比如: 复制代码 代码如下: string[] s=new string[3];//赋值s[0]="a";s[1]="b";s[2]="c";//修改s[1]="b1"; 但是,数组也存在一些不足的地方.比如在数组的两个数据间插入数据也是很麻烦的.还有我们在声明数组的

  • PowerShell中使用ArrayList实现数组插入、删除、添加例子

    PowerShell中对数组进行插入.删除.添加数组元素的操作是很不方便,而且效率也是很低下的.那是因为数组对象本身并没有插入和删除的功能,每次的操作都是将数组整个拷贝到一个新的数组中.这个过程太消耗资源. 如果我们把Array对象转换为ArrayList对象,那一切问题都解决了.ArrayList有InsertAt()和RemoveAt()方法,所以在处理数组元素的插入和删除操作时更方便快捷,而且事实上效率也更高. $array = 1..10 [System.Collections.Arra

  • JAVA ArrayList详细介绍(示例)

    JAVA ArrayList详细介绍(示例)

    第1部分 ArrayList介绍ArrayList 是一个数组队列,相当于 动态数组.与Java中的数组相比,它的容量能动态增长.它继承于AbstractList,实现了List, RandomAccess, Cloneable, java.io.Serializable这些接口.ArrayList 继承了AbstractList,实现了List.它是一个数组队列,提供了相关的添加.删除.修改.遍历等功能.ArrayList 实现了RandmoAccess接口,即提供了随机访问功能.Randmo

随机推荐