XML Endtag finden

[Pader1305]

Zitat von Delphi.Narium:

Bin mal naiv:

Datei in 'ne Stringliste laden und ein bisserl anpassen, ungefähr sinngemäß sowas:

Delphi-Quellcode:

var
  sl : TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile(FILEPATH);
  sl.Insert(1,'<reparaturtag>');
  sl.Add('</reparaturtag>');
  sl.SaveToFile(FILEPATH);
  sl.Free;

Sinnvoller wäre es, beim "Lieferanten" die Erstellung einer syntaktisch korrekten Datei einzufordern.

Das ist auch ein Lösungsvorschlag. Ich werde das mal durchsprechen, aber ein großes Dankeschön schonmal!

[Delphi.Narium]

Wenn ich die Aufgabenstellung recht verstanden habe, muss bei den Dir vorliegenden Dateien immer in die vorletzte Zeile was eingefügt werden:

Delphi-Quellcode:

var
  sl : TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile(FILEPATH);
  sl.Insert(sl.Count - 1,'<myTag>irgendein Inhalt</myTag>');
  sl.SaveToFile(FILEPATH);
  sl.Free; 
end;

[Pader1305]

Hallo nochmal,
Ich habe den folgenden Code nun verwendet, kann leider aber nicht überprüfen, ob er funktioniert

Delphi-Quellcode:

var
   lStringListDatei : TStringList;
   
    begin
      lStringListDatei.Encoding.UTF8;
      lStringListDatei.LoadFromFile(lConfig.getXMLDatabase, TEncoding.UTF8);
      lStringListDatei.Insert(1,'<test>');
      lStringListDatei.Add('</test>');
      lStringListDatei.SaveToFile(lConfig.getXMLDatabase, TEncoding.UTF8);

    end;

Ich bekomme nur eine 'access violation at 0x004b7038: write of Adress': Fehlermeldung und werde dort hin verwiesen mit einer Markierung in die FDefaultEncoding Zeile.

Delphi-Quellcode:

{ TStrings }

constructor TStrings.Create;
begin
  inherited Create;
  FDefaultEncoding := TEncoding.Default;
  FLineBreak := sLineBreak;
  FDelimiter := ',';
  FQuoteChar := '"';
  FNameValueSeparator := '=';
  FOptions := [soWriteBOM, soTrailingLineBreak, soUseLocale];
end;

[Delphi.Narium]

Du musst lStringListDatei erstellen und wieder freigeben.

Delphi-Quellcode:

begin
  lStringListDatei := TStringlist.Create;
  // dein Code
  lStringListDatei.Free;
end;