Immer wieder Arrays, kommt die Erinnerung ;)

Guggus,

ich sitz mal wieder da und raffs nicht:

Ich will checken, ob ein WERT in einem ARRAY enthalten ist, wenn nicht soll dieser an das Array hintendrangefügt werden.
Also los, erstmal fleissig beim MaxiArrayKing geschnust, wie der das so macht mit Arrays erweitern, und hab mir dann folgendes ausgedacht:

Func _not_seen_add($seenarray,$val) 
	$seen=0 
	For $x=1 To UBound($seenarray)-1 ;
		MsgBox(0,"TEST",$x&" "&UBound($seenarray)&" "&$seenarray[$x]) 
		if ($seenarray[$x]=$val) Then 
	        $seen=1 ; 
		EndIf 
	Next 
	if ($seen=0) Then 
		$zx=UBound($seenarray) ;
 		$seenarray[0]=$zx 
		$seenarray[$zx-1]=$val ;
		ReDim $seenarray[$z+1] 
	EndIf 
	return $seenarray 
EndFunc

Sollte eigentlich, mit $myarray=_not_seen_add($myarray,$value) in einer Schleife mit den einzelnen werten aufgerufen, am Ende ein Array mit allen mgl. Werten enthalten.

Irgendwie klappt das aber nicht, was mache ich falsch?

Zur Erläuterung das ausgangsproblem:
Liste mit Kennungen, mehrfachnennungen möglich. Ich will ein Array ausgeben, dass jeden mgl Wert nur ein mal enthält (also auch die mehrfachnennungen nur einmal)

Danke und Gruß

Arndt

Hi Zippelmitz,

nimm mal '_ArrayAdd()' anstatt an §seenarray[0] 'rumzufummeln'

Perfekt.