Entwickler-Ecke
Sonstiges (Delphi) - *.txt Datei String suchen, ändern
delphia1029 - Mo 31.08.09 18:13
Titel: *.txt Datei String suchen, ändern
Hi Leute, ich weiß dass es in der Hilfe dazu eine Stellungnahme gibt, komme aber nicht ganz dahinter.
Ich habe eine Textdatei, in der ich nach einen String suchen möchte und in austausche. In der Textdatei kommt der gesucht Begriff mehrmals vor, ess solle jeder ausgetauscht werden. Hier mein Quellcode:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| var lzd : TStringlist;
a : String;
u : Integer;
begin
lzd:=TStringList.Create;
lzd.LoadFromFile('C:\.....txt');
u := lzd.IndexOf('Haus');
if u <> -1 then
begin
lzd[u] := Stringreplace(lzd[u],'Haus',a,[rfReplaceAll]);
lzd.SaveToFile('C:\.....txt');
end;
lzd.free;
end; |
a ... String ... Hütte
Moderiert von 
Gausi: Delphi-Tags hinzugefügt
Muck - Mo 31.08.09 18:30
Hi,
wenn ich sowas hatte, habe ich meistens so geloest, dass ich einfach den StringReplace auf der kompletten Datei laufen lasse. Sollte kein Problem sein, solange die Datei nicht 2 GB gross ist.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| var lzd : TStringlist;
a : String;
u : Integer;
begin
lzd:=TStringList.Create;
lzd.LoadFromFile('C:\.....txt');
if Pos('Haus',lzd.text)>0 then begin
lzd.text:=StringReplace(lzd.Text,'Haus','Huette',[rfReplaceAll]);
lzd.SaveToFile('C:\.....txt');
end;
lzd.free;
end; |
jaenicke - Mo 31.08.09 20:34
Wozu erst die if-Abfrage?
Und wo ist der Speicherschutzblock?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| var
lzd: TStringList;
begin
lzd := TStringList.Create;
try
lzd.LoadFromFile('C:\.....txt');
lzd.Text := StringReplace(lzd.Text, 'Haus', 'Huette', [rfReplaceAll]);
lzd.SaveToFile('C:\.....txt');
finally
lzd.Free;
end;
end; |
Muck - Mo 31.08.09 21:05
Hallo,
die IF Abfrage weil wir ja nicht eine Datei speichern wollen, die sich nicht geaendert hat, weil nichts veraendert worden ist. Ich habe das einfach mal so vom erste eintrag uebernommen. Daher auch kein Schutzblock. Natuerlich gehoert da einer hin.
bis denne
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!