Novità

Aggiornamento archivio lotto e superenalotto per SPAZIOMETRIA da spazio/web silop

Ciao Silop.

Oggi ho provato ad aggiornare Spaziometria,

con Windows Vista, dal tuo sito, con l'archivio in formato testo.

Mi ha scaricato l'archivio ed aggiunto correttamente l'estrazione del 2/5/2023.

Questa sera proverò anche con Win 10 ed anche qui come ho scritto recentemente

nei messaggi relativi all'aggiornamento ad L8 ... funziona a dovere. Aggiorna.

Per l'utilizzo di questa "ruota di scorta" ci vuole un briciolo di accortezza nell'utilizzo.

Anche se un pochino più lenta, alla fin fine questa procedura consiste nell'eseguire uno script.

:)
 
joe ha scritto:
Ciao Silop.

Oggi ho provato ad aggiornare Spaziometria,

con Windows Vista, dal tuo sito, con l'archivio in formato testo.

Mi ha scaricato l'archivio ed aggiunto correttamente l'estrazione del 2/5/2023.

Questa sera proverò anche con Win 10 ed anche qui come ho scritto recentemente

nei messaggi relativi all'aggiornamento ad L8 ... funziona a dovere. Aggiorna.

Per l'utilizzo di questa "ruota di scorta" ci vuole un briciolo di accortezza nell'utilizzo.

Anche se un pochino più lenta, alla fin fine questa procedura consiste nell'eseguire uno script.

:)
Clicca per espandere...
Grazie, joe illumina anche noi che non siamo all'altezza di voi maghi dei script 🙏
 
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 vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38
======================
Ciao Joe ,
======================
vedi la posta
======================
Buon mercoledì a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 
Ciao Bubù,

come detto, tempo fa con Silop avevamo predisposto e creato un archivio di scorta.

Silop lo ha mantenuto aggiornato sino ad oggi ed è ancora accessibile sul suo sito.

Dunque con uno script capace di leggerlo e di aggiornare Spaziometria ...

... in un paio di secondi ... il nostro Archivio del Lotto, si completa di tutte le estrazioni mancanti.

Immagine.png

:)
 
Per questo non riuscivo ad aggiornare, mi dispiace tanto, Silop.
Speriamo che tu possa ripristinarlo e con l'aiuto anche di Joe che possiamo riprendere ad aggiornare l'archivio
di Spaziometria.
 
joe ha scritto:
Ciao Bubù,

come detto, tempo fa con Silop avevamo predisposto e creato un archivio di scorta.

Silop lo ha mantenuto aggiornato sino ad oggi ed è ancora accessibile sul suo sito.

Dunque con uno script capace di leggerlo e di aggiornare Spaziometria ...

... in un paio di secondi ... il nostro Archivio del Lotto, si completa di tutte le estrazioni mancanti.

Vedi l'allegato 2258662

:)
Clicca per espandere...
Grazie joe, questo script è già fatto? se si può avere sarebbe perfetto. Personalmente non sono capace, mi limito a piccoli script per la maggior parte sommativi. Ciao e Buona giornata 👋
 
Cinzia27 ha scritto:
Per questo non riuscivo ad aggiornare, mi dispiace tanto, Silop.
Speriamo che tu possa ripristinarlo e con l'aiuto anche di Joe che possiamo riprendere ad aggiornare l'archivio
di Spaziometria.
Clicca per espandere...
Ciao Cinzia27, io per ora ho fatto l'aggiornamento a mano del Lotto , speriamo che qualcuno ci dia qualche aiuto. Ciao 👋
 
Buongiorno a tutte/i.

Questa sera, provo nuovamente lo script di cui vi ho scritto.

SE FUNZIONA CON WIN 10 ne inserisco una copia qui di seguito.

:)
 
Buona serata a tutte/i.

Questo script AGGIORNA L'ARCHIVIO LOTTO di Spaziometria.

Codice: 
Option Explicit
Sub Main
'Agg_Silop V.3.3 del 6/05/2023
'Script per Spaziometria By Joe.
   Dim sFileLoc
   Dim nEstrTot,sDataLastEstr,k,r,e
   Dim sDataEstr,nNumEstr,nSalvate
   Dim b
   Dim sFileBd
   Dim sLink
   Dim Ia,N,sVV,x
   Dim CfrData
   sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
   b = False : N = False
   nSalvate = 0
   sFileBd = GetDirectoryAppData & "BaseDati.dat"
   Scrivi sFileBd,1,,,2 : Scrivi 
   sFileLoc = GetDirectoryAppData & "ArcTlv\"
   Messaggio "Script By Joe"
   If CreaDirectory(sFileLoc) Then
      sFileLoc = sFileLoc & "Archivio.txt"
      If DownloadFromWeb(sLink,sFileLoc) Then
         nEstrTot = EstrazioniArchivio
         sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
         Ia = IndiceAnnuale(nEstrTot)
         ReDim aRighe(0)
         Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
         For k = 1 To UBound(aRighe)
            AvanzamentoElab 1,UBound(aRighe),k
            ReDim aV(0)
            If Len(aRighe(k)) = 118 Then
               sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4)
               sVV = Right(aRighe(k),110)
               If b Then
                  If N = False And(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0 : N = True
                  If Left(sDataEstr,4) <> Left(sDataLastEstr,4) Then
                     Ia = Ia + 1
                     nNumEstr =(Ia)
                     If nNumEstr > 0 And IsDate(sDataEstr) Then
                        ReDim aEstr(11,5)
                        r = 1 : e = 0
                        For x = 1 To 110 Step 2
                           e = e + 1
                           aEstr(r,e) = Mid(sVV,x,2)
                           If e = 5 Then r = r + 1 : e = 0
                        Next
                        If CfrData <> Left(sDataEstr,5) Then
                           If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                              CfrData = Left(sDataEstr,5)
                              nSalvate = nSalvate + 1
                           End If
                        Else
                           ColoreTesto 2
                           Scrivi "ATTENZIONE " & sDataEstr & " ERRORE NELLE DATE",True
                           ColoreTesto 0
                        End If
                     End If
                  End If
               End If
               If sDataEstr = sDataLastEstr Then b = True
            End If
         Next
         If nSalvate > 0 Then AllineaArchivi
      Else
         MsgBox "Errore download verificare il link con il browser"
      End If
      Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
      Call Scrivi("")
      Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
      Call Scrivi("")
      Call Scrivi("Sito Archivio " & Left(sLink,20))
      Call Scrivi("")
   End If
   Call Scrivi("Tempo Trascorso " & TempoTrascorso)
End Sub

:)
 
Ultima modifica:
Cinzia, ti ringrazio per la conferma.

Mi spiace, ma non ho mai avuto nessun interesse per altri giochi.

Non so come sia l'archivio, quanti siano i numeri, ecc, ecc,

Penso tuttavia che chi ha tempo e voglia, ha solo di adattare

tutti gli estratti e le stesse procedure alla struttura dell'archivio.

:)
 
joe ha scritto:
Buona serata a tutte/i.

Questo script AGGIORNA L'ARCHIVIO LOTTO di Spaziometria.

Codice: 
Option Explicit
Sub Main
'Agg_Silop V.3.2 del 02/05/2023
'Script per Spaziometria By Joe.
   Dim sFileLoc
   Dim nEstrTot,sDataLastEstr,k,r,e
   Dim sDataEstr,nNumEstr,nSalvate
   Dim b
   Dim sFileBd
   Dim sLink
   Dim Ia,N,sVV,x
   Dim CfrData
   sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
   b = False : N = False
   nSalvate = 0
   sFileBd = GetDirectoryAppData & "BaseDati.dat"
   sFileLoc = GetDirectoryAppData & "ArcTlv\"
   Messaggio "Script By Joe"
   If CreaDirectory(sFileLoc) Then
      sFileLoc = sFileLoc & "Archivio.txt"
      If DownloadFromWeb(sLink,sFileLoc) Then
         nEstrTot = EstrazioniArchivio
         sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
         Ia = IndiceAnnuale(nEstrTot)
         ReDim aRighe(0)
         Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
         For k = 1 To UBound(aRighe)
            AvanzamentoElab 1,UBound(aRighe),k
            ReDim aV(0)
            If Len(aRighe(k)) = 118 Then
               sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4)
               sVV = Right(aRighe(k),110)
               If b Then
                  If N = False And(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0 : N = True
                  If Left(sDataEstr,4) <> Left(sDataLastEstr,4) Then
                     Ia = Ia + 1
                     nNumEstr =(Ia)
                     If nNumEstr > 0 And IsDate(sDataEstr) Then
                        ReDim aEstr(11,5)
                        r = 1 : e = 0
                        For x = 1 To 110 Step 2
                           e = e + 1
                           aEstr(r,e) = Mid(sVV,x,2)
                           If e = 5 Then r = r + 1 : e = 0
                        Next
                        If CfrData <> Left(sDataEstr,5) Then
                           If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                              CfrData = Left(sDataEstr,5)
                              nSalvate = nSalvate + 1
                           End If
                        Else
                           ColoreTesto 2
                           Scrivi "ATTENZIONE " & sDataEstr & " ERRORE NELLE DATE",True
                           ColoreTesto 0
                        End If
                     End If
                  End If
               End If
               If sDataEstr = sDataLastEstr Then b = True
            End If
         Next
         If nSalvate > 0 Then AllineaArchivi
      Else
         MsgBox "Errore download verificare il link con il browser"
      End If
      Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
      Call Scrivi("")
      Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
      Call Scrivi("")
      Call Scrivi("Sito Archivio " & Left(sLink,20))
      Call Scrivi("")
   End If
   Call Scrivi("Tempo Trascorso " & TempoTrascorso)
End Sub

:)
Clicca per espandere...
==========================================
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 vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38
======================
AVVISO ,
======================
buone notizie
======================
con lo script di Joe [al post #154] è possibile aggiornare l'estrazione del lotto attuale prelevandola dal mio sito web silop,
che automaticamente aggiunge la nuova estrazione all'archivio : BaseDati.dat
sotto la directory di SPMT, l'ho provato e funziona benissimo
vedi immagine:
=====================
stickman.gif
lotto11.jpg
======================
Purtroppo, NON SARA' più possibile aggiornare con l'opzione
che si trova nel programma Spaziometria : "Aggiornamento da archivi web"
per i fatti esposti nei post precedenti.
======================
Unica raccomandazione per coloro che utilizzeranno lo script di Joe
e che dovranno adoperarlo DOPO LE ORE 21:00 / 21:30
perché ogni giorno dell'estrazione debbo aspettare che l'estrazione deve comparire nella pagina 786 del TELEVIDEO RAI
in modo che la posso mettere/caricare sul mio spazio web silop a DISPOSIZIONE DI TUTTI.
A volte la pagina del televideo la caricano con molto ritardo.
======================
Buon aggiornamento… grazie Joe
======================
Buon giovedì a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 
Ciao, Cinzia27

Purtroppo per il Superenalotto devi farlo manualmente, sono pochi numeri, puoi copiarli anche da lottoced

https://www.lottoced.com/ è la home del sito vai all'estrazione del Super...

e li copi

dal:

Base Dati
aggiornamentosuperenalotto
manuale

Come prima cosa scrivi numero estrazione e data e poi ti scrivi i numeri.

se trovo altro lo pubblico volentieri

L'ideale sarebbe trovare una soluzione unica anche con un unico script che prelevi i dati e poi li riporta sul programma ma quì è totalmente fuori dalla mia capacità.

Intanto questo metodo di Joe che ringrazio come sempre per il suo supporto aiuta molti ad aggiornare il lotto.
Ringrazio anche Silop che fino ad oggi e che continua, ha dato un ottimo supporto.

Poi come detto spero in una soluzione più completa che il programma merita in quanto lo ritengo in assoluto il miglior programma del lotto free mai visto e che offre davvero tanto a tutta la nostra fantasia... e non aggiornarlo sarebbe davvero un peccato.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 21 novembre 2024
    Bari
    06
    79
    30
    52
    15
    Cagliari
    03
    85
    61
    44
    25
    Firenze
    30
    76
    84
    34
    13
    Genova
    39
    63
    06
    50
    81
    Milano
    01
    34
    78
    86
    36
    Napoli
    63
    51
    82
    61
    07
    Palermo
    11
    66
    09
    59
    34
    Roma
    15
    26
    32
    38
    89
    Torino
    38
    43
    77
    33
    42
    Venezia
    76
    60
    78
    47
    31
    Nazionale
    85
    83
    79
    12
    51
    Estrazione Simbolotto
    Torino
    31
    38
    42
    06
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto