Einzelnen Beitrag anzeigen

Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.536 Beiträge
 
#8

Re: Nach enthaltenem Text in einer HTML-Datei suchen

  Alt 24. Sep 2004, 15:18
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
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat