append in Tstringlist einbauen

[moperswings]

Hallo,

ich habe eine Menge von Daten in einer Datei (zwischenspeicher.txt), die Zeilenumbrüche enthalten. Die Zeilenumbrüche mache ich raus mit

Delphi-Quellcode:

var daten: TSourcelist;
daten := TStringlist.create;
daten.loadfromfile('zwischenspeicher.txt');
daten.text := stringreplace (daten.text, #13#10, '', [rfreplaceall]);

Jetzt möchte ich die bereinigten Daten an einer anderen Datei(datensatz.csv) in eine neue Zeile anhängen.
Doch wie bekomme ich jetzt ein append dazwischen, bevor ich mit
daten.savetofile('datensatz.csv') das ganze wieder schliesse!
Wahrscheinlich geht das einfacher als ich denke.
Hoffe, ihr könnt mir helfen!
moperswings

[Jürgen Thomas]

Hallo,

eine Variante wäre:

Delphi-Quellcode:

var daten: TStringList;
    sTemp: string;
daten := TStringlist.create;
daten.loadfromfile('zwischenspeicher.txt');
sTemp := stringreplace (daten.text, #13#10, '', [rfreplaceall]);
daten.loadfromfile('datensatz.csv');
//  wenn Du ein neues Leerzeichen hinnimmst, dann:
daten.Add(sTemp);
//  oder direkt:
daten.Text := daten.Text + sTemp;
//  und abschließend speichern
daten.savetofile('datensatz.csv');

Alternativ kannst Du auch direkt an einen TFileStream anhängen.

Bist Du sicher, dass Du jetzt ohne jedes Leerzeichen arbeiten willst? (Ich habe Deine anderen Diskussionen zum Thema CSV nur am Rande verfolgt.) Jürgen

[moperswings]

Stimmt, dass mit den Leerzeichen war nur ein versehen.
Danke für den Tipp und den Hinweis.
Ich probier Deinen Vorschlag jetzt mal aus.

[moperswings]

Bei
sTemp := stringreplace (daten.text, #13#10, [rfreplaceall]); bekomme ich die Fehlermeldung inkompatible typen string und set!
set ist eine Menge!
Wo ist da der Zusammenhang?

[ste_ett]

Bei dir fehlt ein Parameter.

Die Flags, die du für das Ersetzen setzt ([rfReplaceAll]), müssen eine Position nach hinten.
An der dritten Stelle wird ein String erwartet, deshalb der Fehler "Set <-> String".

[mkinzler]

Es fehlt auch ein Parameter
sTemp := stringreplace (daten.text, #13#10, '', [rfreplaceall]);

[Klaus01]

Zitat von moperswings:

Bei
sTemp := stringreplace (daten.text, #13#10, [rfreplaceall]); bekomme ich die Fehlermeldung inkompatible typen string und set!
set ist eine Menge!
Wo ist da der Zusammenhang?

stringreplace benötigt 4 Parameter
- Text indem die Zeichen ersezt werden sollen
- Zeichen die ersetzt werden sollen
- Zeichen die anstellen des zu ersetzenden Zeichen kommen
- Und ein set wie ersetzt werden soll.

Bei Dir fehlt ein Parameter.

Grüße
Klaus

[marabu]

Hallo moperswings,

in einem anderen thread hattest du die Erkenntnis, dass du im Memo die Eigenschaft WantReturns ausschalten konntest um die unbenötigten Zeilentrenner los zu werden.

Um eine oder mehrere Textzeilen an eine Datei anzuhängen muss man nicht unbedingt die Zieldatei zuerst komplett in den Hauptspeicher laden - bei Log-Dateien mitunter gar nicht möglich. Es geht auch so:

Delphi-Quellcode:

procedure AppendToFile(s: TStrings; fn: TFileName);
var
  i: Integer;
begin
  with TFileStream.Create(fn, fmOpenWrite or fmShareDenyWrite) do
  begin
    Position := Size;
    for i := 0 to Pred(s.Count) do
    begin
      WriteBuffer(s[i][1], Length(s[i]));
      WriteBuffer(sLineBreak[1], Length(sLineBreak));
    end;
    Free;
  end;
end;

Das lässt sich natürlich auch in einer abgeleiteten Klasse unterbringen - wer will.

Grüße vom marabu

[moperswings]

Jetzt läufts, das mit dem Parameter war mein Fehler, sorry!

@marabu
Ich habe bei meinen Memos überall die Zeilenumbrüche ausgeschaltet - und trotzdem habe ich Fehler in meiner Datei, die so keinen Sinn ergeben.
Am Editor scheint es nicht zu liegen. Die Daten werden mit den Umbrüchen gespeicht - und ich weiss, nicht warum.
Jetzt löse ich das Problem halt mit stringreplace.

Ich danke Euch und wünsche allen ein schönes Wochenende!