<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'빠른 문자열 연결 클래스
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'이름: Class_FastString
'출처: http://www.jansfreeware.com
'조직 : 치항넷
'업데이트: 2005년 6월 15일
'기능: str = str & "abc" 방법보다 훨씬 빠르게 문자열을 효율적으로 연결합니다.
'권한: 무료로 사용 가능
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
클래스 Class_FastString
'************ * **************************
'변수 정의
'************************************
'index --- 문자열 배열의 인덱스
'ub ------ 배열의 정도를 조정하는 데 사용되는 정수 변수
'ar() ---- 문자열 배열
프라이빗 인덱스, ub, ar()
'****************************** * ***
'인스턴스 초기화/종료
'************************************
프라이빗 하위 클래스_Initialize()
AR 복구(50)
인덱스 = 0
ub = 49
End Sub
Private Sub Class_Terminate()
ar 삭제
끝 하위
'************************************
'이벤트
'************************************
'기본 이벤트, 문자열 추가
공개 기본 하위 추가(값)
ar(인덱스) = 값
인덱스 = 인덱스+1
인덱스>ub이면
ub = ub + 50
Redim Preserve ar(ub)
다음과 같은 경우 종료
끝 하위
'************************************
'방법
'************************************
'연결된 문자열을 반환합니다.
공개 함수 덤프
Redim 보존 ar(index-1)
Dump = Join(ar,"") '핵심은 ^_^
End Function
종료 클래스
%>