আমি কিভাবে ক্লাসিক এএসপি একটি সংগ্রহ প্রবাহিত করবেন?

আমি করতে সক্ষম হতে চান:

For Each thing In things
End For

ক্লাসিক এএসপি - না। নেট!

0

6 উত্তর

যাই হোক না কেন আপনার [জিনিষ] VBScript বাইরে লিখিত করা প্রয়োজন।

VB6 এ, আপনি একটি কাস্টম সংগ্রহ ক্লাস লিখতে পারেন , তারপর আপনাকে কম্পাইল করতে হবে এটি অ্যাক্সেস করতে ActiveX DLL এবং এটি আপনার ওয়েব সার্ভারে নিবন্ধন করতে এটি।

0
যোগ

এটার মতো কিছু?

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

For Each x in cars
  response.write(x & "
") 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
0
যোগ

আমি আগে ব্যবহার করা একটি পদ্ধতি একটি অ্যারের ফেরৎ যে সংগ্রহের একটি সম্পত্তি ব্যবহার করা হয়, যা উপর অগ্নিতরঙ্গ হতে পারে।

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

যেমন:

Set things = New MyCollection
For Each thing in things.Items
    ...
Next
0
যোগ

Be VERY carefully on using VB Script Dictionary Object!
Just discover this "autovivication" thing, native on this object: http://en.wikipedia.org/wiki/Autovivification

So, when you need to compare values, NEVER use a boolen comparison like:
If objDic.Item("varName") <> "" Then...
This will automatically add the key "varName" to the dictionary (if it doesn't exist, with an empty value) , in order to carry on evaluating the boolean expression.

প্রয়োজন হলে এর পরিবর্তে objDic.Exists ("varName") ব্যবহার করুন।

Just spend a few days knocking walls, with this Mcrosoft "feature"...
vbscript-dictionary-object-creating-a-key-which-never-existed-but-present-in-another-object

0
যোগ

আপনি যে সবচেয়ে নিকটবর্তী হয়ে যাচ্ছেন এটি একটি অভিধান ব্যবহার করছে (যেমন পিসিসিও দ্বারা উল্লিখিত)

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) & "
" Next

আপনি সম্পূর্ণ অভিধানের মাধ্যমে লুপ করতে পারেন এই ভাবে যেগুলি এই মত দেখতে হবে:

Scott
20

আপনি এটি করতে পারেন

For Each Entry In objDictionary
  Response.write Entry & ": " & objDictionary(Entry) & "
" Next

যা উত্পাদন করবে

 Name: Scott
 Age: 20
0
যোগ

ব্রেট বলেছিলেন, সংগ্রহ তৈরির জন্য এটি একটি vb উপাদান ব্যবহার করে ভাল। ডিজিটাল অবজেক্টগুলি খুব সাধারণভাবে ASP তে ব্যবহৃত হয় না যদি না নির্দিষ্ট প্রয়োজন ভিত্তিক অ্যাপ্লিকেশনগুলির জন্য।

0
যোগ