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;