배열의 정의
DimmyArray
MyArray = 배열 (1,5,123,12,98)
확장 된 배열
DimmyArray ()
fori = 0to10
redimpreservemyArray (i)
MyArray (i) = i
다음
문자열을 분할하고 스플릿 결과 배열을 반환합니다.
DimmyArray
myArray = split (tempcnt, chr (13) & chr (10))
fori = lbound (myArray) toubound (myArray)
응답 .WritemyArray (i) & "<br>"
다음
배열 정렬 기능
기능 .. 소트 (Ary)
Keepchecking = true
dountilkeepChecking = false
유지 = 거짓
fori = 0toubound (ary)
ifi = ubound (ary) thenexitfor
ifary (i)> ary (i+1) 그런 다음
FirstValue = ary (i)
SecondValue = ary (i+1)
ary (i) = secondValue
ary (i+1) = firstValue
Keepchecking = true
endif
다음
고리
정렬 = ary
끝 기능 ..
배열 분류 기능 응용 프로그램의 예
DimmyArray
MyArray = 배열 (1,5,123,12,98)
myArray = sort (myArray)
fori = lbound (myArray) toubound (myArray)
응답 .WritemyArray (i) & "<br>"
다음
응용 프로그램 및 세션에서 배열 사용
application.lock
응용 프로그램 ( "StoredArray") = MyArray
application.unlock
localArray = 응용 프로그램 ( "StoredArray")
응용 프로그램의 배열을 덮어 쓰십시오
application.lock
응용 프로그램 ( "StoredArray") = localArray
application.unlock
세션은 응용 프로그램과 동일하게 사용됩니다
데이터베이스에서 데이터를 배열로 가져옵니다
DimmyArray
모든 기록을 꺼내십시오
myArray = rs.getrows
처음 10 개의 레코드를 꺼내십시오
myArray = rs.getrows (10)
Forrow = 0toubound (MyArray, 2)
forcol = 0toubound (MyArray, 1)
응답 (Col, Row) & "<br>"
다음
다음