新客网WWW.XKER.COM:致力做中国最专业的网络学院!
学院: 操作系统 - 网络应用 - 服务器 - 网络安全 - 工具软件 - 办公软件 - Web开发 - 数据库 - 网页设计 - 图形图像 - 媒体动画 - 硬件学堂 - 存储频道 - QQ专区
您的位置:首页 > 软件开发 > Web开发 > Asp教程 > 正文:关于"&"运算符效率低下的问题,有什么好的解决办法?

关于"&"运算符效率低下的问题,有什么好的解决办法?

新客网 XKER.COM 2003-11-15 来源: 收藏本文
大家看看。

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


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

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

<%
PageExeTime1=Timer * 1000 '计时开始

Set sc=new CStrCat
For i=0 To 5000
sc.add i
next
response.write sc.value

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


<%
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
%>
收藏】 【评论】 【推荐】 【投稿】 【打印】 【关闭
发表评论
要记得去论坛讨论,点击注册新会员匿名评论
评论内容:不能超过250字,需审核后才会公布,请自觉遵守互联网相关政策法规。
阅读排行
随机推荐
实用信息推荐