<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
"فئة تسلسل السلسلة السريعة."
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'الاسم: Class_FastString
'المصدر: http://www.jansfreeware.com
'المنظمة: qihangnet
"تحديث: 15 يونيو 2005
'الوظيفة: تسلسل السلاسل بكفاءة، أسرع بكثير من طريقة str = str & "abc".
"الترخيص: مجاني للاستخدام."
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
فئة Class_FastString
'************ * **************************
"تعريف متغير."
'***************************************
'الفهرس --- فهرس مصفوفة السلسلة
'ub ------ متغير عدد صحيح يستخدم لضبط درجة المصفوفة
'ar() ---- String array
Private Index, ub, ar()
'****************************** * ***
'"تهيئة/إنهاء المثيل"."
'***************************************
فئة فرعية خاصة_Initialize ()
تخليص ع(50)
الفهرس = 0
ب = 49
نهاية
Sub Class_Terminate الخاصة ()
محو ع
النهاية الفرعية
'************************************
'حدث
'***************************************
الحدث الافتراضي، أضف سلسلة
إضافة فرعية افتراضية عامة (قيمة)
ع (الفهرس) = القيمة
الفهرس = الفهرس+1
إذا كان الفهرس>ub ثم
أوب = أوب + 50
استرداد المحمية ar(ub)
انتهي إذا
النهاية الفرعية
'************************************
'طريقة
'***************************************
'إرجاع السلسلة المتسلسلة
تفريغ الوظيفة العامة
استرداد قيمة الاحتفاظ ar(index-1)
Dump = join(ar,"") 'المفتاح هو ^_^
نهاية الوظيفة
نهاية الطبقة
%>