How to find all index in array

[Valnurat]

Hi

Small question.

I trying to find all index in an array with value higher than 7.

How can that be possible?

[abberration]

This is one way you could do it:

 

#include <array.au3>

Dim $array[10] = ["6", "8", "1", "5", "9", "5", "7", "10", "1", "8"]

$index = @CRLF

For $i = 0 To 9
    If $array[$i] > 7 Then
        $index = $index & $i & @CRLF
    EndIf
Next

MsgBox(0, "", "Numbers higher than 7 are at array positions: " & $index)

 

[Subz]

Not the greatest with RegExp but this should do what you want.

#include <Array.au3>
Local $aArray[20] = [10, 2, 30, 4, 50, 6, 70, 8, 90, 10, 110, 2, 130, 4, 150, 6, 170, 8, 190, 10]
Local $aFindAll = _ArrayFindAll($aArray, "\b(7|8|9|[0-9]\d+|(?!0)\d{3,})\b", 0, 0, 0, 3)
_ArrayDisplay($aFindAll)
_ArrayDisplay($aArray)

 

[bernd670]

Hello,

If there are negative numbers or numbers with leading zeros, that's better.

#include <Array.au3>
Local $aArray[20] = ["-010", "02", "0030", 4, 50, 6, 70, "-08", -90, 7, 110, 2, 130, 4, 150, 6, 170, -8, 190, 10]
Local $aFindAll = _ArrayFindAll($aArray, "\b(?<!-)(0*)(8|9|(?!0)\d{2,})\b", 0, 0, 0, 3)
_ArrayDisplay($aFindAll)
_ArrayDisplay($aArray)

 

 

[iamtheky]

back to fun loops

#include <Array.au3>
Local $aArray[20] = ["-010", "02", "0030", 4, 50, 6, 8, "-08", -90, 7, "00010", 2, 130, 4, 9, 6, 170, -8, 190, 10]

If number($aArray[_ArrayMinIndex($aArray , 1)]) < 8 Then

do
    _ArrayDelete($aArray , _ArrayMinIndex($aArray , 1))
until number($aArray[_ArrayMinIndex($aArray , 1)]) > 7

EndIf

_ArrayDisplay($aArray)