PureBoard

Verfasst: **29.05.2008 09:17**

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

Verfasst: **29.05.2008 09:25**

Elektrolurch hat geschrieben: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

Verfasst: **29.05.2008 10:54**

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

Verfasst: **29.05.2008 11:45**

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).

Verfasst: **29.05.2008 13:51**

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*

Verfasst: **29.05.2008 14:12**

Falo hat geschrieben: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

Verfasst: **29.05.2008 14:21**

Kiffi hat geschrieben:
Falo hat geschrieben: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!

Verfasst: **29.05.2008 14:25**

Falo hat geschrieben: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

Verfasst: **29.05.2008 14:29**

Kiffi hat geschrieben:Offizieller wäre es IMHO beispielsweise hier:

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

Das schaut gut aus!

Verfasst: **29.05.2008 21:11**

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

PureBoard

Internetabfrage

Internetabfrage

Re: Internetabfrage