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