<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Clase de concatenación rápida de cadenas
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Nombre: Class_FastString
'Fuente: http://www.jansfreeware.com
'Organización: qihangnet
'Actualización: 15 de junio de 2005
'Función: Concatenar cadenas de manera eficiente, mucho más rápido que el método str = str & "abc"
'Autorización: uso gratuito
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Clase Class_FastString
'************ * ****************************
'Definición variable
'************************************
'index --- el índice de la matriz de cadenas
'ub ------ Variable entera utilizada para ajustar el grado de la matriz
'ar() ---- Matriz de cadenas
Índice privado, ub, ar()
'****************************** * ***
'Inicialización/terminación de instancia
'************************************
Subclase privada_Initialize()
Redim ar(50)
índice = 0
ub = 49
Finalizar
subsubclase privada_Terminate()
borrar ar
Fin Sub
'************************************
'evento
'************************************
'Evento predeterminado, agregar cadena
Subagregación pública predeterminada (valor)
ar(índice) = valor
índice = índice+1
Si índice>ub Entonces
ub = ub + 50
Reserva Redim ar(ub)
terminar si
Fin Sub
'************************************
'método
'************************************
'Devuelve la cadena concatenada
Volcado de función pública
Redim preservar ar(índice-1)
Volcado = join(ar,"") 'La clave es ^_^
Función final
Clase final
%>