vbScript阵列

Question

我是vbScript的新手，我想知道是否有人能给我建议：

我试图循环数组中的单个值。见以下内容：

Dim reportesTA(3)
reportesTA(0) = "REPORT1"
reportesTA(1) = "REPORT2"
reportesTA(2) = "REPORT3"

我编写了一个Sub过程如下：

Sub REPORTE1()
    For Each i=0 In reportesTA
        posicionarCursor() ''This is another sub
        commKeys reportesTA(0)
    Next
End Sub

这是行不通的，我也不知道我做错了什么。我想，另一种方法是：

For i=0 to 0
    posicionarCursor() ''This is another sub
    commKeys reportesTA(0)
Next

Answer 1

有两种语法可通过数组循环：

For Each i In reportesTA
' your code here
next

或者这个：

for i=0 to ubound(reportesTA)
' your code here
next

Answer 2

数组的大小是由基于零的最后有效索引而不是元素的数量来确定的；所以

>> Dim rTA(2) ' 3 elms from 0 to 2
>> rTA(0) = "1"
>> rTA(1) = "2"
>> rTA(2) = "3"

若要在数组上循环，请使用count/index循环：

>> For i = LBound(rTA) To UBound(rTA)
>>     WScript.Echo i, rTA(i)
>> Next
>>
0 1
1 2
2 3

并通过数组(索引)或a For每个循环访问元素。

>> For Each r In rTA
>>     WScript.Echo r
>> Next
1
2
3

允许您访问(每个元素的副本)，而不必使用索引。