in XML reinschreiben...

[spacewolf]

Moin jetzt hab ich es geschaft XML auszulesen und in eine Datenbank zu speichern, nun will ich aber in eine schon bestehende XML-Datei reinschreiben. (von OpenOFfice)

Die ist folgendermaßen aufgebaut:

XML-Code:

<block-list:block-list>
-<block-list:block block-list:abbreviated-name="(c)" block-list:name="©"/>
-<block-list:block block-list:abbreviated-name="(r)" block-list:name="®"/>
-<block-list:block block-list:abbreviated-name="Accesoir" block-list:name="Accesoire"/>

Ich habe mir das folgendermaßen gedacht:

Delphi-Quellcode:

procedure WriteOOAutoKorrekt(AOwner:TComponent);
var
  kn, knSequ       : integer;
  knoten, element  : IDOMNode; //atname, cardAtName//SequKnoten, //cardElement,
  value1, value2   : string;
  stream           : TStream;

  XMLDoc      : TXMLDocument;

  newChild, newNode : IDOMNode;
begin
 XMLDoc := TXMLDocument.Create(AOwner);

 newChild.???
 newChild.nodeName  := 'neuerTest';
 newNode.nodeValue  := 'neuerTest222';

 XMLDoc.LoadFromFile('c:\test.xml');
 XMLDoc.DocumentElement.DOMNode.ChildNodes.length;
 XMLDoc.DocumentElement.DOMNode.insertBefore(newNode,newChild);
 XMLDoc.AddChild('test','test');
 XMLDoc.SaveToFile('c:\test2.xml');
end;

Aber so richtig weiter komm ich nicht...



Wie gehts weiter wenn ich da einen neuen Eintrag reinschreiben will.

danke für alle Gedanken

euer Andreas

PS: es geht darum die Autokorrektur von OpenOffice auszulesen
und serverbasierend zu speichern.

[spacewolf]

falls da keiner durchblickt, das ist nur son Sourceschnipsel...
damit man erkennt welche Objekte ich bisher beim auslesen verwendet habe *hüstel*

hab das Netz abgegraßt nach Tutorials um zu schauen wie ich da wat schreibe,
aber alles was ich fand wirkte hochkompliziert... Hab da sozusagen nix gecheggt...

dabei will ich doch nur n Element schreiben

der Andreas

[spacewolf]

eine etwas andere Herangehensweise...

Delphi-Quellcode:

procedure XMLAdd;
var
  XMLDoc : TXMLDocument;
  iNode : XMLNode;
begin
  XMLDoc := TXMLDocument.Create(nil);
  XMLDoc.LoadFromFile('c:\test.xml');

  iNode := XMLDoc.CreateNode('test'); // AddChild('tree2xml');

  iNode.AddChild('einitem');
  iNode.Attributes['text'] := 'der text';
  iNode.Attributes['imageIndex'] := 'einindex';
  iNode.Attributes['stateIndex'] := 'einstatus';

  //will leider DOMNode: XMLDoc.DocumentElement.DOMNode.appendChild(iNode);

  XMLDoc.SaveToFile('c:\neutest.xml');

  XMLDoc := nil;
end;

aber geht auch net

[marabu]

Hallo Andreas,

wenn block-list das Wurzel-Element des Dokuments ist, dann kannst du so einen zusätzlichen Knoten hinten anfügen:

Delphi-Quellcode:

procedure TDemoForm.AddButtonClick(Sender: TObject);
var
  xn: IXMLNode;
begin
  with XMLDocument do
  begin
    xn := DocumentElement.AddChild('block-list:block', '');
    xn.Attributes['block-list:abbreviated-name'] := 'mfg';
    xn.Attributes['block-list:name'] := 'Mit freundlichen Grüßen';
  end;
end;

Grüße vom marabu

[spacewolf]

Super,

DANKE !!!