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

在很久以前，寫(xiě) VBA 的時(shí)候，就覺(jué)得使用 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 就這么開(kāi)心的實(shí)現(xiàn)啦，(^_−)☆

對(duì)比下和 Python list 的代碼吧，感覺(jué)是不是很像呢。

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

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

然后，思考下一個(gè)問(wèn)題，也是我之前寫(xiě) VBA 時(shí)候考慮的問(wèn)題，
就是，怎么一下子，看到 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)文章希望大家以后多多支持腳本之家！

最新評(píng)論