• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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
    您可能感兴趣的文章:
    • C#中数组Array,ArrayList,泛型List详细对比
    • Java ArrayList 数组之间相互转换
    • PowerShell中使用ArrayList实现数组插入、删除、添加例子
    • 浅析C#中数组,ArrayList与List对象的区别
    • Repeater控件分别绑定数组和ArrayList实现思路
    • C# 没有动态的数组,可以用arraylist或list取代
    • JAVA ArrayList详细介绍(示例)
    • JAVA LinkedList和ArrayList的使用及性能分析
    • java的arraylist排序示例(arraylist用法)
    • Android中ArrayList和数组相互转换
    上一篇:不错的一篇VBS-JSCRIPT GETOBJECT理解
    下一篇:如何调试JScript/VBScript的方法
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    VBS ArrayList Class vbs中的数组类 VBS,ArrayList,Class,vbs,中的,