Teilstring in Textdatei ändern

[RavenIV]

Zitat von Bea:

Nun muss ich zur Laufzeit meines Programms den Eintrag in den Anführungsstrichen bei
<StoreProperties DocumentName="Testdokument" />
durch einen neuen Wert (z.B.123456789) ersetzen.

Kann mir bitte jemand sagen, wie soetwas am besten geht?
Ich bedanke mich schonmal im Vorraus für jede Hilfe.

CU Bea

nimm doch einfach mal (wie bereits erwähnt) eine XML-Komponente und lies die datei damit ein.
Dann schaust Du, was dann passiert.
Anschliessend liesst Du die Hilfe zu der XML-Kompo.
Vermutlich kannst Du dann auf sehr einfache Weise den 'DocumentName' ändern.
Dann die Datei wieder mit der XML-Kompo speichern und feddisch.

[Bea]

also doch XML...na das muss ich mal in Ruhe probieren...noch nie gemacht.
und wie gesagt...oldValue kenn ich doch nicht

[RavenIV]

Zitat von Bea:

also doch XML...na das muss ich mal in Ruhe probieren...noch nie gemacht.
und wie gesagt...oldValue kenn ich doch nicht

XML solltest Du dir mal reinziehen, ist sehr interessant.
Da kann man viele schöne Sachen damit machen.

und vermutlich brauchst Du den oldValue nicht, da Du dich auf 'DocumentName' stürzen solltest.

[marabu]

Hallo ihr Spaßvögel,

wenn oldValue nicht bekannt ist, dann schraubt man die Funktionalität einfach etwas zurück:

Delphi-Quellcode:

uses
  XMLIntf,
  XMLDoc;

function XMLChange(markup, ePath, aName, aValue: String): String;
var
  doc: IXMLDocument;
  nl: IDOMNodeList;
  i: Integer;
begin
  doc := LoadXMLData(markup);
  with doc.DOMDocument as IDOMNodeSelect do
    nl := SelectNodes(ePath);
  for i := 0 to Pred(nl.length) do
    with nl.item[i] as IDOMElement do
      setAttribute(aName, aValue);
  Result := doc.XML.Text;
end;

Einfach mal ausprobieren...

marabu

[Bea]

Hallo marabu,

wie verwende ich nun diese Funktion?
Was muss denn da nun bei markup, ePath, aName, aValue rein?
Hab da irgendwas von Knoten usw. gelesen, blick aber noch nicht so richtig durch.
Keinen Plan
Könntest du mir da mal ein Aufruf für mein Beispiel dazupacken, bitte?

CU Bea

[marabu]

Hallo Bea,

hilft dir das?

Delphi-Quellcode:

with TStringList.Create do
begin
  LoadFromFile(ParamStr(1));
  Memo.Text := XMLChange(Text, '//StoreProperties', 'DocumentName', 'Bea');
  Free;
end;

Freundliche Grüße vom marabu

[Bea]

Hallo marabu,
vielen Dank für deine Hilfe.

Habe mich die letzten Tage mal etwas mit XML beschäftigt und mir viele Beispiele aus dem Forum angeschaut und ausprobiert,
um das ganze Thema verstehen zu lernen.
... werd ich aber noch viel üben müssen

Mit dem Beispiel von Dir konnte ich meine Anfrage lösen, denke ich.
Ich habe das jetzt so umgesetzt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var xmlDoc: IXMLDocument;
    xmlFile: string;
    bXMLChange: boolean;
begin
with TStringList.Create do
  begin
    xmlFile := 'C:\DOCU0001.001';
    LoadFromFile(xmlFile);
    if XMLChangeAttribute(xmlFile, Text, '//StoreProperties', 'DocumentName', '123456789') then
      bXMLChange := true
    else
      bXMLChange := false;
    Free;
  end;
end;
 
function XMLChangeAttribute(sFile, markup, ePath, aName, aValue: string): boolean;
var
  doc: IXMLDocument;
  nl: IDOMNodeList;
  i: Integer;
begin
  Result := true;
  doc := LoadXMLData(markup);
  try
    with doc.DOMDocument as IDOMNodeSelect do
      nl := SelectNodes(ePath);
    for i := 0 to Pred(nl.length) do
      with nl.item[i] as IDOMElement do
      begin
        setAttribute(aName, aValue);
        doc.SaveToFile(sFile);
      end
  except
    Result := false;
  end;
end;

Könnte ich diese Funktion nun eigentlich auch (sicherlich etwas abgeändert) verwenden,
um Werte bestimmter Knoten zu ändern?

Also nochmals vielen Dank
CU Bea