記錄一個小方法,關(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)文章希望大家以后多多支持腳本之家!
您可能感興趣的文章:- vbscript基礎(chǔ)篇 - vbs數(shù)組Array的定義與使用方法