webbrowser zu langsam

[horst]

es oll doch nicht alles auf einmal durchsucht werden.
ich frage mich gerade nur ob es eine schnellere lösung gibt.
begründen tue ich es damit, dass ich programme gesehen habe die innerhalb kürzester zeit tausende von seiten indizieren um nach bestimmten informationen zu suchen/finden.
allerdings arbeiten diese programme mit threads, und davon habe ich überhaupt keine ahnung...
mit kürzester zeit meine ich z.b. einen tag

[Luckie]

Threads wäre in der Tat eine Lösung.

[Sprint]

Vielleicht ist deine Suchfunktion auch einfach zu langsam.

[horst]

mit threads ist bestimmt viel zu aufwendig, von der programmierung her.

und das meine suchfunktion zu langsam sein könnte ist auch möglich.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  s: string;
  ib, i: Integer;
  s1, s2: string;
  dir: string;
begin
  memo1.Clear;
  memo2.Clear;
  ib := 0;
  Memo1.Text := WebBrowser1.OleObject.Document.body.innerHTML;
  s2 := Memo1.Text;
  while pos('>(', s2) > 0 do
  begin
    while s1 <> '(hotel)</span>' do
    begin
      Inc(ib);
      s1 := copy(s2, pos('>(', s2) - 1 + ib, 1);
      if s1 = '<' then
        break;
      s := s + s1;
    end;
    memo2.lines.Add(s);
    s2 := copy(s2, pos('>(', s2) + Length(s), Length(Memo1.Text));
    s := '';
    s1 := '';
    ib := 0;
     for i := 0 to memo2.lines.count - 0 do begin
      if Pos('(hotel)', Memo2.Lines.Strings[i]) = 0 then
        Memo2.Lines.Delete(i);
    end;
  end;
   AppendOrWriteTextToFile(dir + 'logfile.txt', Memo2.Text);
end;

[moritz]

Empfehlung von mir: Threads ( Suchfunktion ) und reguläre Ausdrücke ( Suchfunktion )