<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Kelas penggabungan string cepat
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Nama: Class_FastString
'Sumber: http://www.jansfreeware.com
'Organisasi: qihangnet
'Pembaruan: 15 Juni 2005
'Fungsi: Menggabungkan string secara efisien, jauh lebih cepat daripada metode str = str & "abc".
'Otorisasi: Gratis untuk digunakan
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Kelas Class_FastString
'************ * **************************
'Definisi variabel
'***************************************
'indeks --- indeks array string
'ub ------ Variabel integer digunakan untuk mengatur derajat array
'ar() ---- Array string
Indeks pribadi, ub, ar()
'****************************** * ***
'Inisialisasi/penghentian instans
'************************************
Sub Pribadi Class_Initialize()
Redim ar(50)
indeks = 0
ub = 49
Akhiri Sub
Pribadi Sub Class_Terminate()
Hapus ar
Akhir Sub
'************************************
'peristiwa
'***************************************
'Acara default, tambahkan string
Sub Tambah Default Publik (nilai)
ar(indeks) = nilai
indeks = indeks+1
Jika indeks>ub Lalu
ub = ub + 50
Redim Pertahankan ar(ub)
Berakhir jika
Akhir Sub
'************************************
'metode
'***************************************
'Mengembalikan string gabungan
Pembuangan Fungsi Publik
Redim melestarikan ar(indeks-1)
Dump = join(ar,"") 'Kuncinya adalah ^_^
Fungsi Akhir
Kelas akhir
%>