<%

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'快速字符串连接类

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'名称：Class_FastString

'来源：http://www.jansfreeware.com

'整理：qihangnet

'更新：2005年6月15日

'作用：高效地进行字符串连接，比str=str&"abc"的方法快很多

'授权：免费使用

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

ClassClass_FastString

'************************************

'变量定义

'************************************

'index---字符串数组的下标

'ub------用于调整数组度数的整数变量

'ar()----字符串数组

Privateindex,ub,ar()

'************************************

'实例初始化/终止

'************************************

PrivateSubClass_Initialize()

Redimar(50)

index=0

ub=49

EndSub

PrivateSubClass_Terminate()

Erasear

EndSub

'************************************

'事件

'************************************

'默认事件，添加字符串

PublicDefaultSubAdd(value)

ar(index)=value

index=index+1

Ifindex>ubThen

ub=ub+50

RedimPreservear(ub)

Endif

EndSub

'************************************

'方法

'************************************

'返回连接后的字符串

PublicFunctionDump

Redimpreservear(index-1)

Dump=join(ar,"")'关键所在哦^_^

EndFunction

Endclass

%>