How to find all the indexes of the element in the list?

Question

Presume there are several elements in array which are duplicate.

array = [1,2,4,6,1,6,9,12]

I need to find all the indexes of 1 which means 0 and 4. Can anyone show me how to do that?

no, I need the way to solve with vbscript. – Nikolay Oleynikov Mar 16 '20 at 18:15 — Nikolay Oleynikov, Mar 16 '20 at 18:15
Sorry, missed the vbscript tag. Answer below. – willman Mar 16 '20 at 18:37 — willman, Mar 16 '20 at 18:37

willman · Accepted Answer · 2020-03-16T19:00:38.953

The following takes an array of values as the first parameter, and the value to find as the second, and returns an array of indexes where the value was found:

Function FindIndexesOfElement(valuesArray, elmToFind) 
  Set indexes = CreateObject("Scripting.Dictionary") 

  For i = LBound(valuesArray) to UBound(valuesArray)
    If elmToFind = valuesArray(i) Then
      indexes(i) = True 
    End If
  Next 

  FindIndexesOfElement = indexes.Keys 
End Function

How to find all the indexes of the element in the list?

1 Answers1