ASP VBScript 획득 배열 길이

vb 프로그램에서 수조의 실제 길이를 가져와야 하기 때문에 인터넷과 w3c에서 찾아보았지만 수조의 길이를 얻는 적당한 방법을 찾지 못했다.그래서 스스로 수조의 실제 길이를 얻는 방법을 썼다.실현 원리는 매우 간단하다.수조의 값을 순환적으로 판단하는 것입니다. 수조의 값이 비어 있지 않으면 길이가 1 증가합니다.

function ArrayLength(arry)
	dim len
	len=0
	for each val in arry
		if val<>"" then
			len=len+1
		end if 
	next
	ArrayLength=len
end function

사용
dim a(5)
a(0)=2
a(3)=3
Response.Write ArrayLength(a) 출력 2
dim a(5)
a(0)=2
a(3)=3
a(4)=""
Response.Write ArrayLength(a) 출력 2