Textdateien bestimmte Zeile löschen.

[M1ndgr4ve]

Guten Tag

Bei meinem Programm speichert man eine TreeView Konfiguration als Textdatei ab. Die namen der gespeicherten Dateien stehen in einer ComboBox zum Abruf bereit.
Ich möchte nun die gespeicherten Dateien auch wieder Löschen können per Knopfdruck. Bzw. das wären ja dann Textzeilen die gelöscht werden.
Ich habe schon echt viel ausprobiert und kriegs einfach nicht hin das man eine beliebig ausgewählte Zeile/Datei löschen kann.
Kann mir jemand helfen?

Greez

[p80286]

Zitat:

Zitat von M1ndgr4ve (Beitrag 1293366)

Ich habe schon echt viel ausprobiert und kriegs einfach nicht hin das man eine beliebig ausgewählte Zeile/Datei löschen kann.

Und was hast du ausprobiert?

Delphi-Quellcode:

mystringlist:=tstringlist.create;
mystringlist.LoadfromFile('MeineDatei');
if myStringlist.Indexof('gesuchterString)>-1 then
  myStringlist.Delete(myStringlist.Indexof('gesuchterString));
myStringlist.Savetofile(MeineDatei');
myStringlist.Free;

das wäre z.B. eine Möglichkeit
oder du kopierst alle Zeilen aus einer Textdatei in eine andere Textdatei wenn die gelesene Zeile nicht gleich dem zu löschenden Wert ist, oder......

Gruß
K-H

[Der schöne Günther]

Stimmt,

Delphi-Quellcode:

TStrings

ist eigentlich noch besser. Ich hätte es spontan über String-Arrays gemacht:

Delphi-Quellcode:

uses System.IoUtils, System.Types;

procedure löscheZeile(const fileName: String; const deleteLine: Integer);
var
   originalLines:   TStringDynArray;
   newLines:      TStringDynArray;

   originalLineIndex:   Integer;
   newLineIndex:      Integer;
begin
   originalLines := TFile.ReadAllLines(fileName);

   SetLength(newLines, Length(originalLines) - 1);
   newLineIndex := 0;
   for originalLineIndex := Low(originalLines) to High(originalLines) do
      if (originalLineIndex <> deleteLine) then begin
         newLines[newLineIndex] := originalLines[originalLineIndex];
         Inc(newLineIndex);
      end;

   TFile.WriteAllLines(fileName, newLines);
end;

[BadenPower]

Zitat:

Zitat von M1ndgr4ve (Beitrag 1293366)

Bei meinem Programm speichert man eine TreeView Konfiguration als Textdatei ab. Die namen der gespeicherten Dateien stehen in einer ComboBox zum Abruf bereit.
Ich möchte nun die gespeicherten Dateien auch wieder Löschen können per Knopfdruck. Bzw. das wären ja dann Textzeilen die gelöscht werden.
Ich habe schon echt viel ausprobiert und kriegs einfach nicht hin das man eine beliebig ausgewählte Zeile/Datei löschen kann.
Kann mir jemand helfen?

Diese Beschreibung Deines Vorhabens ist wirr, wie immer.

Es stellt sich zunächst die Frage was eigentlich gelöscht werden soll.

Die einzelnen Konfigurationsdateien der Treeview auf der Festplatte oder nur der Eintrag (also der Dateiname) in der ComboBox?

[Der schöne Günther]

Ich habe die Beschreibung ehrlich gesagt auch nicht verstanden, aber immerhin die Überschrift. :stupid:

[p80286]

[OT]

Zitat:

Zitat von BadenPower (Beitrag 1293369)

Diese Beschreibung Deines Vorhabens ist wirr, wie immer.

Kommt darauf an wo man arbeitet, da ist man manchmal einiges gewohnt.
Es gibt Arbeitgeber die brauchen Gedankenleser und Hellseher, keine Programmierer!
:glaskugel:
Gruß
K-H
[/OT]

[himitsu]

Delphi-Quellcode:

procedure löscheZeile(const FileName: String; const DeleteLine: Integer);
var
  Lines: TArray<String>;
begin
  Lines := TFile.ReadAllLines(FileName);
  Delete(Lines, DeleteLine);
  TFile.WriteAllLines(FileName, Lines);
end;

:stupid:

Und dann natürlich noch ReadLn und WriteLn, wobei man die eine Zeile überspringt. (nicht speichert)

Zitat:

Zitat von BadenPower (Beitrag 1293369)

Diese Beschreibung Deines Vorhabens ist wirr, wie immer.

Klang teilweise so, als wenn in den Tree-Zeilen Dateinamen stehen und man die Dateien löschen will,
drum sagte ich mir "nee, keine Lust das jetzt zu verstehen .... ich geh erstma Mittag essen" :roll:

[Der schöne Günther]

Bei ihm steht aber XE6. Nicht XE7 :lol:

[himitsu]

Werbung :zwinker:

Aber ein Array-Delete hatte ich mir seit vielen Jahren eh schon selber gebaut
und seit 2009 auch als

Delphi-Quellcode:

TArray<string>.Delete(Lines, DeleteLine);

. :angel:

[Perlsau]

Zitat:

Zitat von M1ndgr4ve (Beitrag 1293366)

Kann mir jemand helfen?Greez

Du meinst jetzt wirklich helfen, wie man es dort vor einigen Tagen bereits versucht hat?

Wieso erlenst du nicht erst einmal die Grundlagen der Delphi-Programmierung, indem du das eine und/oder andere Tutorial durcharbeitest? Dabei würdest du nämlich ein grundlegendes Verständnis für Delphi und die verfügbaren Komponenten entwickeln. Einfach so draufloslegen und nach zwei drei Wochen glauben, man könne programmieren, geht mit Sicherheit frontal in die Hose :lol: