当前位置:主页   - 电脑 - 程序设计 - VB
用Mid$命令超速字符串添加操作
来源:网络转载   作者:未知   更新时间:2009-03-04
收藏此页】    【字号    】    【打印】    【关闭
大家都知道,&操作符的执行速度是相当慢的,特别是处理长字符串时。当必须重复地在同一变量上附加字符时,有一个基于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倍之多。呵呵,由此看来:代码也不可貌相啊

->


其它资源
来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考,本站不主张将其做为决策的依据,浏览者可自愿选择采信与否,本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络,其版权为原权利人所有。由于来源之故,有的文章未能获得作者姓名,署“未知”或“佚名”。对于这些文章,有知悉作者姓名的请告知本站,以便及时署名。如果作者要求删除,我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创,本站拥有所有权利。
4、如对本站发布的信息有异议,请联系我们,经本站确认后,将在三个工作日内做出修改或删除处理。
请参阅权责声明