Lottozahlen vergleichen

Rombur

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">'
$end = '</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'
$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.

nuts

Wie sieht denn deine Lotto.txt aus?
Am einfachsten wäre es du befüllst mit den Zahlen der lotto.txt ein Array und noch ein Array mit deinen eigenen Zahlen.

Diese Arrays werden dann auf ihre Schnittmenge untersucht (gibts ne dazu UDF hier im Forum)

**UEZ**

Was heißt denn vergleichen? Willst du deine 6 Zahlen in den Ziehungen suchen? Oder was genau?

UEZ

Rombur

der Lotto.txt wird erstellt und sieht so aus(die zahlen werden geladen und in der Lotto.txt Datei gespeichert)

10, 12, 18, 24, 43, 44
22

Rombur

UEZ

ja ich will meine 6 Lottozahlen auf Übereinstimmung mit den gezogenen vergleichen.

Greek

[autoit]

$fileread = FileRead("lotto.txt")
If StringRegExp($fileread,"10.*?12.*?18.*?24.*?43.*?44") Then
MsgBox(0,"6 Richtige!", "Du hast 6 Richtige!!")
Else
MsgBox(0,"Falsch", "Vieleicht beim nächsten mal...")
EndIf

[/autoit]

Rombur

@

Greek

du hast auch 6 richtige bei mir danke dir !

**Andy**

....in einer GUI^^

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <Inet.au3>
#include <String.au3>
$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 = ''
$end = '</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]
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $stringb = ' & $stringb & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
EndIf

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

FileWriteLine($filewr, $stringb)

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

$Zahlen = StringSplit($stringb, ",", 3)
;_ArrayDisplay($Zahlen)
Dim $radio[50]

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

$gui = GUICreate('Lottozahlen')

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

$label1 = GUICtrlCreateLabel("Die aktuellen Lottozahlen sind: " & $stringb & @CRLF & "Bitte markieren Sie Ihre getippten Zahlen im unteren Feld:", 10, 10, 300, 70)
$label2 = GUICtrlCreateLabel("Sie haben 0 Richtige!", 10, 370, 300, 50)
For $x = 0 To 6
For $y = 1 To 7
$radio[$x * 7 + $y] = GUICtrlCreateCheckbox($x * 7 + $y, ($y - 1) * 40 + 10, $x * 40 + 60, 35, 35, $BS_pushlike)
Next
Next

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

GUISetState()
$anzahlrichtige = 0
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $radio[1] To $radio[49]
For $richtig In $Zahlen
If $msg - $radio[1] + 1 = $richtig Then
$anzahlrichtige += 1
GUICtrlSetData($label2, "Sie haben " & $anzahlrichtige & " Richtige!")
Sleep(100)
EndIf
Next
EndSwitch
WEnd
#EndRegion

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

;~ sleep(600)
;~ $body2 = _INetGetSource ("http://www.lotto.de/gewinnzahlen_und_quoten.html")
;~ ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $body2 = ' & $body2 & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

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

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

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

;~ $start2 = 'ZZ: '
;~ $end2 = ' '
;~ $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 )
;~ ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $stringb2 = ' & $stringb2 & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

[/autoit]

/*EDIT*/ gespoilert und noch eine Frage, wie kann man die "gedrückten" checkbox"buttons" farblich ändern?

Rombur

Andy
ich danke auch dir!

Rombur

Hallo

ich habe die gui von Andy etwas ausgebaut,jetzt kann man seine Spielzahlen eintragen und in eine ini Speichern.

Bild
[Blockierte Grafik: http://s11.directupload.net/file/d/1993/wek5xxro_jpg.htm] http://s11.directupload.net/file/d/1993/wek5xxro_jpg.htm

aber ich komme wieder nicht weiter,und zwar sollen die Zahlen verglichen werden wenn man auf den Button Pruefen klickt.

ich hoffe mir kann jemand helfen

code

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <Inet.au3>
#include <String.au3>
$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">'
$end = '</td>'

[/autoit] [autoit][/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]
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $stringb = ' & $stringb & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
EndIf

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

FileWriteLine($filewr, $stringb)

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

$Zahlen = StringSplit($stringb, ",", 3)
;_ArrayDisplay($Zahlen)
Dim $radio[50]

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

$gui = GUICreate('Lottozahlen', 310, 530, 193, 125)
$label = GUICtrlCreateLabel(" Die aktuellen Lottozahlen sind:", 75, 1, 200, 13)
$label1 = GUICtrlCreateInput("" & $stringb & "", 50, 16, 200, 20)
$label3 = GUICtrlCreateLabel("Bitte markieren Sie Ihre getippten Zahlen im unteren Feld:", 10, 37, 300, 13)
$label2 = GUICtrlCreateInput("Sie haben 0 Richtige!", 50, 340, 200, 20)
;$label4 = GUICtrlCreateLabel("Spiel1 = " & @CRLF & "Spiel2 = " & @CRLF & "Spiel3 = " & @CR=LF & "Spiel 4 = " & @CRLF & "Spiel5 = " & @CRLF & "Spiel6 = " & @CRLF & "Losnummer = ", 10, 370, 300, 120)
$Input = GUICtrlCreateInput("", 10, 370, 110, 20)
$Input1 = GUICtrlCreateInput("", 10, 395, 110, 20)
$Input2 = GUICtrlCreateInput("", 10, 420, 110, 20)
$Input3 = GUICtrlCreateInput("", 10, 445, 110, 20)
$Input4 = GUICtrlCreateInput("", 10, 470, 110, 20)
$Input5 = GUICtrlCreateInput("", 10, 495, 110, 20)

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

GUICtrlCreateLabel("1", 2, 372, 8, 13)
GUICtrlCreateLabel("2", 2, 397, 8, 13)
GUICtrlCreateLabel("3", 2, 422, 8, 13)
GUICtrlCreateLabel("4", 2, 447, 8, 13)
GUICtrlCreateLabel("5", 2, 472, 8, 13)
GUICtrlCreateLabel("6", 2, 497, 8, 13)

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

$Writebutton = GUICtrlCreateButton("Speichern", 130, 370, 55, 20, $WS_GROUP)
$Readbutton = GUICtrlCreateButton("Abrufen", 190, 370, 55, 20, $WS_GROUP)
$Pruefen = GUICtrlCreateButton("Pruefen", 250, 370, 55, 20, $WS_GROUP)

$Writebutton1 = GUICtrlCreateButton("Speichern", 130, 395, 55, 20, $WS_GROUP)
$Readbutton1 = GUICtrlCreateButton("Abrufen", 190, 395, 55, 20, $WS_GROUP)
$Pruefen1 = GUICtrlCreateButton("Pruefen", 250, 395, 55, 20, $WS_GROUP)

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

$Writebutton2 = GUICtrlCreateButton("Speichern", 130, 420, 55, 20, $WS_GROUP)
$Readbutton2 = GUICtrlCreateButton("Abrufen", 190, 420, 55, 20, $WS_GROUP)
$Pruefen2 = GUICtrlCreateButton("Pruefen", 250, 420, 55, 20, $WS_GROUP)

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

$Writebutton3 = GUICtrlCreateButton("Speichern", 130, 445, 55, 20, $WS_GROUP)
$Readbutton3 = GUICtrlCreateButton("Abrufen", 190, 445, 55, 20, $WS_GROUP)
$Pruefen3 = GUICtrlCreateButton("Pruefen", 250, 445, 55, 20, $WS_GROUP)

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

$Writebutton4 = GUICtrlCreateButton("Speichern", 130, 470, 55, 20, $WS_GROUP)
$Readbutton4 = GUICtrlCreateButton("Abrufen", 190, 470, 55, 20, $WS_GROUP)
$Pruefen4 = GUICtrlCreateButton("Pruefen", 250, 470, 55, 20, $WS_GROUP)

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

$Writebutton5 = GUICtrlCreateButton("Speichern", 130, 495, 55, 20, $WS_GROUP)
$Readbutton5 = GUICtrlCreateButton("Abrufen", 190, 495, 55, 20, $WS_GROUP)
$Pruefen5 = GUICtrlCreateButton("Pruefen", 250, 495, 55, 20, $WS_GROUP)

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

Func _Write($Datei, $section, $key, $value)
IniWrite($Datei, $section, $key, $value)
EndFunc

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

Func _Read($Datei, $section, $key, $deflaut)
$wert = IniRead($Datei, $section, $key, $deflaut)
Return $wert
EndFunc

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

For $x = 0 To 6
For $y = 1 To 7
$radio[$x * 7 + $y] = GUICtrlCreateCheckbox($x * 7 + $y, ($y - 1) * 40 + 20, $x * 40 + 60, 30, 30, $BS_pushlike)
Next
Next

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

GUISetState()
$anzahlrichtige = 0
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $radio[1] To $radio[49] ; <-----------
For $richtig In $Zahlen
If $msg - $radio[1] + 1 = $richtig Then
$anzahlrichtige += 1
GUICtrlSetData($label2, "Sie haben " & $anzahlrichtige & " Richtige!")
Sleep(100)

EndIf
Next
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

Case $Writebutton
$write = GUICtrlRead($Input)
_Write("Lotto.ini","1","",$write) ;schreibt in die .ini
Case $Readbutton
$Read = _read("Lotto.ini", "1", "", "")
GUICtrlSetData($Input, $Read)

Case $Writebutton1
$write = GUICtrlRead($Input1)
_Write("Lotto.ini","2","",$write)
Case $Readbutton1
$Read = _read("Lotto.ini", "2", "", "")
GUICtrlSetData($Input1, $Read)

Case $Writebutton2
$write = GUICtrlRead($Input2)
_Write("Lotto.ini","3","",$write)
Case $Readbutton2
$Read = _read("Lotto.ini", "3", "", "")
GUICtrlSetData($Input2, $Read)

Case $Writebutton3
$write = GUICtrlRead($Input3)
_Write("Lotto.ini","4","",$write)
Case $Readbutton3
$Read = _read("Lotto.ini", "4", "", "")
GUICtrlSetData($Input3, $Read)

Case $Writebutton4
$write = GUICtrlRead($Input4)
_Write("Lotto.ini","5","",$write)
Case $Readbutton4
$Read = _read("Lotto.ini", "5", "", "")
GUICtrlSetData($Input4, $Read)

Case $Writebutton5
$write = GUICtrlRead($Input5)
_Write("Lotto.ini","6","",$write)
Case $Readbutton5
$Read = _read("Lotto.ini", "6", "", "")
GUICtrlSetData($Input5, $Read)

EndSwitch
WEnd

[/autoit]

ini

Spoiler anzeigen

Code

[1]
=24 30 33 34 36 45
[2]
=12 14 15 16 17 18
[3]
=1 3 6 19 20 21  
[4]
=20 21 22 23 24  25
[5]
=32 33 34 35 36 37
[6]
=41 42 43 44 45 46

Alles anzeigen

**Andy**

Hallo,
wenn ich das jetzt richtig verstanden habe, dann möchtest du einen mehr oder weniger komplett ausgefüllten Lottoschein überprüfen?!

Dann könntest du die GUI so erweitern, daß du dem Spieler mehrere Auswahlmöglichkeiten gibst.
a) den Lottoschein ausfüllen (mittels Zahlenfeld) und die augefüllten Felder in eine INI schreiben.
b) automatische Auswertung, d.h.Vergleich der downgeloadeten Lottozahlen mit den Zahlen in der INI mit Anzeige der "Richtigen"

Btw. ich habe sogar ein AutoIt-Script, welches das automatische Auswerten der eingescannten ausgefüllten Lottoscheine erlauben würde! Allso den ausgefüllten Lottoschein einscannen, "Auswerten" drücken und tadaaaa, eine Sekunde später hat man die "Richtigen" in Textform, anschließendes Schreiben in eine Datenbank inclusive! Bei ernsthaftem Interesse bitte PM an mich....

Beispiel:

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <Inet.au3>
#include <String.au3>
$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">'
$end = '</td>'

[/autoit] [autoit][/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]
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $stringb = ' & $stringb & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
EndIf

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

FileWriteLine($filewr, $stringb)

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

$Zahlen = StringSplit($stringb, ",", 3)
;_ArrayDisplay($Zahlen)
Dim $radio[50]

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

$gui = GUICreate('Lottozahlen', 310, 530, 193, 125)
$label = GUICtrlCreateLabel(" Die aktuellen Lottozahlen sind:", 75, 1, 200, 13)
$label1 = GUICtrlCreateInput("" & $stringb & "", 50, 16, 200, 20)
$label3 = GUICtrlCreateLabel("Bitte markieren Sie 6 Zahlen als Ihren Tip!", 10, 37, 300, 13)

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

$Writebutton = GUICtrlCreateButton("Tip Speichern", 10, 370, 120, 30, $WS_GROUP)

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

$Pruefen = GUICtrlCreateButton("Lottoschein Prüfen", 180, 370, 120, 30, $WS_GROUP)

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

Func _Write($Datei, $section, $key, $value)
IniWrite($Datei, $section, $key, $value)
EndFunc ;==>_Write

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

Func _Read($Datei, $section, $key, $deflaut)
$wert = IniRead($Datei, $section, $key, $deflaut)
Return $wert
EndFunc ;==>_Read

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

For $x = 0 To 6
For $y = 1 To 7
$radio[$x * 7 + $y] = GUICtrlCreateCheckbox($x * 7 + $y, ($y - 1) * 40 + 20, $x * 40 + 60, 30, 30, $BS_pushlike)
Next
Next

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

GUISetState()
$anzahlrichtige = 0
While 1
$msg = GUIGetMsg()

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

Switch $msg
Case $GUI_EVENT_CLOSE
Exit
;~ Case $radio[1] To $radio[49] ; <-----------
;~ For $richtig In $Zahlen
;~ If $msg - $radio[1] + 1 = $richtig Then
;~ $anzahlrichtige += 1
;~ GUICtrlSetData($label2, "Sie haben " & $anzahlrichtige & " Richtige!")
;~ Sleep(100)

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

;~ EndIf
;~ Next
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

Case $Writebutton
$anzahltips=0
$getipptezahlen=""
for $i=1 to 49
if GUICtrlRead($radio[$i])=$gui_checked Then
$anzahltips+=1
$getipptezahlen&=string($i)&" "
endif
next
if $anzahltips=6 then
$write = InputBox("Tip speichern","In welches Feld auf dem Lottoschein soll Ihr Tip gespeichert werden?")
_Write("Lotto.ini", $write, $write,$getipptezahlen) ;schreibt in die .ini
Else
msgbox (0,"Fehler", "Bitte genau 6 Zahlen markieren!")
endif

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

Case $Pruefen
$auswertung = "" ;string für die Auswertung
$inidaten = IniReadSectionNames("lotto.ini") ;alle sectionnamen der ini auslesen
;_arraydisplay($inidaten)
For $feld = 1 To UBound($inidaten) - 1 ;alle sections durchlaufen
$inizahlen = IniReadSection("lotto.ini", $feld) ;alle Daten innerhalb der section in ein array
;_arraydisplay($inizahlen ,"Sektion: "&$feld)
$tip = StringSplit($inizahlen[1][1], " ") ;inhalt der zeile aufsplitten
$anzahlrichtige = 0
For $i = 1 To UBound($tip) - 1 ;alle Zahlen in der Section nacheinander durchgehen
For $richtig In $Zahlen ; alle downgeloadeten Zahlen mit dem Inhalt der aktuellen section vergleichen
ConsoleWrite($richtig & " " & $tip[$i] & @CRLF)
If Number($tip[$i]) = $richtig Then $anzahlrichtige += 1 ;wenn beide übereinstimmen, dann...
Next
Next
$auswertung &= "In Feld Nr." & $feld & " haben Sie " & $anzahlrichtige & " Richtige! Ihr Tip war: " & $inizahlen[1][1] & @CRLF ;auswertung schreiben
Next
MsgBox(0, "Ergebnisse:", $auswertung)
EndSwitch
WEnd

[/autoit]

Rombur

Hallo Andy

ich Danke dir für deine Hilfe,so wie das Script jetzt ist wollte ich es haben.

Und zu deinem anderen Programm,das ist ja richtig Genial!
Hätte nicht gedacht das dieses mit Autoit möglich ist.

Danke noch einmal

DerMaster01

Nach einigen Recherchen hier im Forum bin ich auf dieses Tool gestossen. Ich finde es sehr praktisch, leider ist die URL in dem Tool nicht mehr aktuell. Kann man eigentlich eine beliebige URL einfüge, wie z. B. http://www.lottovergleich.com/lottozahlen/