Zählen mit exclude Array

XTC99

Hallo ich würde gerne eine ein Schleife machen mit einer Exclude Liste (Array)
Also das Script soll von 1 bis 10 zählen und jeweils eine MsgBox ausgeben ausser
bei den Zahlen im Exclude Array (1 , 7 , leider funktioniert das nicht so wirklich.
Hab einen ziemlichen Denkfehler bei der Aufgabe.

Danke für eure Hilfe

Spoiler anzeigen

[autoit]

$start = 1
$ende = 10
dim $exlude[3] = ['1','7','8']

[/autoit] [autoit][/autoit] [autoit]

for $i = $start to $ende
For $x = 0 to UBound($exlude) -1
if ($exlude[$x] <> $i) Then
MsgBox(0,0,$i)
EndIf
Next
Next

[/autoit]

**autoBert**

Hallo XTC99,

mach es so:

[autoit]

Local $start = 1
Local $end = 10
Local $exclude_array[3] = [ 1, 7, 8]

[/autoit][autoit][/autoit][autoit]

For $i = $start To $end
For $j = 0 To UBound($exclude_array) - 1
If $i = $exclude_array[$j] Then ContinueLoop(2)
Next
MsgBox(0, "", $i)
Next

[/autoit]

mfg autoBert

Cyberdyne

Hier noch 2 Möglichkeiten wie du es realisieren kannst:

Mit _ArraySearch:

[autoit]

#include <array.au3>

[/autoit][autoit][/autoit][autoit]

$start = 1
$ende = 10
Dim $exlude[3] = ['1', '7', '8']

[/autoit][autoit][/autoit][autoit]

For $i = $start To $ende
If _ArraySearch($exlude, $i) = -1 Then MsgBox(0, 0, $i)
Next

[/autoit]

Mit _ArraySearch & @error:

[autoit]

#include <array.au3>

[/autoit][autoit][/autoit][autoit]

$start = 1
$ende = 10
Dim $exlude[3] = ['1', '7', '8']

[/autoit][autoit][/autoit][autoit]

For $i = $start To $ende
_ArraySearch($exlude, $i)
If @error Then MsgBox(0, 0, $i)
Next

[/autoit]

XTC99

Herzlichen Dank für eure Hilfe das sind gute Vorschläge