主页 > 知识库 > VBS中的字符串连接的性能问题

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

热门标签:海外美发店地图标注 新密防封卡外呼系统违法吗 前锋办理400电话申请 外呼营销下单系统 打电话的外呼系统贵不贵 加盟电销机器人好的品牌 陕西高频外呼回拨系统哪家好 百度地图标注怎么卸载 办理胶州400电话财税
当然,对于少量的字符串连接,效率并没有对程序造成多大影响,现在让我们考虑一个极端的问题:将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中的字符串连接的性能问题》,本文关键词  VBS,中的,字符串,连接,的,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《VBS中的字符串连接的性能问题》相关的同类信息!
  • 本页收集关于VBS中的字符串连接的性能问题的相关信息资讯供网民参考!
  • 推荐文章