Nach enthaltenem Text in einer HTML-Datei suchen

[alcaeus]

Hi sniffy,

lade den Inhalt einer HTML-Datei in ein Memo. Dann kannst du mit Pos('cd_', Memo1.Text) automatisch das gesamte Memo durchsuchen.
Beispiel:

Delphi-Quellcode:

function DurchsucheHTMLDatei(DateiName: String): Boolean;
var
  MeinMemo: TMemo;
begin
  MeinMemo := TMemo.Create(nil);
  try
    MeinMemo.Lines.LoadFromFile(DateiName);
    Result := (Pos('cd_', MeinMemo.Text) +
               Pos('ld_', MeinMemo.Text)) > 0;
  finally
    MeinMemo.Free;
  end;
end;

Wichtig: Die Funktion ist nicht geschwindigkeitsoptimiert. Das andauernde Erstellen und Freigeben des Memos kostet Zeit und Speicher. Du solltest alles vereinen, d.h. Memo erstellen, Datei laden, durchsuchen, Memo löschen (MeinMemo.Lines.Clear), Datei laden, ..., Memo freigeben.

Greetz
alcaeus