내가 원하는 일을 할 수 있는.
For Each thing In things
End For
클래식 아닌 ASP .NET!
이 같은 일이?
dim cars(2),x
cars(0)="Volvo"
cars(1)="Saab"
cars(2)="BMW"
For Each x in cars
response.write(x & "<br />")
Next
스케쳐내 연관시키려면 키와 값을 use 사전 객체에는 사용하십시오.
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
해당 [창조하셨노] 하는 것을 외부에 VBScript 쓸 수 있다.
Vb6 에서 사용자 정의 취합은 클래스를 작성할 수 있습니다. # 39, ll 필요한 DLL 과 컴파일하십시오 어졌다면 you& 충족되었으며 ActiveX 에 등록해야 webserver 액세스하도록.
가장 가까운 사전 (언급한 대로 파치피카) 를 가져올 것인지
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 스크립트 사용에 대한 사전 객체에는 매우 신중하게! , , 그냥 이 " autovivication*&quo 발견하십시오. 이 개체의 넷윈을 것. <, a>, http://en.wikipedia.org/wiki/Autovivification
그렇다면, 다음과 같은 값을 비교 할 때 전혀 사용하지 않는 한 불렌 비교 "만약 오비에디c이테마 (varname" ";) < >; " "; 그럼 '. 이렇게 하면 자동으로 , " " 바르나미 ',' 키 추가 사전에 대한 (# 39 doesn& 타임코드가, 비어 있는 경우, t 값), 잇기 위해 평가 부울입니다 표현식입니다.
대신 사용할 경우, 필요한 경우 '오비에디c렉시츠 (varName" ";)'.
그냥 " feature&quo , *, 벽, 대체하십시오 마크로소프트 보내고 며칠 뽑았다. 하지만 다른 개체가 존재하는 주요 않고 있는 있을경우에 생성하기에 객체에는 vbscript 사전