Texte aus HTML-Seite aulesen

[Daniel]

Es ist ein wenig dahingeschlunzt, aber in Anbetracht der frühen Uhrzeit vielleicht ein akzeptabler Ausgangspunkt, der deutlich macht, wie man sowohl die Namen als auch die Preise ermitteln könnte.

Delphi-Quellcode:

uses
  System.RegularExpressions, System.RegularExpressionsCore;

procedure TForm1.DoFetchData;
var reg : TPerlRegEx;
begin
  /// die namen ermitteln
  reg:= TPerlRegEx.Create;
  reg.RegEx:= '<td class=preisfixing([\=\w\ ]+)>(\w+)</td>';
  reg.Subject:= memo1.Lines.Text;

  if reg.Match then
  begin
    memo2.Lines.Add( reg.Groups[2] );
    while reg.MatchAgain do
    begin
      memo2.Lines.Add( reg.Groups[2] );
    end;
  end;
  reg.Free;


  /// die preise ermitteln
  reg:= TPerlRegEx.Create;
  reg.RegEx:= '<td class=preisfixing([\=\w\ ]+)><b>([0-9\,]+)&nbsp;EUR / Liter&nbsp;</b></td>';
  reg.Subject:= memo1.Lines.Text;

  if reg.Match then
  begin
    memo2.Lines.Add( reg.Groups[2] );
    while reg.MatchAgain do
    begin
      memo2.Lines.Add( reg.Groups[2] );
    end;
  end;
  reg.Free;
end;