Listen vergleichen

[dietmar]

Genau darin liegt der Sinn ich lese verschiedene Daten aus einer Datei aus, mach das ganze in Liste. Sorry für die falschen Namen, hatte gestern einen anstrengenden Tag und hab einfach die listen umbenannt allerdings nur hier im Orignal ist es natürlich richtig. Und will ich eigentlich nur nach wissen ob gewisse Daten mehrfach vorhanden sind.

Tschuldigung mein Fehler das geht nur ich hab das in eine IF bedingung gesetzt die übersprungen wird. Tut mir sehr leid. Danke an alle die Zeit geopfert haben um mir bei meinen Problem zuhelfen.

[Kaeru Gaman]

wie gesagt.. wenn in der referenzliste jeder wert genau einmal vorkommt,
dann sollte es eigentlich funktionieren...

vielleicht versteckt sich der eigentliche bug wo ganz anders...

[ts-soft]

Ich weiß nicht, ob ich alles richtig verstanden habe, aber vielleicht hilft dieser ungetestete Code:

Code: Alles auswählen

Dim Test(CountList(Gut())-1)
For I = 0 To CountList(Gut() -1
  ForEach Schlecht()
    SelectElement(Gut(), I)
    If Gut() = Schlecht()
      Test(I + 1) = Test(I + 1) + 1
    EndIf
  Next
Next

For I = 0 To CountList(Gut())-1
  If Test(I) > 1
    Debug "Mehrfach"
  EndIf
Next