Skrypt pobiera wyniki z gry "multi-multi", rozdziela je ze wzgledu na godzine
losowania i wprowadza je do odpowiednich gier.
W programie Lottocad
- otwórz z menu "Skrypty PHP">>> "Skrypty PHP Edytor".
- utwórz nowy plik w edytorze kliknij przycisk "Nowy"
- skopiuj z tego postu kod skryptu
- wklej go w edytor
- zapisz skrypt pod dowolną nazwę jako plik "nazwa.php"
- uruchom plik w edytorze przyciskiem "PHP" [lub klawiszem F9]
- komunikaty o wykonaniu zobaczysz w polu tekstowym "zakłady" lub polu "wyniki"
<?php
error_reporting(5);
$src_tbname = "multi-multi";
$d22_tbname = "MULTI_22";
$d14_tbname = "MULTI_14";
// pytamy bazę MULTI_22 o id i datę ostatniego losowania w bazie
$sql="Select max(Date) as maxdate, max(ID) as maxid from MULTI_22;";
$wynik22=delphi_exec_sql($sql);
echo "Ostatnie losowanie zapisane w tabeli $d22_tbname ma id= {$wynik22[0]['maxid']} jest z dnia {$wynik22[0]['maxdate']}\n";
// pytamy bazę MULTI_14 o id i datę ostatniego losowania w bazie
$sql="Select max(Date) as maxdate, max(ID) as maxid from MULTI_14;";
$wynik14=delphi_exec_sql($sql);
echo "Ostatnie losowanie zapisane w tabeli $d14_tbname ma id= {$wynik14[0]['maxid']} jest z dnia {$wynik14[0]['maxdate']}\n";
$dta = $wynik22[0]["maxdate"]." 23:59:59";
$sql = "Select * from multi_multi where \"Date\">'$dta'";
//echo "Dla tabeli: $d22_tbname ",$sql,"\n";
$wynik2222=delphi_exec_sql($sql);
//echo "Dla tabeli: $d22_tbname count= ",count($wynik2222),"\n";
//print_r($wynik2222);
// filtrujemy
$pass=0;
foreach ($wynik2222 as $id=>$rec) {
$pos = strpos($rec['Date'], "21",9);
echo $pos;
if ($pos>10) {
$w=delphi_exec_sql(create_insert_query($d22_tbname,$rec));
if ($w) {
echo "do tabeli $d22_tbname dodano $w losowanie z dnia {$rec["Date"]}\n";
$pass+=1;
}
}
}
if ($pass==0) echo "Nie ma jeszcze nowych wyników dla teabeli $d22_tbname\n";
$dtb = $wynik14[0]["maxdate"]." 23:59:59";
$sql = "Select * from multi_multi where \"Date\">'$dtb'";
//echo "Dla tabeli: $d14_tbname ",$sql,"\n";
$wynik1414=delphi_exec_sql($sql);
//echo print_r($wynik1414,true);
//echo "Dla tabeli: $d14_tbname count= ",count($wynik414),"\n";
// filtrujemy
$pass=0;
foreach ($wynik1414 as $id=>$rec) {
$pos = strpos($rec['Date'], "14",9);
//echo $pos;
if ($pos>10) {
$w=delphi_exec_sql(create_insert_query($d14_tbname,$rec));
if ($w) {
echo "do tabeli $d14_tbname dodano $w losowanie z dnia {$rec["Date"]}\n";
$pass+=1;
}
}
}
if ($pass==0) echo "Nie ma jeszcze nowych wyników dla teabeli $d14_tbname\n";
function create_insert_query($tablename, $array) {
//$array['RecordID']='NULL';
$key = array_keys($array);
$val = array_values($array);
$val[0]='NULL';
$val[2]="'".substr($val[2],0,10)."'";
//sanitation needed!
$query = "INSERT INTO $tablename (" . implode(', ', $key) . ") "
. "VALUES (" . implode(", ", $val) . ")";
return($query);
}
Powodzenia