Open XML - Mit "RemoveChild" einen Node entfernen

[Metal_Snake2]

hi,

ich bin schon etwas am verzweifeln, irgendwie funktioniert der code nicht, ich krieg nichtmal ne Fehlermeldung oder sonstwas aber der gewünschte effekt ist nicht da.

Meine XML- Datei sieht so aus:


<?xml version="1.0" encoding="UTF-8" ?>
<MWLPreferences>
<Gruppen>
<Gruppe1 IconPfad="Wert1" Filter="Wert2" ParentNodeCaption="Wert3" TotalLinkCnt="Wert4" FolderPath="Wert5" Description="Wert6" NodeLevel="Wert7">Gruppenname1</Gruppe1>
<Gruppe2 IconPfad="Wert2" Filter="Wert3" ParentNodeCaption="Wert2" TotalLinkCnt="Wert3" FolderPath="Wert2" Description="Wert3" NodeLevel="1">Gruppenname2</Gruppe2>
<Gruppe3 IconPfad="Wert2" Filter="Wert3" ParentNodeCaption="Wert2" TotalLinkCnt="Wert3" FolderPath="Wert2" Description="Wert3" NodeLevel="1">Gruppenname3</Gruppe3>
</Gruppen>
</MWLPreferences>

Delphi-Quellcode:

//Entfernen einer Gruppe
procedure TForm1.XmlRemoveGroupNode(NodeText: String);
const
  SeekingNodeName = 'Gruppen';
var
  FInputSource: TXMLInputSource;
  FDoc        : TDomDocument;
  FNode,FPNode: TDomNode;
  DataPath    : string;
  DubNodeText : string;
  i           : integer;
begin

  DubNodeText := trim(NodeText);

  try

    DataPath := ExtractFilePath(Application.ExeName) ;

    FDoc := TDomDocument.Create(DomImplementation1);

    FDoc := XMLToDomParser1.ParseFile(DataPath + 'test.xml', False);


    for i:= 0 to FDoc.FindFirstChildElement.ChildNodes.Length + 1 do
      begin

        FNode := FDoc.GetElementsByTagName(SeekingNodeName).Item(0).ChildNodes.Item(i).ChildNodes.Item(0);

        if (lowercase(DubNodeText) = lowercase(FNode.NodeValue)) then //Dieser Node muß nun entfernt werden
          begin

            FPNode := FNode.ParentNode.ParentNode;//Nun sind wir beim node "Gruppen"
            FPNode.RemoveChild( FNode); //Dessen Child entfernen, warum funzt das nun nciht?

        end;
    end;

  finally
    FDoc.Free;
  end;

end;

//So das ist d. Aufruf

procedure TForm1.Button3Click(Sender: TObject);
begin
  XmlRemoveGroupNode('Gruppenname3');
end;

Ich möchte d. ChildNode("Gruppe3) von dem Node "Gruppen" entfernen, jedoch funzt es nicht, er findet ja den node, kann ihn aber nicht entfernen.

Was mache ich falsch?

[shmia]

Warum verwendest du nicht XPath, um den Knoten aufzuspüren?
http://www.w3schools.com/xpath/default.asp
Deine Struktur ist etwas blöd, da du die Tags <Gruppe1>, <Gruppe2> und <Gruppe3> benützt.
Richtig wäre nur <Gruppe> zu benützen.
Hier wäre der XPath für eine bestimmte Gruppe mit Namen "Admin"

Code:

//MWLPreferences/Gruppen[Gruppe="Admin"]

Vorgehensweise:
1.) Knoten mit XPath lokalisieren (Methode SelectSinglenode)
2.) falls gefunden, Parent zu diesem Knoten holen
3.) parent.RemoveChild(derKnoten)

[Metal_Snake2]

Die lösung mit XPath war mir auch schon bekannt, nur d. Methode "SelectSinglenode" gibt es scheinbar nicht mit Open XML???
Habe version "Extended Document Object Model v.4.1.3 (released 2006-10-29)".

[shmia]

Zitat:

Zitat von Metal_Snake2

...nur d. Methode "SelectSinglenode" gibt es scheinbar nicht mit Open XML???
Habe version "Extended Document Object Model v.4.1.3 (released 2006-10-29)".

Dann versuch's mal mit [node].SelectNodes(xpathquery). Das liefert eine Liste von Knoten zurück.

[marabu]

Hallo,

OpenXML implementiert diese Funktionalität in der Methode EvaluateToNode() eines Knoten.

Grüße vom marabu

[Metal_Snake2]

Puuh ich bekomms nicht hin, hier der ausschnit:

Delphi-Quellcode:

        if (lowercase(DubNodeText) = lowercase(FNode.NodeValue)) then //Dieser Node muß nun entfernt werden
          begin

            XPathExp := FNode.XPathStringValue;

            //RootNode
            FSNode := FDoc.FindFirstChildElement.EvaluateToNode(XPathExp);

            FPNode := FSNode.ParentNode;//Nun sind wir beim node "Gruppen"
            FPNode.RemoveChild(FSNode); //Dessen Child entfernen, warum funzt das nun nciht?

        end;

Was mache ich nun falsch?

EDIT: Ich bekomme eine "Not Supportet" Exception

[Metal_Snake2]

Kann mir niemand hier weiterhelfen? Soll ich nun doch von Open XML umsteigen?

[marabu]

Habe doch etwas Geduld - mancheiner muss auch noch andere Dinge erledigen.

Zuerst musst du mal deinen Code-Rahmen anpassen. In deinen Beispielzeilen hast du den zu löschenden Knoten FNode im Zugriff. Um den zu löschen brauchst du kein XPATH mehr, da genügt sowas wie FNode.parentNode.removeChild(FNode).

Freundliche Grüße