Text aus Website

[machstuhl]

Delphi-Quellcode:

var
    RegExStr : String; // Suchbegriff
    RegEx : TRegEx;
    MatchCollection : TMatchCollection; //Speichert die gefundenen Matches
    i: Integer;
    HTTP : TIdHTTP;
    quelltext: String;
    temp_date : TDate;
begin
  //  Quelltext der Lottoseite lesen
  HTTP := TIdHTTP.Create(nil);
  try
    with HTTP do
      begin
        HandleRedirects := True;
        Request.ContentLength := -1;
        Request.Accept := 'text/html,*/*';
        HTTPOptions := [hoForceEncodeParams];
      end;

  temp_date := StrToDate(Datum);
  Datum := FormatDateTime('dd.mm.yyyy',temp_date);
  //ShowMessage(Datum);
  quelltext := HTTP.Get('http://www.sachsenlotto.de/mskp/user/lottoresults/lottoresultsshow.do?ziehungsDatum='+Datum+'#');

  except
    on E:exception do ShowMEssage(e.Message);

  end;
  FreeAndNil(HTTP);

  // Mummer 1 bis 6 bekommen und speichern
  RegExStr := '<span class="lottonumberbig">(\d*)</span>';
  RegEx := TRegEx.Create(RegExStr,[roSingleLine,roIgnoreCase]);
  MatchCollection := RegEx.Matches(quelltext);

mit diesem code lese ich die sich die lottozahlen für ein bestimmtes datum aus.
den code habe ich ursprünglich von einem anderen user der delphi-praxis.

ich denke mit den regular expressions könntest du bei deinem problem weiterkommen.