<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Класс быстрой конкатенации строк
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Имя: Class_FastString
'Источник: http://www.jansfreeware.com
'Организация: Циханнет
'Обновление: 15 июня 2005 г.
'Функция: эффективное объединение строк, намного быстрее, чем метод str = str и "abc"
'Авторизация: бесплатное использование
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Class Class_FastString
'************ * **************************
'Определение переменной
'************************************
'index --- индекс массива строк
'ub ------ Целочисленная переменная, используемая для регулировки степени массива
'ar() ---- Массив строк
Частный индекс, ub, ar()
'****************************** * ***
'Инициализация/завершение экземпляра
'************************************
Частный подкласс_Initialize()
Редим ар(50)
индекс = 0
уб = 49
Завершить подчастный
подкласс_Terminate()
Стереть
Завершить подписку
'************************************
'событие
'************************************
'Событие по умолчанию, добавить строку
Общедоступное добавление по умолчанию (значение)
ar(индекс) = значение
индекс = индекс+1
Если индекс>ub Тогда
уб = уб + 50
Заповедник Редим ar(ub)
Конец, если
Завершить подписку
'************************************
'метод
'************************************
'Возвращает объединенную строку
Дамп публичной функции
Redim сохранить ar (индекс-1)
Dump = join(ar,"") 'Ключ: ^_^
Конечная функция
Конечный класс
%>