VBS中的字符串连接的性能问题
网络编程
当然，对于少量的字符串连接，效率并没有对程序造成多大影响，现在让我们考虑一个极端的问题：将1到100000之间的所有数字连接成一个字符串。
最简单的解决方案是直接使用&连接：
但是这个程序在我电脑上需要运行60.648秒，效率太低。换一种方案，用数组来解决：
这次只用了0.742秒，大概快了60倍。在这个问题中数组的大小是可以事先确定的，如果不能预知数组的大小就必须使用动态数组。我水平比较低，不会用动态数组，有没有更简单的方法呢？答案是有，那就是字典：
运行时间为1.593，是数组的2倍，但是还是比&快多了，而且用起来比数组方便。
总结：&连接符号的效率是比较低的，在连接少量字符串时可以使用，但是在大量字符串连接时应该使用Join函数+数组。
原文：http://demon.tw/programming/vbs-string-concatenation.html
最简单的解决方案是直接使用&连接：
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精确计算2的100次方的代码
既然Python可以计算2的100次方，那么我就要用VBS实现。不过这个效率嘛，计算2的10000次方Python用了0.009013秒，VBS用了120.9805秒，不是一个等级的，我就不
纯vbs实现zip压缩与unzip解压缩函数代码
压缩代码:Zip"D:test.iso","D:test.zip"Zip"D:test","D:test.zip"Msgbox"OK"SubZip(ByValmySourceDir,ByValmyZipFile)Setfso=CreateObject("Scripting.FileSystemObject")Iffso.GetExtensionName(myZipFile)
VBS调用Windows API函数的代码
那天无意中搜索到一篇《WinCCVBS利用EXCEL调用WindowsAPI函数》的文章，不知道WinCC是什么，Google了一下好像跟西门子自动化有关。WinCC是什么并不重要，重
编辑：广州明生医药有限公司
标签：数组,字符串,次方,函数,效率