快速业务通道

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

作者 佚名 来源 ASP编程 浏览 发布时间 2013-07-09
当然,对于少量的字符串连接,效率并没有对程序造成多大影响,现在让我们考虑一个极端的问题:将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

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号