増加配列サイズを動的に

Question

私は4つの項目の後、私はまだアイテムを追加することができ、問題がある。この

localCart(CARTPID,i) = productId 
localCart(CARTPRICE,i) = productPrice 
localCart(CARTPQUANTITY,i) = 1 

のように動的にこの配列にアイテムを追加

CONST CARTPID = 0 
CONST CARTPRICE = 1 
CONST CARTPQUANTITY = 2 
dim localCart(3,20) 

ASP

でこの配列を持っていますUBoundは常に3を返します。これが原因で私の条件が失敗します。

実行時にこの配列のサイズを大きくして、UBOUNDが最新の値を返すようにしたいとします。

どうすればいいのか教えてください。二次元が20である間、ここに私の完全なコードは

'Define constants 
CONST CARTPID = 0 
CONST CARTPRICE = 1 
CONST CARTPQUANTITY = 2 

'Get the shopping cart. 
if not isArray(session("cart")) then 
dim localCart(3,20) 
else 
localCart = session("cart") 
end if 

'Get product information 
productID = trim(request.QueryString("productid")) 
productPrice = trim(request.QueryString("price")) 

'Add item to the cart 

if productID <> "" then 
foundIt = false 
for i = 0 to ubound(localCart) 
    if localCart(CARTPID,i) = productId then 
     localCart(CARTPQUANTITY,i) = localCart(CARTPQUANTITY,i)+1 
     foundIt = true 
     exit for 
    end if 
next 
if not foundIt then 
    for i = 0 to 20 

     if localCart(CARTPID,i) = "" then 
          ***ReDim Preserve localCart(UBound(localCart, 1) + 1,20)*** 
      localCart(CARTPID,i) = productId 
      localCart(CARTPRICE,i) = productPrice 
      localCart(CARTPQUANTITY,i) = 1 
      exit for 
     end if 
    next 
end if 
end if 

Answer 1

新しいアイテムを追加するたびに現在のUBound + 1で配列を再描画すると、UBoundによって最終的に最新の値が得られます。

// New item addition code will go here 
ReDim localCart(UBound(localCart, 1) + 1,20) 

これで、新しいアイテムを追加するたびにアレイが新しいサイズで更新されます。

Answer 2

である第一の次元では、二次元のUBound関数をしたい場合は、これを行う、長さがわずか3です​​：

UBound(localCart, 2) 

返します20.これをReDim Preserveと組み合わせることができます。

Answer 3

ループ内でアイテムを動的に追加する場合は、Redim Preserve()ステートメントを使用します。 Preserve部分を使用して、既存のデータを失わないようにします。

そうしないとここにあなたのあなたができる配列データを使用して、その後、別のデータセットのためにそれをredimmingだけRedim()声明

がRedim()/Redim Prevserve()たstatments使用上の良い参照の場合：どのように行う、http://classicasp.aspfaq.com/general/can-i-create-an-array-s-size-dynamically.html