VBS中的字符串连接的性能问题

来源：本站原创|时间：2020-01-10|栏目：vb|点击：次

当然，对于少量的字符串连接，效率并没有对程序造成多大影响，现在让我们考虑一个极端的问题：将1到100000之间的所有数字连接成一个字符串。

最简单的解决方案是直接使用&连接：

复制代码代码如下:

 
begin = Timer 
For i = 1 To 100000 
str = str & CStr(i) 
Next 
WScript.Echo str 
finish = Timer 
WScript.Echo finish - begin 

但是这个程序在我电脑上需要运行60.648秒，效率太低。换一种方案，用数组来解决：

复制代码代码如下:

 
begin = Timer 
Dim arr(100000) 
For i = 1 To 100000 
arr(i) = i 
Next 
str = Join(arr, "") 
WScript.Echo str 
finish = Timer 
WScript.Echo finish - begin 

这次只用了0.742秒，大概快了60倍。在这个问题中数组的大小是可以事先确定的，如果不能预知数组的大小就必须使用动态数组。我水平比较低，不会用动态数组，有没有更简单的方法呢？答案是有，那就是字典：

复制代码代码如下:

 
begin = Timer 
Set oDic = CreateObject("scripting.dictionary") 
For i = 1 To 100000 
oDic.Add i, CStr(i) 
Next 
str = Join(oDic.Items, "") 
WScript.Echo str 
finish = Timer 
WScript.Echo finish - begin 

运行时间为1.593，是数组的2倍，但是还是比&快多了，而且用起来比数组方便。

总结：&连接符号的效率是比较低的，在连接少量字符串时可以使用，但是在大量字符串连接时应该使用Join函数+数组。
原文：http://demon.tw/programming/vbs-string-concatenation.html

上一篇：VBS加密与VBE解密实现方法

栏目：vb

下一篇：vbs字符串分割函数

本文标题：VBS中的字符串连接的性能问题

本文地址：https://www.xiuzhanwang.com/a1/vb/7472.html

更多vb

vb

VBS中的字符串连接的性能问题

您可能感兴趣的文章

阅读排行

本栏相关

随机阅读