Beiträge von Rombur

  • Lottozahlen vergleichen

    Hallo

    ich möchte gern die aktuellen Lottozahlen downloaden,speichern und vergleichen.
    nach langen suchen hier im Forum und in der Hilfe bin ich soweit gekommen.

    zahlen laden,speichern - geht

    [autoit]


    #include <ie.au3>
    #include <Inet.au3>
    #Include <string.au3>
    #include <array.au3>

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $body = _INetGetSource ("http://www.lotto.de/gewinnzahlen_und_quoten.html")

    [/autoit][autoit][/autoit][autoit]

    $filewr = FileOpen(@ScriptDir & "\lotto.txt", 2)

    [/autoit][autoit][/autoit][autoit]

    $start = '<td height="32" class="zq17"><strong>'
    $end = '</strong></td>'

    [/autoit][autoit][/autoit][autoit]

    $stringb = _StringBetween($body,$start,$end)
    ;msgbox(0,"Gewinnzahlen",$stringb[0])

    [/autoit][autoit][/autoit][autoit]

    If IsArray( $stringb ) Then
    $stringb = $stringb[0]
    EndIf

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    FileWriteLine( $filewr, $stringb )

    [/autoit][autoit][/autoit][autoit]

    sleep(600)
    $body2 = _INetGetSource ("http://www.lotto.de/gewinnzahlen_und_quoten.html")

    [/autoit][autoit][/autoit][autoit]

    $filewr2 = FileOpen(@ScriptDir & "\lotto.txt", 1)

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $start2 = '<td class="zq17">ZZ: '
    $end2 = '&nbsp;&nbsp'
    $stringb2 = _StringBetween($body2,$start2,$end2)
    ;msgbox(0,"Gewinnzahlen",$stringb2[0])

    [/autoit][autoit][/autoit][autoit]

    If IsArray( $stringb2 ) Then
    $stringb2 = $stringb2[0]
    EndIf

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    FileWriteLine( $filewr2, $stringb2 )

    [/autoit]

    aber die zahlen vergleichen haut nicht hin,und ich weiß auch nicht so richtig wie das gehen soll
    hier mal ein versuch von mir (nicht lachen,Anfänger am Werk )


    [autoit]

    $file = FileOpen("lotto.txt", 0)
    $fileread = FileRead($file)
    FileClose ($file)

    [/autoit][autoit][/autoit][autoit]

    $search = "4" &"8" & "14" &"24" &"44" &"47"
    ;$search = "44,"
    $asplit = StringSplit($fileread, $search)
    MsgBox (0, "", "Anzahl von " & $search & " : " & $asplit[0] -1)

    [/autoit]

    ich würde mich freuen wenn mir einer helfen könnte.