[Массивы] Алгоритм поиска данных в массиве

[ArgoNaft]

Мне нужно сделать
если в массиве все кроме 0 индекса равны "NON" то Exit, как это сделать?

For $i=1 To UBound($aArr)-1
	  If ($aArr[$i] <> "NON") Then
		 
	  EndIf
   Next

И тут я встал не могу понять как решить задачу

 

[ildar]

For $i=1 To UBound($aArr)-1
      If ($aArr[$i] = "NON") Then ExitLoop
      
   Next

 

[ArgoNaft]

ну вот у вас есть допустим массива
"NON",4,"NON"
У вас условие будет не выполнено, потому что в массиве есть еще 4. А в условии: надо чтоб все были "NON"

Local $aiResult = _ArrayFindAll($aArr, "NON")
   If (UBound($aiResult)+1 = UBound($aArr)) Then
  Exit
EndIf

Вот так я сделал все отлично работает спасибо

 

[xaker]

так быстрее:

For $i = 1 To UBound($aArr)-1
	If $aArr[$i] <> "NON" Then Exit
Next

 

[firex]

xaker
Прочтите еще раз условие.

$uB = UBound($aArr)
For $Idx = 1 To $uB - 1 Step 1
	If $aArr[$Idx] = "NON" Then ContinueLoop
	; ---
	ExitLoop
Next
If $Idx = $uB Then Exit ;В массиве все элементы равны NON

 

[Z_Lenar]

While 1
	For $i = 1 To UBound($aArr)-1
		If $aArr[$i] <> 'NON' Then ExitLoop 2
	Next
	Exit
WEnd