Skrypt PHP, uzupełnia wyniki w grach "córkach" gry multilotek, rozdziela losowania ze względu na godziny losowania i wprowadza je do gier MULTI22 i MULTI14

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