我们可以将Null添加到数组列表吗?

时间:2012-12-23 11:57:34

标签: excel-vba vbscript vba excel

请看下面的内容,我在这里有点困惑:

   Dim myQueue
   Set myQueue= CreateObject("System.Collections.ArrayList")

   myQueue.add("over")
   myQueue.add("") 'is this valid statement
   myQueue.add("") 'is this valid statement

现在假设一个数组(6)=(a,d ,,, e,t)

   For I=0 to Ubound(array)-1

    myQueue.add(I)

   Next

现在Arraylist myQueue将包含Non-Null值(即a,d,e,t)或所有数组元素?

CODE 我刚刚测试过,结果现在很好

Option Explicit

    Dim myQueue,i
    Set myQueue = CreateObject("System.Collections.ArrayList")
    'Dim Set Dic = CreateObject("Scripting.Dictionary

    myQueue.Add("jumped")
    myQueue.Add("over")
    myQueue.Add("")
    myQueue.Add("")
    myQueue.Add("dog")
    myQueue.Add("Cat")

    i=0
    Do While myQueue.Count > i

      MsgBox(myQueue(i))
    i=i+1
    Loop

    MsgBox("Capacity=" & myQueue.Capacity & "Count:" & myQueue.Count)

    myQueue.Remove("dog")

    MsgBox("Capacity=" & myQueue.Capacity & "Count:" & myQueue.Count)

    i=0
    Do While myQueue.Count > i

      MsgBox(myQueue(i))
    i=i+1
    Loop

由于

1 个答案:

答案 0 :(得分:1)

通过在列表中添加null,您将来会validating for this null吗?这意味着添加null的目的是什么?

如果答案为是,那么您可以添加一个特殊字符,然后验证masks空的特殊字符,并忽略或采取它认为的任何操作。

如果答案为否,则是,您可以将空值传递给列表。它没有添加。或者把它留空。

PS:

根据我的评论:如果您可以测试在数组列表中添加空值以查看是否会因错误而被误导**