如何解决VBS中字符串连接的性能问题-创新互联

这篇文章将为大家详细讲解有关如何解决VBS中字符串连接的性能问题,小编觉得挺实用的,因此分享给大家做个参考,希望大家阅读完这篇文章后可以有所收获。

为玉山等地区用户提供了全套网页设计制作服务,及玉山网站建设行业解决方案。主营业务为成都网站设计、做网站、玉山网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!

当然,对于少量的字符串连接,效率并没有对程序造成多大影响,现在让我们考虑一个极端的问题:将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倍,但是还是比&快多了,而且用起来比数组方便。


关于“如何解决VBS中字符串连接的性能问题”这篇文章就分享到这里了,希望以上内容可以对大家有一定的帮助,使各位可以学到更多知识,如果觉得文章不错,请把它分享出去让更多的人看到。


名称栏目:如何解决VBS中字符串连接的性能问题-创新互联
网站路径:http://bzwzjz.com/article/coghis.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 梓潼网站设计 广安网站设计 LED网站设计方案 宜宾网站设计 成都网站制作 定制网站建设 成都网站制作 网站制作 高端网站设计 成都网站设计 网站制作公司 成都网站制作 响应式网站设计 成都网站制作 成都网站制作 成都网站建设推广 成都网站设计 营销网站建设 成都网站设计 四川成都网站建设 网站设计 手机网站建设套餐