<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Classe de concatenação rápida de strings
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Nome: Class_FastString
'Fonte: http://www.jansfreeware.com
'Organização: Qihangnet
'Atualização: 15 de junho de 2005
'Função: Concatenar strings de forma eficiente, muito mais rápido que o método str = str & "abc"
'Autorização: Gratuito para usar
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Classe Class_FastString
'************ * **************************
'Definição de variável
'************************************
'index --- o índice da matriz de strings
'ub ------ Variável inteira usada para ajustar o grau do array
'ar() ---- Matriz de strings
Índice privado, ub, ar()
'****************************** * ***
'Inicialização/encerramento da instância
'************************************
Subclasse Privada_Initialize()
Redim ar(50)
índice = 0
ub = 49
Fim Sub
Privado Sub Class_Terminate()
Apagar ar
Fim do sub
'************************************
'evento
'************************************
'Evento padrão, adicionar string
Sub-adição padrão público (valor)
ar(índice) = valor
índice = índice+1
Se índice>ub Então
ub = ub + 50
Redim Preservar ar(ub)
Terminar se
Fim do sub
'************************************
'método
'************************************
'Retorna a string concatenada
Despejo de função pública
Redim preservar ar(índice-1)
Dump = join(ar,"") 'A chave é ^_^
Classe
final da função final
%>