-
-
'คลาสการต่อสตริงแบบเร็ว
-
'ชื่อ: Class_FastString
ที่มา: http://www.jansfreeware.com
องค์กร: ชี่หังเน็ต
'อัปเดต: 15 มิถุนายน 2548
'ฟังก์ชัน: เชื่อมต่อสตริงอย่างมีประสิทธิภาพ เร็วกว่าเมธอด str = str & "abc" มาก
'การอนุญาต: ใช้งานฟรี'
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
คลาส Class_FastString
'************ * **************************
'คำจำกัดความของตัวแปร
-
'index --- ดัชนีของอาร์เรย์สตริง
'ub ------ ตัวแปรจำนวนเต็มที่ใช้ในการปรับระดับของอาร์เรย์
'ar() ---- สตริงอาร์เรย์
ดัชนีส่วนตัว, ub, ar()
'****************************** * ***
'การเริ่มต้น/การยกเลิกอินสแตนซ์
'************************************
Class_Initialize ส่วนตัวย่อย ()
เรดดิมอาร์(50)
ดัชนี = 0
ยูบี = 49
สิ้นสุด
ย่อยส่วนตัวย่อย Class_Terminate()
ลบ AR
จบซับ
'************************************
'เหตุการณ์
'************************************
'เหตุการณ์เริ่มต้น เพิ่มสตริง
การเพิ่มย่อยเริ่มต้นสาธารณะ (ค่า)
ar(ดัชนี) = ค่า
ดัชนี = ดัชนี+1
ถ้าดัชนี>ub แล้ว
ub = ub + 50
Redim เก็บรักษา ar(ub)
จบถ้า
จบซับ
'************************************
'วิธี
'************************************
'ส่งคืนสตริงที่ต่อกัน
การถ่ายโอนข้อมูลฟังก์ชั่นสาธารณะ
Redim รักษา ar (ดัชนี-1)
Dump = join(ar,"") 'สิ่งสำคัญคือ ^_^
ฟังก์ชันสิ้นสุด
คลาสสิ้นสุด
-