對(duì)于&運(yùn)算符效率低下的問(wèn)題，好的處理方法
發(fā)表時(shí)間：2024-05-25 來(lái)源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]我們知道用“ & ”號(hào)比用“+”號(hào)快。因?yàn)椤?”要對(duì)字符竄變量做類型判斷并轉(zhuǎn)換。 當(dāng)時(shí)也沒(méi)想出什么好辦法。只是將兩次“&”運(yùn)算拆開(kāi)，速度提了一倍。還是解決不了問(wèn)題。 結(jié)果就是：for i 1 to 5000 ，i以字符形式相加。用&運(yùn)算，要300-500ms 現(xiàn)在試試下面這...
我們知道用“ & ”號(hào)比用“+”號(hào)快。因?yàn)椤?”要對(duì)字符竄變量做類型判斷并轉(zhuǎn)換。
當(dāng)時(shí)也沒(méi)想出什么好辦法。只是將兩次“&”運(yùn)算拆開(kāi)，速度提了一倍。還是解決不了問(wèn)題。
結(jié)果就是：for i 1 to 5000 ，i以字符形式相加。用&運(yùn)算，要300-500ms
現(xiàn)在試試下面這個(gè)。建了個(gè)CStrCat的類。
程序代碼：
Class CStrCat '這是類開(kāi)始。
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
你可以用這個(gè)代碼測(cè)試一下性能分別：
程序代碼：
<%
PageExeTime1=Timer * 1000 '計(jì)時(shí)開(kāi)始
Set sc=new CStrCat
For i=0 To 5000
sc.add i&"aaaaaa"
next
response.write sc.value
'計(jì)時(shí)結(jié)束
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
'計(jì)時(shí)結(jié)束
Response.Write ",Processed time:" & fix(abs(CDBL(Timer)*1000 - PageExeTime2))&"ms</font></p>" %>
