首页 > > 程序设计 > VB >

用Mid$命令超速字符串添加操作

2018-06-17 17:11:41来源：未知阅读 ()

大家都知道，&操作符的执行速度是相当慢的，特别是处理长字符串时。当必须重复地在同一变量上附加字符时，有一个基于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

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

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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有