Update weiter unten!
Hi,
Ich versuche 100 Textdateien nach einem bestimmten Begriff zu durchsuchen. Ich hab dann mal die Forensuche bedient und folgenden Code gefunden und angepasst.Die Dateien liegen im Format 1.txt, 2.txt, 3.txt usw vor. Allerdings funktioniert das nicht so wie ich will.
Delphi-Quellcode:
procedure TForm5.SuchestartenClick(Sender: TObject);
var
StringList : TStringList;
posi : integer;
s : string;
i : byte;
begin
for i := 0 to 100 do
begin
StringList := TStringList.Create;
try
StringList.LoadFromFile('\\Server\Datenbank\' + inttostr(i) + '.txt); [b]// [Fehler] Unit5.pas(45): Nicht abgeschlossener String[/b]
s := StringList.Text; [b]// [Fehler] Unit5.pas(46): ')' erwartet, aber Bezeichner 's' gefunden[/b]
delete(s, 1, pos(edit1.text, s) + length(edit1.text) - 1);
memo1.lines.add (copy(s, 1, pos('<Endewort>', s) - 1));
finally
StringList.free;
end;
end;
end;
Die Fehlermeldungen sagen mir nicht viel, was mach ich falsch? Und wozu brauche ich Endewort?
Originalthread ist übrigens
der hier
Ach ich sehe gerade, der Ersteller des anderen Threads sucht eine Möglichkeit um den Inhalt zwischen zwei Wörter herauszusuchen. Naja, viel Unterschied wird in den Verfahren nicht sein. Ich will eigentlich nur den Namen der Textdatei in der Memobox ausgeben, wenn ein bestimmter Begriff in dieser Datei gefunden wurde.