VBS: Counting number of items in an Array

Question

How could I investigate simply the number of items in a given array. I used this code, but it's a bit laborious

myArr=Array("frog", "cat", "bat", "rat", "horse")
 for i=0 to UBound(myArr)
 ' Msgbox i +1 & ".item: " & myArr(i) 
 next
Msgbox i & " items in this array:" & vbcrlf & Join(myArr)

Thanks

One of those rare submissions where the answer is within the question. :) — Bond, Aug 02 '14 at 16:20

score 11 · Answer 1 · answered Aug 02 '14 at 14:45

11

Umm... you have it in your code. UBound(Array) returns the upper bound, which is the highest existing item. UBound(myArr) + 1 is its length, because the index is zero based.

answered Aug 02 '14 at 14:45

JaGoTu

176
4

Oh what a fool I've been ... Thanks Ѿ – Gurkenhobel Aug 02 '14 at 15:04
3

If I answered your question, please mark it as the solution! Thanks – JaGoTu Aug 02 '14 at 16:06
This solution is wrong, on an empty array you will get every time a size of 1,which is not what you want! – Thomas Aug 08 '22 at 12:20

score 1 · Answer 2 · answered Aug 02 '14 at 14:45

1

Msgbox (ubound(myArr) + 1) & " items in this array:" & vbcrlf & Join(myArr)

EDIT: While you are using ubound already, why do you need a loop & a variable i to count.

answered Aug 02 '14 at 14:45

shahkalpesh

33,172
3
63
88

Thomas · Answer 3 · 2022-08-08T15:13:09.090

0

The right answer is

Msgbox (UBound(myArr)-LBound(myArr)+1) & " items in this array:" & vbcrlf & Join(myArr)

This gives you the right item count also when your array is empty.

Check also https://stackoverflow.com/a/30574874/1426827

edited Aug 08 '22 at 15:13

answered Aug 08 '22 at 12:33

Thomas

1,193
1
7
16

VBS: Counting number of items in an Array

3 Answers3