ASP高效率字符串连接类

< %
   ' fast string class
class strCat
     dim  index, ub, ar()

     Private   Sub  Class_Initialize()
         ' statements
         redim  ar( 50 )
        index = 0
        ub = 10
     End Sub

     Private   Sub  Class_Terminate()
         ' statements
         erase  ar
     End Sub

     public  default  Sub  Add(value)
        ar(index) = value
        index = index + 1
         if  index > ub  then
        ub = ub + 50
         redim  preserve ar(ub)
         end   if
     end sub

     public   Function  dump
         redim  preserve ar(index - 1 )
        dump = join (ar, "" )
     end function
end  class

' first traditional method
t1 = time
os = ""
for  i = 1   to   5000
    os = os  &   " This is the slow method of building strings "
next
t2 = time

t3 = time
set  cat =   new  strCat
for  i = 1   to   5000
    cat( " This is the slow method of building strings " )
next
s =  cat.dump
set  cat  =   nothing
t4 = time
response.Write( " Using the & operator: "   &   cstr (t1)  &   "  -  "   &   cstr (t2)  &    " <br>Using the fast string class:  "   &   cstr (t3)  &    "  -  cstr(t4) &   " < br > " )
% >

转载于:https://www.cnblogs.com/yongzhi/articles/1281269.html