Nach enthaltenem Text in einer HTML-Datei suchen

[sniffy]

OK.

Hier ist der Code der fürs suchen verantworltlich ist wenn die HTML-Datei geöffnet ist.

Delphi-Quellcode:

procedure TForm1.Panel2Click(Sender: TObject);
var i,p: integer;
    s: string;
begin
     for i := 0 to RichEdit1.Lines.Count - 1 do
     begin
     if Pos('cd_', RichEdit1.Lines.Strings[i]) +
        Pos('ld_', RichEdit1.Lines.Strings[i]) > 0 then
     begin
     s :='';

     {Die aktuelle Zeile wird nach der Zeichenfolge "cd_" und "ld_" durchsucht
     und bei Erfolg ab der gefundenen Position ausgelesen, bis ein
     Leerzeichen auftritt...}

     for p := Pos('cd_', RichEdit1.Lines.Strings[i]) +
              Pos('ld_', RichEdit1.Lines.Strings[i]) to
              Length(RichEdit1.Lines.Strings[i]) do
     if RichEdit1.Lines.Strings[i][p] <> ' ' then
     s := s + RichEdit1.Lines.Strings[i][p]
     else
     break;

     {Falls das gefundene Attribut nicht mit einem Leerzeichen abschließt,
     werden hier noch anhängende Textzeichen entfernt...}

     while
     Pos(s[Length(s)], '..;!")]}''>') > 0 do
     Delete(s, Length(s), 1);
     ListBox1.Items.Add(s);
    end;
  end;

     // Die Zahl der gefundenen Attribute in Label1 anzeigen...

     if
     ListBox1.Items.Count > 0 then
     label1.Caption := IntToStr(ListBox1.Items.Count) +' Attribut(e) gefunden.'
     else
     label1.Caption := 'Kein(e) Attribut(e) gefunden.';
     Label1.Show;
     Panel2.Hide;
end;