どんなトラバースコレクションクラシックASP?

StackOverflow https://stackoverflow.com/questions/2300

  •  08-06-2019
  •  | 
  •  

質問

こういうことができるような:

For Each thing In things
End For

クラシックASP-いません。です。

役に立ちましたか？

解決

どのような[things]をそろえておく必要があり書面以外のVBScript.

にVB6, できるカスタムライブラリ, しる必要がありまめにActiveX DLL登録でウェブサーバにアクセスします。

他のヒント

のようなものか。

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.

したい場合には、キーと値の 利用の辞書オブジェクト 代わり:

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

最も近接合を使用していますので、辞書に述べたよ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

その際の一つのアプローチを使いの前には利用性のコレクション配列を返しますできる反復します。

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

繰り返し処理を実行しよう:

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

としてブと、その使vb成分をョンにします。辞書オブジェは非常に一般的に使用ASPない限り特定の必要性ベースのアプリケーション.

少しでも多くとれば、利用VBスクリプト辞書オブジェクト!
かを発見す"autovivication"も、ネイティブがこのオブジェクト: http://en.wikipedia.org/wiki/Autovivification

だからその時に必要なものを比較値を使うことは絶対に避けてくださいboolenとの比較のように:
If objDic.Item("varName") <> "" Then...
この 自動的に 追加のキー"varName"の辞書が存在しない場合には、空の値のため、評価に値です。

必要な場合には、利用く If objDic.Exists("varName").

を過ごすだけで数日ノック壁を、このMcrosoft"特徴"...
vbscript-辞書オブジェクトの作成-a-キーをそのまま放さないそのものでしたが、現在では別のオブジェクト

ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top