<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Schnelle String-Verkettungsklasse
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Name: Class_FastString
'Quelle: http://www.jansfreeware.com
„Organisation: qihangnet
'Aktualisierung: 15. Juni 2005
'Funktion: Strings effizient verketten, viel schneller als die Methode str = str & „abc“.
'Autorisierung: Kostenlose Nutzung
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Klasse Class_FastString
'************ * **************************
'Variablendefinition
'***********************************
'index --- der Index des String-Arrays
'ub ------ Ganzzahlige Variable, die zum Anpassen des Array-Grades verwendet wird
'ar() ---- String-Array
Privater Index, ub, ar()
'****************************** * ***
'Instanzinitialisierung/-beendigung
'***********************************
Private Sub Class_Initialize()
Redim ar(50)
Index = 0
ub = 49
End Sub
Private Sub Class_Terminate()
Ar löschen
End Sub
'***********************************
'Ereignis
'***********************************
'Standardereignis, Zeichenfolge hinzufügen
Öffentlicher Standard-Sub-Add(Wert)
ar(index) = Wert
Index = Index+1
Wenn index>ub Dann
ub = ub + 50
Redim Preserve ar(ub)
Ende wenn
End Sub
'***********************************
'Verfahren
'***********************************
'Gibt die verkettete Zeichenfolge zurück
Öffentlicher Funktions-Dump
Redim bewahrt ar(index-1)
Dump = join(ar,"") 'Der Schlüssel ist ^_^
Endfunktion
Klasse
beenden
%>