VB6字符串连接操作效率

n久没上来发东西了，感觉很过意不去，又找了点东西放上来。

VB6字符串连接（&）操作效率

本人某天为了优化某人写的VB6模块而临时测试了下VB6里面字符串的“&”（连接）操作的耗时。

现在把当时的记录放上来，大家可以参考下。

试试下面三段VB6代码：

功能完全相同，都是获得一个字符串，这个字符串含有重复10遍的连起来的从0到10000的数字。

但效率可是完全不同的，你可以分别测试一下它们的耗时。

1----------------

  Dim  str1  as   String
  Dim  s1  As   Long , s2  As   Long
  
   For  s2  =   0   To   10
     For  s1  =   0   To   10000
      str1  =  str1  &  Str$(s1)
     Next
   Next

 

 

2-----------------

Dim  str1  as   String ,str2  as   String
Dim  s1  As   Long , s2  As   Long

   For  s2  =   0   To   10
    str2  =   ""
     For  s1  =   0   To   10000
      str2  =  str2  &  Str$(s1)
     Next
    str1  =  str1  &  str2
   Next

 

 

3-----------------

   Dim  str1  as   String ,str2  as   String
   Dim  s1  As   Long , s2  As   Long
   Dim  st1  As   Long , ln1  As   Long
   For  s2  =   0   To   10
    str2  =   Space ( 100000 )
    st1  =   1
     For  s1  =   0   To   10000
      ln1  =   Len (Str(s1))
       Mid (str2, st1, ln1)  =  s1
      st1  =  st1  +  ln1
     Next
    
    st1  =  str1  &   RTrim $(str2)
   Next

 

我在Debug模式下，Core2Duo T7100下的测试结果是
1、76秒多
2、2.6秒左右
3、120毫秒左右

编译成代码速度优化的EXE本地代码后，速度没有提高多少。

差了多少倍？

结论：字符串&操作相当的费时，而且字符串越大&操作越费时。
（同时可见字符串&操作几乎不能被优化多少）

 

（这么低的效率，明显VB6对&操作只是呆板的重新申请空间然后copy而已）

另外，貌似Mid语句的效率没有想象中的那么低下。