vbScript - Arrays

Question

I am fairly new in vbScript and was wondering if anyone could please advise:

I am trying to loop for a single value in an array. See the following:

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

I wrote a Sub procedure as follow:

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

It won't work and I am not sure what I am doing wrong. The other way I though to do this would be:

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

It says that an "In" is expected in the line of "For Each i=0 In reportesTA" — F0l0w
– F0l0w, Commented Apr 14, 2015 at 17:50

Ekkehard.Horner · Accepted Answer · 2015-04-14 18:08:01Z

2

The size of an array is given by the zero-based last valid index, not the number of elements; so

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

To loop over an array, either use a count/index loop:

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

and access the elements via array(index), or a For Each loop

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

giving you access to (a copy of) each element without having to use an index.

answered Apr 14, 2015 at 18:08

Ekkehard.Horner

38.8k2 gold badges50 silver badges101 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

F0l0w Over a year ago

I want to write a sub procedure for each element in the array. So it would be something like "For Each 0 in rTA...do code...Next"? This would be for rta(0)

Ekkehard.Horner Over a year ago

The For Each sample calls a Sub (WScript.Echo) for each element of rTA.

Ali Sheikhpour · Accepted Answer · 2015-04-15 09:15:42Z

0

There are two syntax to loop through an array:

For Each i In reportesTA
' your code here
next

or this one:

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

answered Apr 15, 2015 at 9:15

Ali Sheikhpour

11.4k5 gold badges53 silver badges100 bronze badges

Collectives™ on Stack Overflow

vbScript - Arrays

2 Answers 2

2 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related