<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'高速文字列連結クラス
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'名前: Class_FastString
出典: http://www.jansfreeware.com
'組織: qihangnet
'更新: 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を消去
End Sub
'************************************
'イベント
'************************************
'デフォルトのイベント、文字列を追加
パブリックデフォルトサブAdd(値)
ar(インデックス) = 値
インデックス = インデックス + 1
インデックス>ubの場合
ub = ub + 50
Redim 保持 ar(ub)
次の場合に終了
End Sub
'************************************
'方法
'************************************
'連結された文字列を返します
パブリック関数ダンプ
Redim 保持 ar(index-1)
Dump = join(ar,"") 'キーは ^_^
終了関数
終了クラス
%>