欢迎光临
我们一直在努力

用mid$命令超速字符串添加操作_visualbasic教程

建站超值云服务器,限时71元/月

大家都知道,&操作符的执行速度是相当慢的,特别是处理长字符串时。当必须重复地在同一变量上附加字符时,有一个基于Mid$命令的技巧可以使用。基本思路就是:预留一个足够长的空间存放操作的结果。下面是应用这个技术的一个例子。

假设要建立一个字符串,它要附加从1开始的10000个整数:”1234567…9999

10000″。下面是最简单的实现代码:
res=””
Fori=1to10000:res=res&Str(i):Next

代码虽然简单,但问题也很明显:Res变量将被重分配10000次。下面的代码实现同样的目的,但效果明显好转:

DimresAsString
DimiAsLong
DimindexAsLong

预留足够长的缓冲空间
res=Space(90000)

指针变量,指出在哪里插入字符串
index=1

循环开始
Fori=1to10000
substr=Str(i)
length=Len(substr)

填充字符串的相应区间段数值
Mid$(res,index,length)=substr

调整指针变量
index=index length

Next

删除多余字符
res=Left$(res,index-1)

测试表明:在一个333MHz的计算机上,前段代码执行时间为2.2秒,后者仅仅为0.08秒!代码虽然长了些,可是速度却提高了25倍之多。呵呵,由此看来:代码也不可貌相啊

->

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 用mid$命令超速字符串添加操作_visualbasic教程
分享到: 更多 (0)