Internetabfrage

[Elektrolurch]

Hi all

Ich habe gerade mal eine Schnapsidee.

Wäre es eigentlich möglich mit Purebasic aus dem Internet die aktuellen Lottozahlen zu holen und per Email das ausgewertete Ergebnis zu verschicken?

Bye Andre

[Kiffi]

Wäre es eigentlich möglich mit Purebasic aus dem Internet die aktuellen Lottozahlen zu holen und per Email das ausgewertete Ergebnis zu verschicken?

ja, das ist möglich.

Grüße ... Kiffi

[STARGÅTE]

das habe ich sogar schon mal in einer anderen Saceh gebraucht, indem ich die Archive der Lottozahlen runtergeladen habe, und dann die Quoten in abhängigkeit der Gezogenen Zahlen ausgewertet.

Einfach mit den PB-Befehlen, die jeweilige Seite runteraden/in Speicher laden und dann nach bestimmten "Wörtern" suchen um dann an die Zahlen zu kommen.
Dann kannst du damit was machen, und danach per PB-Mail verschicken

[rolaf]

Hallo,

das folgende Archiv
https://www.lotto-bayern.de/pfe/static/ ... _lotto.zip
erhält regelmäßig die komplette Datenbank. Download am besten Dienstag und Freitag, dann ist die letzte Zeihung meist schon drin. Ich nutze die Datenquelle jetzt schon ca. 2 Jahre für ein automatisches Daten-Update meines TippGenerator.

Für noch aktuellere Daten müßtest du die Lottoseite
http://www.lotto.de/lotto_6aus49_aktuell.html
herunterladen (meist 1 Stunde nach der Ziehung) und die Zahlen "ausklabüstern" (herausfiltern).

[gekkonier]

Ich bin mir bewusst, dass das jetzt keiner von euch hören will, ich muss es aber trotzdem loswerden:

Die Wahrscheinlichkeit dass gewisse Zahlen beim Lotto gezogen werden sind IMMER gleich hoch Egal wie oft schon etwas gezogen wurde oder nicht gezogen wurde *g*

[Kiffi]

und die Zahlen "ausklabüstern" (herausfiltern).

dann doch schon lieber ein Lotto-RSS (z.B. http://www.mr-lotto.net/rss.php)
laden. Das kann man wenigstens anständig parsen.

Grüße ... Kiffi

[rolaf]

und die Zahlen "ausklabüstern" (herausfiltern).

dann doch schon lieber ein Lotto-RSS (z.B. http://www.mr-lotto.net/rss.php)
laden. Das kann man wenigstens anständig parsen.

Grüße ... Kiffi

Tja, bleibt nur die Frage ob MrLotto auch so zuverlässig und aktuell ist wie die offiziellen lotto.de ler.

Und so schlimm ist es nicht zu klabüstern. Suchst du immer
img src="static/pics/homepage/zahlen/
und danach folgt eine Lottozahl. Das wars!

[Kiffi]

Tja, bleibt nur die Frage ob MrLotto auch so zuverlässig und aktuell ist wie die offiziellen lotto.de ler.

tscha, das ist mir natürlich auch nicht bekannt.

Offizieller wäre es IMHO beispielsweise hier:

http://ergebnisse.westlotto.com/wlinfo/ ... lart=LOTTO

Grüße ... Kiffi

[rolaf]

Offizieller wäre es IMHO beispielsweise hier:

http://ergebnisse.westlotto.com/wlinfo/ ... lart=LOTTO

Das schaut gut aus!

[Elektrolurch]

Hi all

Danke für eure Unterstützung.
Es ist tatsächlich einfacher als gedacht.

Hab mal eben was zusammengestrickt und es funktioniert sogar

Code: Alles auswählen

Procedure.s OpenURL(Url.s, OpenType.b) 
  isLoop.b=1 
  INET_RELOAD.l=$80000000 
  hInet.l=0: hURL.l=0: Bytes.l=0 
  Buffer.s=Space(2048) 
  
  hInet = InternetOpen_("PB@INET", OpenType, #Null, #Null, 0) 
  hURL = InternetOpenUrl_(hInet, Url, #Null, 0, INET_RELOAD, 0) 
  
  Repeat 
    
    Delay(1) 
    InternetReadFile_(hURL, @Buffer, Len(Buffer), @Bytes) 
    If Bytes = 0 
      isLoop=0 
    Else 
      res.s = res + Left(Buffer, Bytes) 
    EndIf 
  Until isLoop=0 
  InternetCloseHandle_(hURL) 
  InternetCloseHandle_(hInet) 
  ProcedureReturn res 
EndProcedure 
Mask$="08:" 
Dim Zahl.l(7)
N = 1
Url$ = "http://ergebnisse.westlotto.com/wlinfo/WL_InfoService?client=frss&gruppe=Gewinnzahlen&spielart=LOTTO" 
Html$ =  OpenURL(Url$,1) ;<< Always the second parameter is 1 
For i = 1 To Len(Html$)
    If Mid(Html$,i,3)=Mask$
        For a = i To Len(Html$)
            If Mid(Html$,a,1) = ","
            Zahl(N) = Val(Mid(Html$,a-2,2))
            N.l= N.l +1
            ElseIf Mid(Html$,a,1) = "Z"
            Zahl(N) = Val(Mid(Html$,a-3,2))
            N.l= N.l +1
            Zahl(N) =  Val(Mid(Html$,a+3,2))
            N.l= N.l +1
            Else
            EndIf 
        Next
    EndIf
If N.l= 8
For i = 1 To 7
Debug "Zahl " + Str(i) + " :" + Str(Zahl(i)) 
Next
End
EndIf
Next

Am Wochenende werde ich mal schauen ob ich den Rest auch noch hinbekomme.


Bye Andre