vbScript

Question

我是 vbScript 的新手，想知道是否有人可以提供建议：

我正在尝试循环获取数组中的单个值。请参阅以下内容：

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

我写了一个子程序如下：

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

数组的大小由从零开始的最后一个有效索引给出，而不是元素的数量；所以

>> 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

并通过数组（索引）或 For Each 循环访问元素

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

让您无需使用索引即可访问每个元素（的副本）。

Answer 2

有两种遍历数组的语法：

For Each i In reportesTA
' your code here
next

或者这个：

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

vbScript - 数组