クラシックASPでコレクションをトラバースするにはどうすればよいですか？

Question

私が行うことができるようにしたい：

For Each thing In things 
End For 

CLASSIC ASP - はありません。NET！

Answer 1

VBScriptの外部に書かれているものは何でも。

VB6、you can write a Custom Collection classでは、ActiveX DLLをコンパイルしてWebサーバーに登録してアクセスする必要があります。

Answer 2

これは何か？

dim cars(2),x 
cars(0)="Volvo" 
cars(1)="Saab" 
cars(2)="BMW" 

For Each x in cars 
    response.write(x & "<br />") 
Next 

www.w3schools.comを参照してください。

あなたが鍵を関連付けたいと代わりuse a dictionary object値場合：

Dim objDictionary 
Set objDictionary = CreateObject("Scripting.Dictionary") 
objDictionary.Add "Name", "Scott" 
objDictionary.Add "Age", "20" 
if objDictionary.Exists("Name") then 
    ' Do something 
else 
    ' Do something else 
end if 

Answer 3

あなたは（Pacifikaで述べたように）辞書

Dim objDictionary 
Set objDictionary = CreateObject("Scripting.Dictionary") 
objDictionary.CompareMode = vbTextCompare 'makes the keys case insensitive' 
objDictionary.Add "Name", "Scott" 
objDictionary.Add "Age", "20" 

しかし、私のループスルーを使用している得ようとしている最も近いです私の辞書はコレクションのようです

For Each Entry In objDictionary 
    Response.write objDictionary(Entry) & "<br />" 
Next 

タイヤ辞書は次のようになり値を書き出すこの方法は：ブレットが言ったように

Scott 
20 

また、これは

For Each Entry In objDictionary 
    Response.write Entry & ": " & objDictionary(Entry) & "<br />" 
Next 

Name: Scott 
Age: 20 

Answer 4

生み出すことになるとその良く行うことができますvbコンポーネントを使用してコレクションを作成します。特定のニーズに基づいたアプリケーションでない限り、辞書オブジェクトはASPではあまり一般的に使用されません。

Answer 5

私がこれまで使用してきたアプローチの1つは、配列を返すコレクションのプロパティを使用することです。これは反復処理が可能です。

Class MyCollection 
    Public Property Get Items 
     Items = ReturnItemsAsAnArray() 
    End Property 
    ... 
End Class 

反復のような：

Set things = New MyCollection 
For Each thing in things.Items 
    ... 
Next 

Answer 6

VBスクリプト辞書オブジェクトを使用して非常に慎重う！
はちょうどこのオブジェクトのネイティブこの "autovivication" の事、発見：あなたは値を比較する必要があるときのようなboolen比較使用しないでください、そうhttp://en.wikipedia.org/wiki/Autovivification

を：
If objDic.Item("varName") <> "" Thenを...
この意志自動的にブール式の評価を継続するために、辞書に「varName」というキーを追加します（存在しない場合は空の値）。

必要に応じてIf objDic.Exists("varName")を代わりに使用してください。

ちょうど... "機能" このMcrosoftで、壁をノック数日過ごす
vbscript-dictionary-object-creating-a-key-which-never-existed-but-present-in-another-object