关于"&"运算符效率低下的问题，好的解决办法

我们知道用“ & ”号比用“+”号快。因为“+”要对字符窜变量做类型判断并转换。 

当时也没想出什么好办法。只是将两次“&”运算拆开，速度提了一倍。还是解决不了问题。 
结果就是：for i 1 to 5000 ，i以字符形式相加。用&运算，要300-500ms 

现在试试下面这个。建了个CStrCat的类。

程序代码： Class CStrCat '这是类开始。 
    Private i,sa() 
    Public Property Get Value 
        Redim Preserve sa(i) 
        Value=Join(sa,"") 
    End Property 
    Private Sub Class_Initialize() 
        i=clng(0) 
        Redim sa(500) 
    End Sub 
    Private Sub Class_Terminate() 
        Erase sa 
    End Sub 
    Public function Add(ps) 
        If len(ps)=0 Then Exit Function 
    If (i>=ubound(sa)) Then upsize 
        sa(i)=ps 
        i=i+1 
    End function 
    Private Sub UpSize() 
        Dim u 
        u=ubound(sa) 
        Redim Preserve sa(clng(u+u*0.1)) 
    End Sub 
End Class

你可以用这个代码测试一下性能分别：

程序代码： <% 
PageExeTime1=Timer * 1000 '计时开始 
Set sc=new CStrCat 
For i=0 To 5000 
    sc.add i&"aaaaaa"
next 
response.write sc.value 

'计时结束 
Response.Write ",Processed time:" & fix(abs(CDBL(Timer)*1000 - PageExeTime1))&"ms</font></p>" 

PageExeTime2=Timer * 1000
For i= 0 To 5000
    sc2=sc2&i&"aaaaaa"
Next
response.write sc2
'计时结束 
Response.Write ",Processed time:" & fix(abs(CDBL(Timer)*1000 - PageExeTime2))&"ms</font></p>" %>

本文地址：http://com.8s8s.com/it/it8470.htm