[ISDN Anrufmonitor] - ISDN Sentinel

[Thanatos81]

Oder du/uhr speicherst die aufgerufene Seite in ner TStringList und nimmst diese hier

Delphi-Quellcode:

procedure parse11880(memo : TMemo; Info : TStringList);
var loesch,i : Integer;
begin
  loesch := 0;
  while pos('<td width="310px" valign="top">',Info.Text) <> 0 do
    begin
      repeat
        Info.Delete(loesch);
      until (trim(Info[loesch+1]) = '<td width="310px" valign="top">');
      Info.Delete(loesch+1);
      Info.Delete(loesch+2);
      inc(loesch,8);
    end;

  repeat
    Info.Delete(loesch);
  until Info.Count = loesch;

  Info.Text := stringReplace(Info.Text,'<span >','',[rfReplaceAll,rfIgnoreCase]);
  Info.Text := stringReplace(Info.Text,'</span>','',[rfReplaceAll,rfIgnoreCase]);
  Info.Text := stringReplace(Info.Text,'
','',[rfReplaceAll,rfIgnoreCase]);
  Info.Text := stringReplace(Info.Text,'
','',[rfReplaceAll,rfIgnoreCase]);
  Info.Text := stringReplace(Info.Text,'</td>','---------------',[rfReplaceAll,rfIgnoreCase]);

  memo.Lines.BeginUpdate;
  for i := 0 to Info.Count-1 do
    begin
      Info[i] := trim(Info[i]);
      if Info[i] <> ''
        then memo.Lines.Add(Info[i]);
    end;
  memo.Lines.EndUpdate;
end;

Hab heute ein kleines Programm geschrieben, quasi ein Mini-KlickTel mit 11880.com- und dasOertliche.de-Anbindung Ist zwar nicht sehr elegant gelöst, aber funktioniert. Problem wäre halt, wenn die ihr Seitenlayout ändern.