記錄一個小方法，關(guān)于 VBScript 中，動態(tài) Array 的實現(xiàn)，也適用于 VBA，

在很久以前，寫 VBA 的時候，就覺得使用 Array 和不方便，因為大小固定，
當(dāng)時想的是，要是 Array 可以像 Python 里的 list 一樣好用該多好啊，
那么下面，就記錄一個方法，能讓 Array 變得動態(tài)，并且好用！

實現(xiàn)方法：

在下面的實例中，先設(shè)定一個空的 Array 出來，
然后用，下面的方法實現(xiàn)動態(tài) Array，
并且，把數(shù)字 1 到 10，一個加到 Array 中去。

'動態(tài) Array 實現(xiàn)

myArray = Array()
For i = 1 To 10
  ReDim Preserve myArray(UBound(myArray) + 1)
  myArray(UBound(myArray)) = i
Next

那么動態(tài) Array 就這么開心的實現(xiàn)啦，(^_−)☆

對比下和 Python list 的代碼吧，感覺是不是很像呢。

# Python 中 list 的使用
myList = list()
for i in range(10):
  myList.append(i)
print(myList)

數(shù)據(jù)輸出：

然后，思考下一個問題，也是我之前寫 VBA 時候考慮的問題，
就是，怎么一下子，看到 Array 中所有的數(shù)據(jù)，
之前的本方法，是使用 For Loop，把 Array 中的數(shù)據(jù)一個個 Print 出來，
但是現(xiàn)在發(fā)現(xiàn)了簡單的方法，代碼如下：

'最簡單的方法：

MsgBox Join (myArray, vblf)

'之前使用的笨方法：
For Each i In myArray
  Debug.Print i
Next

結(jié)束語：

上面的動態(tài) Array 方法，在 VBScript 和 VBA 中都可用！

總結(jié)

到此這篇關(guān)于VBScript 動態(tài) Array 的實現(xiàn)代碼的文章就介紹到這了,更多相關(guān)VBScript 動態(tài) Array內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

最新評論