dim ASP Array

Question

我想定義一個數組。

我的問題是暗淡X（999）或昏暗X（9999）將成本相同或昏暗X（9999），將浪費更多的資源？

非常感謝！

Answer 1

當然，創建一個包含9999個元素的數組將比使用999的數組使用更多的內存。我懷疑這不是你的問題。也許你正在試圖找出一種方法來爲動態數據量分配足夠的內存？您可以使用ReDim語句調整經典ASP（VBScript）中的數組大小 - 一旦知道了真實大小，就可以做到這一點。

Answer 2

數組分配在連續的內存中。因此，一個10000個元素的數組將佔用一個需要1000個元素的內存的10倍。

您可以從小處開始，根據需要增加陣列數量。過去我使用過這種類來創建可變長度列表類型。

Class List 
    Dim maItems 
    Dim mlCount 

    Public Sub Class_Initialize() 
     ReDim maItems(8) 
     mlCount = 0 
    End Sub 

    Public Function Add(Item) 
     If mlCount = UBound(maItems) ReDim Preserve maItems(mlCount * 2) 
     mlCount = mlCount + 1 
     maItems(mlCount) = Item 
     Add = mlCount 
    End Function 

    Public Property Get Item(Index) 
     If Index < 1 Or Index > mlCount Then Error.Raise 9, "List", "Subscript out of Range" 
     Item = maItems(Index) 
    End Property 

    Public Property Get Count() 
     Count = mlCount 
    End Property 
End Class  

Answer 3

這是一個大數組嗎？

爲什麼不分配它是動態的，然後擴大它的增長？上面的代碼的

<% 
Dim myDynArray() 

ReDim myDynArray(1) 
myDynArray(0) = "Albert Einstein" 
myDynArray(1) = "Mother Teresa" 

ReDim Preserve myDynArray(3) 
myDynArray(2) = "Bill Gates" 
myDynArray(3) = "Martin Luther King Jr." 

For Each item In myDynArray 
    Response.Write(item & "<br />") 
Next 
%> 

輸出是

Albert Einstein Mother Teresa Bill Gates Martin Luther King Jr. 

Answer 4

我一點地加入安東尼W¯¯瓊斯的代碼，所以它返回與只有相關元件的正確大小的陣列（ToArray的（））。

Class List  
    Dim maItems  
    Dim mlCount 

    Public Sub Class_Initialize()  
     ReDim maItems(8) 
     mlCount = 0  
    End Sub  

    Public Function Add(Item)    
     If mlCount = UBound(maItems) Then ReDim Preserve maItems(mlCount * 2)  
     maItems(mlCount) = Item 
     mlCount = mlCount + 1 
     Add = mlCount 
    End Function 

    Public Property Get ToArray() 

     ReDim Result(Params.Count-1) 

     Dim i 
     For i = 0 to Params.Count-1 
      Result(i) = Params.maItems(i) 
     Next 

     ToArray = Result   
    End Property 

    Public Property Get Item(Index)  
     If Index < 1 Or Index > mlCount Then Error.Raise 9, "List", "Subscript out of Range"  
     Item = maItems(Index) 
    End Property 

    Public Property Get Count()  
     Count = mlCount 
    End Property 
End Class