배열 정의
DimMyArray
MyArray = 배열(1,5,123,12,98)
확장 가능한 어레이
DimMyArray()
i = 0 ~ 10인 경우
ReDim 보존 MyArray(i)
MyArray(i)=i
다음
문자열을 분할하고 분할 결과의 배열을 반환합니다.
DimMyArray
MyArray = 분할(tempcnt,chr(13)&chr(10))
I = Lbound(MyArray)에서 Ubound(MyArray)로
응답.MyArray(I) 및 <br> 쓰기
다음
배열 정렬 기능
함수 정렬(ary)
KeepChecking = TRUE
KeepChecking까지 수행 = FALSE
KeepChecking = 거짓
I = 0에서 UBound(ary)까지
I = UBound(ary)이면 다음을 위해 종료합니다.
ary(I) > ary(I+1)이면
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = 두 번째 값
ary(I+1) = FirstValue
KeepChecking = TRUE
종료 조건
다음
고리
정렬=ary
기능 종료
배열 정렬 기능 적용 예
DimMyArray
MyArray = 배열(1,5,123,12,98)
MyArray = 정렬(MyArray)
I = Lbound(MyArray)에서 Ubound(MyArray)로
응답.MyArray(I) 및 <br> 쓰기
다음
애플리케이션 및 세션에서 배열 사용
응용프로그램.잠금
애플리케이션(StoredArray) = MyArray
응용 프로그램.잠금 해제
LocalArray = 애플리케이션(StoredArray)
응용 프로그램의 배열 덮어쓰기
응용프로그램.잠금
애플리케이션(StoredArray) = LocalArray
응용 프로그램.잠금 해제
세션 사용법은 애플리케이션과 동일합니다.
데이터베이스에서 배열로 데이터 가져오기
DimMyArray
모든 기록 가져오기
MyArray = RS.GetRows
처음 10개 레코드 가져오기
MyArray = RS.GetRows(10)
행 = 0에서 UBound(MyArray, 2)로
col = 0의 경우 UBound(MyArray, 1)
응답.쓰기(열, 행) & <br>
다음
다음
'************************************
'ASP 버블링 알고리즘의 경우
'************************************
함수 정렬(ary)
Dim KeepChecking,I,FirstValue,SecondValue
KeepChecking = TRUE
KeepChecking까지 수행 = FALSE
KeepChecking = 거짓
I = 0에서 UBound(ary)까지
I = UBound(ary)이면 다음을 위해 종료합니다.
ary(I) > ary(I+1)이면
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = 두 번째 값
ary(I+1) = FirstValue
KeepChecking = TRUE
종료 조건
다음
고리
정렬 = 아리
기능 종료
희미한 ID,ArrayID,Myarray,M
ID=55,48,78,10,90
배열ID=분할(ID,,)
Myarray=정렬(배열ID)
'정렬 테스트
M=0인 경우 Ubound(Myarray)로
응답.Write Myarray(M) & <br> & vbCRLF
다음
'물론 다음을 사용할 수도 있습니다.
딤 마이어레이
마이어레이=배열(12,10,25,78,45)
Myarray=정렬(배열ID)
'정렬 테스트
M=0인 경우 Ubound(Myarray)로
응답.Write Myarray(M) & <br> & vbCRLF
다음
'정렬 테스트