Novità

aggiornamento estrazioni lotto spaziometria 1.6.31

Talia

Advanced Member >PLATINUM PLUS<
Buongiorno
sto cercando di aggiornare le estrazioni lotto seguendo il percorso aggiornamento dal web.
Al momento non si aggiorna
La cosa è solo momentanea ?
grazie
 

bubù

Advanced Member >PLATINUM PLUS<
Buongiorno Mafalda, anche io stavo per fare la stessa domanda, spero che qualcuno ci risponda almeno non facciamo casini sull'archivio estrazioni. Io sarei tentato anche di aggiornarlo a mano ma non so come comportarmi sul buco creato dalle estrazioni non fatte, se crearle e riempiendo con tutti "00" o se lasciare tutto così e inserire solo l'ultima estrazione cioè quella di ieri sera .
Grazie a chi ci risponderà ??
 

toon

Advanced Member
Io ho inserito le estrazioni manualmente dal 24/03/2020, perchè il programma vede come errore la mancanza dei concorsi, ho inserito tutti zeri nelle estrazioni e per il momento mi va tutto bene.
Spero di essere stato d'aiuto.
Buona giornata a Tutti. (y) ;)
 

bubù

Advanced Member >PLATINUM PLUS<
Io ho inserito le estrazioni manualmente dal 24/03/2020, perchè il programma vede come errore la mancanza dei concorsi, ho inserito tutti zeri nelle estrazioni e per il momento mi va tutto bene.
Spero di essere stato d'aiuto.
Buona giornata a Tutti. (y) ;)
Grazie era quello che volevo fare anche io , ma preferisco aspettare che qualcuno dei creatori di questo spettacolare programma che ci regalano ci dia qualche risposta , onde evitare di combinare guai all'archivio (y) ?
 

Talia

Advanced Member >PLATINUM PLUS<
non credo da ignorante sia la soluzione corretta
mettiamo il caso che andiamo a verificare le ultime 40 estrazioni quelle tutte a 9 altererebbero la ricerca
no non va bene cosi

molti altri programmi che possiedo sono passati alla 05/05/2020 direttamente dalla 21/03 e credo sia più corretto cosi
 

Mike58

Advanced Member >PLATINUM PLUS<
Io vi suggerisco di aggiornare da Televideo con script in modo che le estrazioni siano consecutive non importa la data mancante.
Codice:
Sub Main()
   Dim sLink
   Dim sFileLocal
   Dim aRighe,aRigheTmp
   Dim aNumRuota(11,5)
   Dim nIdRuota
   Dim k,r
   Dim nRuoteLette
   Dim sData
   Dim sDataLastEstr
   Dim sTesto
   Dim nLastIndiceAnn,nNewIndiceAnn
   Dim sFileDati
   sFileDati = GetDirectoryAppData & "BaseDati.dat"
   Select Case ScegliEstrazione
   Case 0
      sLink = "http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=786&sottopagina=1"
   Case 1
      sLink = "http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=787&sottopagina=02"
   End Select
   nIdRuota = 0
   nRuoteLette = 0
   sDataLastEstr = DataEstrazione(EstrazioniArchivio,,,"/")
   nLastIndiceAnn = IndiceAnnuale(EstrazioniArchivio)
   sFileLocal = GetDirectoryAppData & "temp\Estrazione.htm"
   If DownloadFromWeb(sLink,sFileLocal) Then
      Call LeggiRigheFileDiTesto(sFileLocal,aRighe)
      For k = 0 To UBound(aRighe)
         If InStr(aRighe(k),"ESTRAZIONE DEL") Then
            aRigheTmp = Split(aRighe(k),vbLf)
            For r = 0 To UBound(aRigheTmp)
               nIdRuota = IdRigaRuota(aRigheTmp(r))
               If nIdRuota > 0 Then
                  If LeggiNumRuota(aRigheTmp(r),aNumRuota,nIdRuota) Then
                     nRuoteLette = nRuoteLette + 1
                  End If
               Else
                  If IsDate(Trim(aRigheTmp(r))) Then
                     sData = Trim(aRigheTmp(r))
                  End If
               End If
               If nRuoteLette = 11 Then Exit For
            Next
            Exit For
         End If
      Next
      If nRuoteLette = 11 Then
         If sData = sDataLastEstr Then
            MsgBox "Non ci sono estrazioni da scaricare",vbInformation
         Else
            sTesto = "Ultima estrazione presente " & FormattaStringa(sDataLastEstr,"Long Date") & vbCrLf
            sTesto = sTesto & "Estrazione scaricata " & FormattaStringa(sData,"Long Date") & vbCrLf & vbCrLf
            sTesto = sTesto & "Aggiungere l'estrazione del " & FormattaStringa(sData,"Long Date") & " ?" & vbCrLf & vbCrLf
            sTesto = sTesto & GetAnteprimaNumeri(aNumRuota)
            If MsgBox(sTesto,vbQuestion + vbYesNo) = vbYes Then
               If Year(sData) = Year(sDataLastEstr) Then
                  nNewIndiceAnn = nLastIndiceAnn + 1
               Else
                  nNewIndiceAnn = 1
               End If
               If SalvaEstrazione(aNumRuota,sData,nNewIndiceAnn,sFileDati) Then
                  MsgBox "Aggiornamento effettuato",vbInformation
               Else
                  MsgBox "Errore aggiornamento",vbCritical
               End If
            End If
         End If
      End If
   End If
   Scrivi "EstrazioneFine in Archivio : " &(sDataLastEstr),1
End Sub
Function IdRigaRuota(sRiga)
   Dim aRuote
   Dim k
   Dim nRet
   nRet = 0
   aRuote = Array("","Bari","Cagliari","Firenze","Genova","Milano","Napoli","Palermo","Roma","Torino","Venezia","Nazionale")
   For k = 1 To UBound(aRuote)
      If InStr(1,sRiga,aRuote(k),vbTextCompare) Then
         nRet = k
         Exit For
      End If
   Next
   IdRigaRuota = nRet
End Function
Function LeggiNumRuota(sRiga,aNumRuota,nIdRuota)
   Dim aV
   Dim k
   Dim nQNum
   nQNum = 0
   sRiga = Replace(sRiga,vbTab,"")
   sRiga = Trim(RiduciSpazi(sRiga))
   aV = Split(sRiga," ")
   If UBound(aV) = 5 Then
      For k = 1 To 5
         If IsNumeric(aV(k)) Then
            aNumRuota(nIdRuota,k) = aV(k)
            nQNum = nQNum + 1
         End If
      Next
      LeggiNumRuota =(nQNum = 5)
   Else
      LeggiNumRuota = False
   End If
End Function
Function RiduciSpazi(s)
   Dim sTmp
   sTmp = s
   Do While InStr(sTmp,"  ")
      sTmp = Replace(sTmp,"  "," ")
   Loop
   RiduciSpazi = sTmp
End Function
Function GetAnteprimaNumeri(aNumRuota)
   Dim r,e,sRet
   For r = 1 To 11
      sRet = sRet & NomeRuota(Iif(r <= 10,r,12)) & " "
      For e = 1 To 5
         sRet = sRet & FormatSpace(aNumRuota(r,e),2,True) & " "
      Next
      sRet = Trim(sRet) & vbCrLf
   Next
   GetAnteprimaNumeri = sRet
End Function
Function ScegliEstrazione
   Dim aVoci
   Dim r
   aVoci = Array("Ultima","Penultima")
   r = ScegliOpzioneMenu(aVoci,0,"Aggiornamento da televideo")
   ScegliEstrazione = r
End Function
Attenzione la barra potrebbe non risultare aggiornata ma basta spostarla per vederla aggiornta

 

bubù

Advanced Member >PLATINUM PLUS<
Se fate caso nell'archivio esistente di spaziometria esistono già le ruote con "00" , credo che questo serva per far girare correttamente il programma che altrimenti avrebbe difficolta a trovare l'estrazione numero 1 , 2 , 3 .... questo serve anche per gli eventuali script che lavorano con i numero dell'estrazione di partenza . Ovviamente io sono ignorante in materia e aspetto notizie ufficiali da chi ha più esperienza . Grazie
 

bubù

Advanced Member >PLATINUM PLUS<
Io vi suggerisco di aggiornare da Televideo con script in modo che le estrazioni siano consecutive non importa la data mancante.
Codice:
Sub Main()
   Dim sLink
   Dim sFileLocal
   Dim aRighe,aRigheTmp
   Dim aNumRuota(11,5)
   Dim nIdRuota
   Dim k,r
   Dim nRuoteLette
   Dim sData
   Dim sDataLastEstr
   Dim sTesto
   Dim nLastIndiceAnn,nNewIndiceAnn
   Dim sFileDati
   sFileDati = GetDirectoryAppData & "BaseDati.dat"
   Select Case ScegliEstrazione
   Case 0
      sLink = "http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=786&sottopagina=1"
   Case 1
      sLink = "http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=787&sottopagina=02"
   End Select
   nIdRuota = 0
   nRuoteLette = 0
   sDataLastEstr = DataEstrazione(EstrazioniArchivio,,,"/")
   nLastIndiceAnn = IndiceAnnuale(EstrazioniArchivio)
   sFileLocal = GetDirectoryAppData & "temp\Estrazione.htm"
   If DownloadFromWeb(sLink,sFileLocal) Then
      Call LeggiRigheFileDiTesto(sFileLocal,aRighe)
      For k = 0 To UBound(aRighe)
         If InStr(aRighe(k),"ESTRAZIONE DEL") Then
            aRigheTmp = Split(aRighe(k),vbLf)
            For r = 0 To UBound(aRigheTmp)
               nIdRuota = IdRigaRuota(aRigheTmp(r))
               If nIdRuota > 0 Then
                  If LeggiNumRuota(aRigheTmp(r),aNumRuota,nIdRuota) Then
                     nRuoteLette = nRuoteLette + 1
                  End If
               Else
                  If IsDate(Trim(aRigheTmp(r))) Then
                     sData = Trim(aRigheTmp(r))
                  End If
               End If
               If nRuoteLette = 11 Then Exit For
            Next
            Exit For
         End If
      Next
      If nRuoteLette = 11 Then
         If sData = sDataLastEstr Then
            MsgBox "Non ci sono estrazioni da scaricare",vbInformation
         Else
            sTesto = "Ultima estrazione presente " & FormattaStringa(sDataLastEstr,"Long Date") & vbCrLf
            sTesto = sTesto & "Estrazione scaricata " & FormattaStringa(sData,"Long Date") & vbCrLf & vbCrLf
            sTesto = sTesto & "Aggiungere l'estrazione del " & FormattaStringa(sData,"Long Date") & " ?" & vbCrLf & vbCrLf
            sTesto = sTesto & GetAnteprimaNumeri(aNumRuota)
            If MsgBox(sTesto,vbQuestion + vbYesNo) = vbYes Then
               If Year(sData) = Year(sDataLastEstr) Then
                  nNewIndiceAnn = nLastIndiceAnn + 1
               Else
                  nNewIndiceAnn = 1
               End If
               If SalvaEstrazione(aNumRuota,sData,nNewIndiceAnn,sFileDati) Then
                  MsgBox "Aggiornamento effettuato",vbInformation
               Else
                  MsgBox "Errore aggiornamento",vbCritical
               End If
            End If
         End If
      End If
   End If
   Scrivi "EstrazioneFine in Archivio : " &(sDataLastEstr),1
End Sub
Function IdRigaRuota(sRiga)
   Dim aRuote
   Dim k
   Dim nRet
   nRet = 0
   aRuote = Array("","Bari","Cagliari","Firenze","Genova","Milano","Napoli","Palermo","Roma","Torino","Venezia","Nazionale")
   For k = 1 To UBound(aRuote)
      If InStr(1,sRiga,aRuote(k),vbTextCompare) Then
         nRet = k
         Exit For
      End If
   Next
   IdRigaRuota = nRet
End Function
Function LeggiNumRuota(sRiga,aNumRuota,nIdRuota)
   Dim aV
   Dim k
   Dim nQNum
   nQNum = 0
   sRiga = Replace(sRiga,vbTab,"")
   sRiga = Trim(RiduciSpazi(sRiga))
   aV = Split(sRiga," ")
   If UBound(aV) = 5 Then
      For k = 1 To 5
         If IsNumeric(aV(k)) Then
            aNumRuota(nIdRuota,k) = aV(k)
            nQNum = nQNum + 1
         End If
      Next
      LeggiNumRuota =(nQNum = 5)
   Else
      LeggiNumRuota = False
   End If
End Function
Function RiduciSpazi(s)
   Dim sTmp
   sTmp = s
   Do While InStr(sTmp,"  ")
      sTmp = Replace(sTmp,"  "," ")
   Loop
   RiduciSpazi = sTmp
End Function
Function GetAnteprimaNumeri(aNumRuota)
   Dim r,e,sRet
   For r = 1 To 11
      sRet = sRet & NomeRuota(Iif(r <= 10,r,12)) & " "
      For e = 1 To 5
         sRet = sRet & FormatSpace(aNumRuota(r,e),2,True) & " "
      Next
      sRet = Trim(sRet) & vbCrLf
   Next
   GetAnteprimaNumeri = sRet
End Function
Function ScegliEstrazione
   Dim aVoci
   Dim r
   aVoci = Array("Ultima","Penultima")
   r = ScegliOpzioneMenu(aVoci,0,"Aggiornamento da televideo")
   ScegliEstrazione = r
End Function
Attenzione la barra potrebbe non risultare aggiornata ma basta spostarla per vederla aggiornta

Grazie , ma se ho uno script che prende per riferimento la prima estrazione del mese per elaborare eventuale previsione cosa succede nel mese di Aprile e Maggio dove la prima estrazione non c'è o meglio come legge l'estrazione del 5 maggio ???
 

Mike58

Advanced Member >PLATINUM PLUS<
Bubu, se devo dire la mia le estrazioni con Zero esistono perché ci sono Numeri in altre ruote e quindi INDICE estrazione valido.
Invece non esistono estrazioni con Zero a Tutte le 10 Ruote.
 

Mike58

Advanced Member >PLATINUM PLUS<
Grazie , ma se ho uno script che prende per riferimento la prima estrazione del mese per elaborare eventuale previsione cosa succede nel mese di Aprile e Maggio dove la prima estrazione non c'è o meglio come legge l'estrazione del 5 maggio ???

La risposta è nella Domanda.
Per maggio L'indice 1 è 5 maggio
per aprile al 21-3-2020 l'indice è l'ultimo.
Purtroppo il buco si è creato e bisogna accettarlo così.
Ciao
 

toon

Advanced Member
Magari mi sbaglio, anzi certamente, ma penso che cambiando il numero dei concorsi, saranno pregiudicati gli aggiornamenti automatici del programma tramite internet, perchè il concorso 36° non esiste, in realtà l'unico esatto è il 54°e facendo l'aggiornamento alla lottomatica non risulterà esatto.
Magari mi sbaglio, anzi lo spero.
 
Ultima modifica:

bubù

Advanced Member >PLATINUM PLUS<
Magari mi sbaglio, anzi certamente, ma penso che cambiando il numero dei concorsi, saranno pregiudicati gli aggiornamenti automatici del programma tramite internet, perchè il concorso 36° non esiste, in realtà l'unico esatto è il 45°e facendo l'aggiornamento alla lottomatica non risulterà esatto.
Magari mi sbaglio, anzi lo spero.
Forse volevi dire il 54 ??? io mi aggiorno con il sito del Monopolio di Stato che secondo me è quello ufficiale se non combaciano i numeri le eventuali vincite non vengono pagate. Questo è il link e guarda caso l'estrazione del 5 Maggio risulta la NR 54 che è giusta se inserite tutte le estrazioni anche quelle che non ci sono state . https://www.adm.gov.it/portale/monopoli/giochi/gioco-del-lotto/lotto_g
 

toon

Advanced Member
Esatto, mi sono corretto..Grazie
ovviamente lo sapevo, se ho correto le estrazioni, ogni tanto la dislessia si fa sentire, ho invertito.
(y) ;)
 

bubù

Advanced Member >PLATINUM PLUS<
Io vi suggerisco di aggiornare da Televideo con script in modo che le estrazioni siano consecutive non importa la data mancante.
Codice:
Sub Main()
   Dim sLink
   Dim sFileLocal
   Dim aRighe,aRigheTmp
   Dim aNumRuota(11,5)
   Dim nIdRuota
   Dim k,r
   Dim nRuoteLette
   Dim sData
   Dim sDataLastEstr
   Dim sTesto
   Dim nLastIndiceAnn,nNewIndiceAnn
   Dim sFileDati
   sFileDati = GetDirectoryAppData & "BaseDati.dat"
   Select Case ScegliEstrazione
   Case 0
      sLink = "http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=786&sottopagina=1"
   Case 1
      sLink = "http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=787&sottopagina=02"
   End Select
   nIdRuota = 0
   nRuoteLette = 0
   sDataLastEstr = DataEstrazione(EstrazioniArchivio,,,"/")
   nLastIndiceAnn = IndiceAnnuale(EstrazioniArchivio)
   sFileLocal = GetDirectoryAppData & "temp\Estrazione.htm"
   If DownloadFromWeb(sLink,sFileLocal) Then
      Call LeggiRigheFileDiTesto(sFileLocal,aRighe)
      For k = 0 To UBound(aRighe)
         If InStr(aRighe(k),"ESTRAZIONE DEL") Then
            aRigheTmp = Split(aRighe(k),vbLf)
            For r = 0 To UBound(aRigheTmp)
               nIdRuota = IdRigaRuota(aRigheTmp(r))
               If nIdRuota > 0 Then
                  If LeggiNumRuota(aRigheTmp(r),aNumRuota,nIdRuota) Then
                     nRuoteLette = nRuoteLette + 1
                  End If
               Else
                  If IsDate(Trim(aRigheTmp(r))) Then
                     sData = Trim(aRigheTmp(r))
                  End If
               End If
               If nRuoteLette = 11 Then Exit For
            Next
            Exit For
         End If
      Next
      If nRuoteLette = 11 Then
         If sData = sDataLastEstr Then
            MsgBox "Non ci sono estrazioni da scaricare",vbInformation
         Else
            sTesto = "Ultima estrazione presente " & FormattaStringa(sDataLastEstr,"Long Date") & vbCrLf
            sTesto = sTesto & "Estrazione scaricata " & FormattaStringa(sData,"Long Date") & vbCrLf & vbCrLf
            sTesto = sTesto & "Aggiungere l'estrazione del " & FormattaStringa(sData,"Long Date") & " ?" & vbCrLf & vbCrLf
            sTesto = sTesto & GetAnteprimaNumeri(aNumRuota)
            If MsgBox(sTesto,vbQuestion + vbYesNo) = vbYes Then
               If Year(sData) = Year(sDataLastEstr) Then
                  nNewIndiceAnn = nLastIndiceAnn + 1
               Else
                  nNewIndiceAnn = 1
               End If
               If SalvaEstrazione(aNumRuota,sData,nNewIndiceAnn,sFileDati) Then
                  MsgBox "Aggiornamento effettuato",vbInformation
               Else
                  MsgBox "Errore aggiornamento",vbCritical
               End If
            End If
         End If
      End If
   End If
   Scrivi "EstrazioneFine in Archivio : " &(sDataLastEstr),1
End Sub
Function IdRigaRuota(sRiga)
   Dim aRuote
   Dim k
   Dim nRet
   nRet = 0
   aRuote = Array("","Bari","Cagliari","Firenze","Genova","Milano","Napoli","Palermo","Roma","Torino","Venezia","Nazionale")
   For k = 1 To UBound(aRuote)
      If InStr(1,sRiga,aRuote(k),vbTextCompare) Then
         nRet = k
         Exit For
      End If
   Next
   IdRigaRuota = nRet
End Function
Function LeggiNumRuota(sRiga,aNumRuota,nIdRuota)
   Dim aV
   Dim k
   Dim nQNum
   nQNum = 0
   sRiga = Replace(sRiga,vbTab,"")
   sRiga = Trim(RiduciSpazi(sRiga))
   aV = Split(sRiga," ")
   If UBound(aV) = 5 Then
      For k = 1 To 5
         If IsNumeric(aV(k)) Then
            aNumRuota(nIdRuota,k) = aV(k)
            nQNum = nQNum + 1
         End If
      Next
      LeggiNumRuota =(nQNum = 5)
   Else
      LeggiNumRuota = False
   End If
End Function
Function RiduciSpazi(s)
   Dim sTmp
   sTmp = s
   Do While InStr(sTmp,"  ")
      sTmp = Replace(sTmp,"  "," ")
   Loop
   RiduciSpazi = sTmp
End Function
Function GetAnteprimaNumeri(aNumRuota)
   Dim r,e,sRet
   For r = 1 To 11
      sRet = sRet & NomeRuota(Iif(r <= 10,r,12)) & " "
      For e = 1 To 5
         sRet = sRet & FormatSpace(aNumRuota(r,e),2,True) & " "
      Next
      sRet = Trim(sRet) & vbCrLf
   Next
   GetAnteprimaNumeri = sRet
End Function
Function ScegliEstrazione
   Dim aVoci
   Dim r
   aVoci = Array("Ultima","Penultima")
   r = ScegliOpzioneMenu(aVoci,0,"Aggiornamento da televideo")
   ScegliEstrazione = r
End Function
Attenzione la barra potrebbe non risultare aggiornata ma basta spostarla per vederla aggiornta

io solitamente aggiorno con il sito ufficiale del monopolio di Stato https://www.adm.gov.it/portale/monopoli/giochi/gioco-del-lotto/lotto_g , se ci fai caso l'estrazione del 5 maggio è la NR 54 come se ha tenuto conto delle estrazioni non fatte . Quindi ho paura che se aggiorno l'estrazione come la numero 36 in seguito avrò problemi con l'archivio . Scusami se ti faccio perdere tempo, ma secondo me è importante la scelta che si fa oggi per far funzionare il programma correttamente . Ciao Buona giornata e grazie di tutto ? ?
 

toon

Advanced Member
Concordo pienamente, meglio perdere poco tempo ed aggiornare manualmente, per poi fare gli aggiornamenti come sempre. piuttosto che poi farli sempre tramite script.
;) (y)
 

Talia

Advanced Member >PLATINUM PLUS<
ho inserito ora l'estrazìone manualmente ho confermato e cosi mi sono ritrovata con la numerazione progressiva corretta
sulla voce aggionamento lotto
mi sono trovata aggiornata anche il plugin Arn che a me interessano
 

joe

Advanced Member >PLATINUM PLUS<
Il Lotto è fatto di convenzioni. Tutte possono essere ben accette o rifiutate.

A mio parere, la interpretazione data da Mike è corretta.

Mentre inserire degli zero ad aprile per le estrazioni mancanti è sbagliato.

Perché non ci sono state estrazioni.

Così pure non essendo stato possibile giocare, al pari, di come non ci sono state estrazioni,

non può e non deve "dare" la possibilità di stabilire e contare cambiamenti nei ritardi e nelle frequenze.

Cioè se si inseriscono delle estrazioni fittizie si aumenta artificiosamente il ritardo

e si diminuisce corrispondentemente le frequenze di tutte le formazioni possibili ed immaginabili.

Secondo me è lapalissianamente sbagliato.

Poi ... naturalmente ognuno farà come meglio crede.

:)
 

silop2005

Advanced Member >PLATINUM<
Ma strano io ho aggiornato adesso tutto regolare è passato dal21/3 al 5/5/2020
===================================
LOGOSILOP.gif
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9
======================
Ciao alien ,
======================
sicuramente, non hai avuto problemi perché hai aggiornato da Spaziometria
dal percorso :
Base Dati / Aggiornamenti Archivi da web / archivi silop
======================
questo perché poche ore fa ho aggiornato il "MIO" programma spaziometria
con lo script del bravo Mike58
e poi ho usato la utility di LuigiB per l'aggiornamento per "TUTTI" voi appassionati.
======================
x Joe : vedi la posta.
======================
Buona giornata a tutto il forum.
stickman.gif
======================
A presto
Silop ;) ;) ;)
 

bubù

Advanced Member >PLATINUM PLUS<
===================================
LOGOSILOP.gif
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9
======================
Ciao alien ,
======================
sicuramente, non hai avuto problemi perché hai aggiornato da Spaziometria
dal percorso :
Base Dati / Aggiornamenti Archivi da web / archivi silop
======================
questo perché poche ore fa ho aggiornato il "MIO" programma spaziometria
con lo script del bravo Mike58
e poi ho usato la utility di LuigiB per l'aggiornamento per "TUTTI" voi appassionati.
======================
x Joe : vedi la posta.
======================
Buona giornata a tutto il forum.
stickman.gif
======================
A presto
Silop ;) ;) ;)
Grazie ho provato prima ad aggiornare tramite archivi silop, sicuramente non era stato ancora aggiornato e allora ho deciso di aggiornare tutto a mano . Visto che ho oltre al fisso anche il pc portatile , in quello aggiorno tramite archivi Silop, ma so già che utilizzando gli stessi script ci saranno previsioni diversi , andando avanti vedremo chi darà più affidabilità e da giugno teoricamente dovrebbero azzerare le diversità tranne che per i ritardi e il numero delle estrazioni . grazie e buona serata ?
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto