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.