kleine Erweiterung für Maps

CSHW89 · **Registriert:** 14.12.2008 12:22

Ich hab auch grad an deine Erweiterung gedacht. Wiedermal ein Code von dir, der sinnlos wird :mrgreen:

Regenduft · **Registriert:** 25.03.2008 15:07 **Wohnort:** 's Ländle

Danke! Das hat mich auf den richtigen für mein "RenameMapKey()" gebracht. :allright:

Scheint auch ganz gut zu funktionieren. Ich hoffe nur, dass das "Map-Management" nicht durcheinandergebracht wird.
Eventuelle Nutzung auf eigene Gefahr... :wink:

EDIT: Die Sorgen waren gerechtfertigt. Der folgende Code funktioniert so nicht! (siehe nächtes Posting von STARGÅTE)

Code:

EnableExplicit

Macro RenameMapKey(Map, Key, NewKey)
  _RenameMapKey(FindMapElement(Map,Key), Key, @NewKey)
EndMacro
Procedure.i _RenameMapKey(*Pointer.String, Key$, *NewKey)
  If *Pointer
    *Pointer - SizeOf(Integer)
    Protected *ToNewKey.String = @*NewKey
    Swap *Pointer\s, *ToNewKey\s
    ProcedureReturn #True
  EndIf
  ProcedureReturn #False
EndProcedure

NewMap bla.s()

bla("US") = "United States"
bla("FR") = "France"
bla("DE") = "Germany"

Debug RenameMapKey(bla(), "US", "XYZTrulala")
Debug MapKey(bla())
Debug ""

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

Anmerkung: Das ich "US" zu "XYZTrulala" verunstaltet habe hat nichts weiter zu bedeuten. :wink:

STARGÅTE · **Registriert:** 01.11.2005 13:34 **Wohnort:** Glienicke

@Regenduft:
Diese Variante ist leider nicht möglich, wenn nicht sogar ein schwerer Fehler!

Die Map-Keys sind nicht nur einfach Strings, sondern Einträge einer Tabelle zur suche des Elements, wenn ein Key gesucht wird. Eine Map durchsucht ja nicht alle Elemente und vergleich die Keys, sondern nutzt eben eine Hash-Tabelle.

Nachdem der Key verändert wurde, kann man weder über den alten noch über den neuen Key zugreifen, wie du an diesem Beispiel siehst:

Code:

EnableExplicit

Macro RenameMapKey(Map, Key, NewKey)
  _RenameMapKey(FindMapElement(Map,Key), Key, @NewKey)
EndMacro
Procedure.i _RenameMapKey(*Pointer.String, Key$, *NewKey)
  If *Pointer
    *Pointer - SizeOf(Integer)
    Protected *ToNewKey.String = @*NewKey
    Swap *Pointer\s, *ToNewKey\s
    ProcedureReturn #True
  EndIf
  ProcedureReturn #False
EndProcedure

NewMap bla.s()

bla("US") = "United States"
bla("FR") = "France"
bla("DE") = "Germany"

RenameMapKey(bla(), "US", "XYZTrulala")

Debug bla("US")
Debug bla("FR")
Debug bla("DE")
Debug bla("XYZTrulala")

PureBoard

kleine Erweiterung für Maps

Wer ist online?