Kicktipp Bundesliga 2016/2017 Wetttippen! Jetzt mitmachen :)

;Code für Rainer_Zufall KickTipp Account build 2017-05-10 by UEZ
#include <Array.au3>


Global Const $sHTML = BinaryToString(InetRead("http://www.wettfreunde.net/bundesliga-quoten"))
;~ ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sHTML = ' & $sHTML & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console


Global $iSpieltag = StringRegExp($sHTML, "<h4>Bundesliga Spieltag\h+(\d*?)\h+.+[von|am]+.+", 3)[0]
Global $aSpiele = StringRegExp($sHTML, '.+td colspan="\d*".+;">(.+)<\/span', 3)
;~ _ArrayDisplay($aSpiele)
If UBound($aSpiele) <> 9 Then Exit ConsoleWrite("Alle Spiele konnten nicht gefunden werden!" & @CRLF)


Global $aQuoten = StringRegExp($sHTML, '.+td style.+strong\>(.+)<\/strong', 3)
;~ _ArrayDisplay($aQuoten)
;~ If UBound($aQuoten) <> 135 Then Exit ConsoleWrite("Alle Quoten konnten nicht gefunden werden!" & @CRLF)
Global $aResultat[9][5]
For $i = 0 To 8
	$aResultat[$i][0] = StringReplace($aSpiele[$i], "–", "-")
	$aResultat[$i][0] = StringReplace($aResultat[$i][0], "ü", "ü")
	$aResultat[$i][0] = StringReplace($aResultat[$i][0], "ö", "ö")
Next


$k = 0
For $i = 0 To UBound($aQuoten) - 1 Step UBound($aQuoten) / 9


	;Sieg Heim
	$fDurchschnitt = 0
	For $j = 0 to UBound($aQuoten) / 27 - 1
		$fDurchschnitt += StringReplace($aQuoten[$i + $j], ",", ".")
	Next
	$aResultat[$k][1] = StringFormat("%.2f", Round($fDurchschnitt / (UBound($aQuoten) / 27), 2))


	;Unentschieden
	$fDurchschnitt = 0
	For $j = 0 to UBound($aQuoten) / 27 - 1
		$fDurchschnitt += StringReplace($aQuoten[5 + $i + $j], ",", ".")
	Next
	$aResultat[$k][2] = StringFormat("%.2f", Round($fDurchschnitt / (UBound($aQuoten) / 27), 2))


	;Niederlage Heim
	$fDurchschnitt = 0
	For $j = 0 to UBound($aQuoten) / 27 - 1
		$fDurchschnitt += StringReplace($aQuoten[10 + $i + $j], ",", ".")
	Next
	$aResultat[$k][3] = StringFormat("%.2f", Round($fDurchschnitt / (UBound($aQuoten) / 27), 2))


	$aResultat[$k][4] = Rainer_Zufall($aResultat[$k][1], $aResultat[$k][2], $aResultat[$k][3])
	$k += 1
Next


_ArrayDisplay($aResultat, "Bundesliga Spieltag " & $iSpieltag, "", 0, "|", "Spiel|Sieg Heim|Unentschieden|Niederlage Heim|Rnd Tipp")


Func Rainer_Zufall($fS, $fU, $fN)
	Local $aUnentschieden[21] = ["0:0", "0:0", "0:0", "0:0", "0:0", "0:0", _
								 "1:1", "1:1", "1:1", "1:1", "1:1", _
								 "2:2", "2:2", "2:2", "2:2", _
								 "3:3", "3:3", "3:3", _
								 "4:4", "4:4", _
								 "5:5"]
	Local $iS = Round($fS * 10, 0), $iU = Round($fU * 10, 0), $iN = Round($fN * 10, 0)
	Local Const $iMax = $iS + $iU + $iN
	Local $aTabelle [$iMax], $z = 0


	For $i = 1 To 10
		_ArrayShuffle($aUnentschieden)
	Next
	Local Const $iMaxTore = 5
	Local $iH, $iA
	Do
		Switch $z
			Case 0 To $iS - 1 ;Quote Sieg Heimmannschaft
				Do
					$iH = Random(0, Random(1, $iMaxTore, 1), 1)
					$iA = Random(0, Random(1, $iMaxTore, 1), 1)
				Until $iA > $iH ;umgekehrte Tore generieren, da Quote die Niedgriste ist
				$aTabelle[$z] = $iH & ":" & $iA
			Case $iS to $iU - 1
				$aTabelle[$z] = $aUnentschieden[Random(0, 18, 1)]
			Case Else
			 Do
				$iH = Random(0, Random(1, $iMaxTore, 1), 1)
				$iA = Random(0, Random(1, $iMaxTore, 1), 1)
			 Until $iH > $iA ;umgekehrte Tore generieren, da Quote die Höchste ist
			 $aTabelle[$z] = $iH & ":" & $iA
		EndSwitch
		$z += 1
	Until $z = $iMax
;~ 	_ArrayDisplay($aTabelle)
	For $i = 1 To 10
		_ArrayShuffle($aTabelle)
	Next
	Return $aTabelle[Random(0, UBound($aTabelle) - 1, 1)]
EndFunc