記錄一個(gè)小方法,關(guān)于 VBScript 中,動(dòng)態(tài) Array 的實(shí)現(xiàn),也適用于 VBA,
在很久以前,寫 VBA 的時(shí)候,就覺得使用 Array 和不方便,因?yàn)榇笮」潭ǎ?br />
當(dāng)時(shí)想的是,要是 Array 可以像 Python 里的 list 一樣好用該多好啊,
那么下面,就記錄一個(gè)方法,能讓 Array 變得動(dòng)態(tài),并且好用!
實(shí)現(xiàn)方法:
在下面的實(shí)例中,先設(shè)定一個(gè)空的 Array 出來(lái),
然后用,下面的方法實(shí)現(xiàn)動(dòng)態(tài) Array,
并且,把數(shù)字 1 到 10,一個(gè)加到 Array 中去。
'動(dòng)態(tài) Array 實(shí)現(xiàn)
myArray = Array()
For i = 1 To 10
ReDim Preserve myArray(UBound(myArray) + 1)
myArray(UBound(myArray)) = i
Next
那么動(dòng)態(tài) Array 就這么開心的實(shí)現(xiàn)啦,(^_−)☆
對(duì)比下和 Python list 的代碼吧,感覺是不是很像呢。
# Python 中 list 的使用
myList = list()
for i in range(10):
myList.append(i)
print(myList)
數(shù)據(jù)輸出:
然后,思考下一個(gè)問題,也是我之前寫 VBA 時(shí)候考慮的問題,
就是,怎么一下子,看到 Array 中所有的數(shù)據(jù),
之前的本方法,是使用 For Loop,把 Array 中的數(shù)據(jù)一個(gè)個(gè) Print 出來(lái),
但是現(xiàn)在發(fā)現(xiàn)了簡(jiǎn)單的方法,代碼如下:
'最簡(jiǎn)單的方法:
MsgBox Join (myArray, vblf)
'之前使用的笨方法:
For Each i In myArray
Debug.Print i
Next
結(jié)束語(yǔ):
上面的動(dòng)態(tài) Array 方法,在 VBScript 和 VBA 中都可用!
總結(jié)
到此這篇關(guān)于VBScript 動(dòng)態(tài) Array 的實(shí)現(xiàn)代碼的文章就介紹到這了,更多相關(guān)VBScript 動(dòng)態(tài) Array內(nèi)容請(qǐng)搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家!
您可能感興趣的文章:- vbscript基礎(chǔ)篇 - vbs數(shù)組Array的定義與使用方法