मैं क्लासिक एएसपी में संग्रह कैसे ट्रैक करूं?

Question

मैं ऐसा करने में सक्षम होना चाहता हूँ:

For Each thing In things 
End For 

क्लासिक एएसपी - नहीं नेट!

Answer 1

जो कुछ भी आपके [चीजों] को वीबीस्क्रिप्ट के बाहर लिखा जाना आवश्यक है।

वीबी 6, you can write a Custom Collection class में, तो आपको एक ActiveX DLL को संकलित करने और इसे एक्सेस करने के लिए अपने वेबसर्वर पर पंजीकरण करने की आवश्यकता होगी।

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 घटक का उपयोग करें। शब्दकोश वस्तुओं को आमतौर पर एएसपी में उपयोग नहीं किया जाता है जब तक विशिष्ट आवश्यकता आधारित अनुप्रयोगों के लिए नहीं।

Answer 5

एक दृष्टिकोण जो मैंने पहले उपयोग किया है वह उस संग्रह की संपत्ति का उपयोग करना है जो एक सरणी लौटाता है, जिसे फिर से चालू किया जा सकता है।

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

वीबी स्क्रिप्ट शब्दकोश वस्तु का उपयोग करने पर बहुत ध्यान से रहो!
बस इस "autovivication" बात, देशी की खोज इस वस्तु पर: http://en.wikipedia.org/wiki/Autovivification

इसलिए, जब आप मानों की तुलना करने की जरूरत है, कभी नहीं की तरह एक boolen तुलना का उपयोग करें:
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