PureBoard

jogo hat geschrieben: 20.01.2023 18:22 jetzt mal abgesehen von der Datenbanklösung oder der prophylaktischen Prüfung von Doppelwerten.

Möglicherweise interpretiere ich ja falsch - aber ist das Beispiel in der Hilfe nicht genau das, was du suchst?
Dort wird doch nach vorhandenen Doppelwerten gesucht und gelöscht, oder?
https://www.purebasic.com/german/docume ... ition.html

techniker hat geschrieben: 20.01.2023 13:42

mk-soft hat geschrieben: 20.01.2023 12:39 Man verwendet ja Maps um nicht durchsuchen zu müssen und ist somit schon sehr schnell.

Wie erkennst du sonst, welche Keys von Dubletten betroffen sind?
(Dubletten sollen nicht verboten sein, aber müssen detektiert werden)
Die Map hat momentan bis zu 70'000 Elemente.

obst("key1") = "Apfel"
obst("Key2") = "Birne"
obst("key3") = "Banane"
obst("key4") = "Birne"
obst("key5") = "Weintraube"
obst("key6") = "Banane"
obst("key7") = "Banane"

Bei diesem Beispiel brauche ich folgende Keys als Ergebnis:
key2, key3, key4, key6, key7

Structure kv_match
  List keys.s()
EndStructure


NewMap obst.s()

obst("key1") = "Apfel"
obst("Key2") = "Birne"
obst("key3") = "Banane"
obst("key4") = "Birne"
obst("key5") = "Weintraube"
obst("key6") = "Banane"
obst("key7") = "Banane"

ForEach obst()
  Debug "obst(" + MapKey(obst()) + ") = " + obst()
Next

Debug "---"
NewMap wert.kv_match()

ForEach obst()
  If FindMapElement(wert(),obst()) = 0
    AddMapElement(wert(), obst())
  EndIf
  AddElement(wert()\keys()): wert()\keys() = MapKey(obst())
Next

Debug "---"
ForEach wert()
  ;SortList(wert()\keys(), #PB_Sort_Ascending)
  If ListSize(wert()\keys()) > 1
    Debug "Wert(" + MapKey(wert()) + ") = " + ListSize(wert()\keys())
    ForEach wert()\keys()
      Debug wert()\keys()
    Next
  EndIf
Next