Dateien bearbeiten

[mfs]

Hallo Zusammen,

ich bin in Delphi relativ neu und bin an folgender Stelle stehen geblieben,

ich möchte in einer Datei nach einem Wort suchen und dann ab diesem Wort bzw. ab der nächsten Zeile einen Text anhängen.
Die Suchfunktion habe geschafft, das andere aber nicht

Würde mir bitte jemand dazu einen Tipp geben..Danke für jede Hilfe


Gruss mfs

[netscanner]

such mal nach der funktion "paste" in der Delphihilfe.
Dort kannst du angeben ab welcher position im String (bei dir im Text) er etwas einfügt...

[_frank_]

also für zeilenweise bearbeitung eignet sich imho TStringlist am besten

so in etwa (ungetested):

Delphi-Quellcode:

var sl:TStringlist;
    i :integer;
begin
  sl:=TStringlist.create;
  sl.loadfromfile(...);
  i:=0;
  while (i< sl.count) and (pos('text',sl.strings[i])=0) do inc(i);
  sl.insert(i+1,'zusatztext');
  memo1.lines.assign(sl);
  sl.savetofile(...);
  sl.free;
end;

HTH Frank

[mfs]

Danke vielmals für den Quell-Code, es hat einwandfrei funktioniert
Würdest Du aber bitte noch einen kleinen Tipp geben, zum gleich Anhängen nach dem gefundenen Wort.

Also im Bsp. soll "zusatztext" gleich nach "text" stehen und nicht in der neuen Zeile.

Weil i:=pos(...) hat jetzt doch die Nummer der Zeile, und bekomme ich nun die Nummer des letzten Zeichnes im "text"?
(Dies wäre also mein 2. Problem gewesen).

Gruss mfs

[_frank_]

das ergebnis von pos in ner var speichern, die länge deines Such-Textes hinzuaddieren und einfügen
da du der insert-funktion eine variable mitgeben kannst und sl.strings[i] eine konstante ist musst du ne separate string-var nehmen (s)

so in etwa:

s:=sl.strings[i];
p:=pos(text,s);
insert(text,s,p+length(text));
sl.strings[i]:=s;

HTH Frank