<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Classe de concaténation rapide de chaînes
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Nom : Classe_FastString
'Source : http://www.jansfreeware.com
'Organisation : qihangnet
'Mise à jour : 15 juin 2005
'Fonction : Concaténer des chaînes efficacement, beaucoup plus rapidement que la méthode str = str & "abc"
'Autorisation : Utilisation gratuite
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Classe Class_FastString
'************ * **************************
'Définition variable
'************************************
'index --- l'index du tableau de chaînes
'ub ------ Variable entière utilisée pour ajuster le degré du tableau
'ar() ---- Tableau de chaînes
Index privé, ub, ar()
'***************************** * ***
'Initialisation/terminaison de l'instance
'************************************
Sous-classe privée_Initialize()
Redim ar(50)
indice = 0
ub = 49
Fin du sous-
classe privée sous-classe_Terminate()
Effacer ar
Fin du sous-
'************************************
'événement
'************************************
'Événement par défaut, ajouter une chaîne
Sous-ajout public par défaut (valeur)
ar(index) = valeur
indice = indice+1
Si index>ub Alors
ub = ub + 50
Redim Préserver ar(ub)
Terminer si
Fin du sous-
'************************************
'méthode
'************************************
'Renvoie la chaîne concaténée
Dump de fonction publique
Redim préserver ar (index-1)
Dump = join(ar,"") 'La clé est ^_^
Classe de fin de
fonction de fin
%>