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

[Juri]

Ciao Juri,

Reacher ti ha messo una copia del suo Archivio, qui, al messaggio #879.

Prima cosa devi scaricarlo, per avere questa copia nella cartella del download, dove il file sarà archiviato nel tuo PC.

Rinomini questo file basedati.dat.txt togliendo: ".txt" diventa BaseDati.dat

A questo punto trascini questo file/archivio nella DirectoryData di Spaziometria.

Sovrascrivendo l'Archivio vuoto con quello scaricato dal web, il sistema operativo ti da un messaggio di avviso.

Confermi che vuoi procedere e naturalmente l'archivio sostituito con quello che ti ha dato Reacher.

Chiudi tutte le finestre ed i programi.

Quando ri-avvii Spaziometria dovresti avere l'archivio ripristinato.



PS: Ci sono ancora alcune considerazioni da aggiungere. Però prima è meglio che l 'archivio sia apposto.

Io ho fatto quanto dici ma fa uguale.Anche se metto: "BaseDati.dat " luii rimane documento di testo poi mette sempre gli altri che ho cancellato quando aggiorno le estrazioni.
Ho sbagliato qualcosa?
Grazie.

 

[Reacher]

Io ho fatto quanto dici ma fa uguale.Anche se metto: "BaseDati.dat " luii rimane documento di testo poi mette sempre gli altri che ho cancellato quando aggiorno le estrazioni.
Ho sbagliato qualcosa?
Grazie.

Allora ho capito cosa succede...
Nelle opzioni di visualizzazione cartelle di esplora risorse le estensioni dei file sono nascoste pertanto il fil file è dat ma non la vedi.
Prima di scaricare i file da qui devi abilitare la visualizzazione delle estensioni e poi rinomino eliminando estensione txt. E infine sposta e incolli nella cartella spaziometria

 

[Juri]

Allora ho capito cosa succede...
Nelle opzioni di visualizzazione cartelle di esplora risorse le estensioni dei file sono nascoste pertanto il fil file è dat ma non la vedi.
Prima di scaricare i file da qui devi abilitare la visualizzazione delle estensioni e poi rinomino eliminando estensione txt. E infine sposta e incolli nella cartella spaziometria

L'estensione è giusta stavolta ma sballa sempre.Forse c'è da fare la cosa che diceva prima ancora?
Grazie.

 

[Reacher]

Disinstalla tutto
Installa di nuovo e fai scaricare i suoi aggiornamenti
Poi vai a sostituire l ultimo file BaseDati.dat preso da qui
Poi di questo non so che dirti perché non so cosa succede sul tuo pc

 

[joe]

Juri, quello che scrivi non è compatibile con la realtà dei fatti.

Quando hai cancellato BaseDati.dat ...

Spaziometria ha ricotruito quel file anche se vuoto.

BaseDati.dat scaricato (con FTP) dal sito di Silop ti arriva come file.dat.

Al messaggio 845 c'è una immagine con indirizzo del Sito e indicazioni del link.

Quindi il download non è testo e non deve essere rinominato.

Basta trasferirlo dalla cartella dei download del browser

nella DirectoryDati di Spaziometria.

Però se questa procedura non ti riesce ho già pubblicato qui,

uno script capace di generare tutto l'archiovio.

 

[Lottopython]

mi sorge un dubbio,
buonasera
provare non costa nulla
puoi dirci aprendo il programma spaziometria cosa vedi dove è indicato con la freccia,nel caso fosse rosso , clicca sopra è il filtro estrazioni è necessario selezionare tutto.in quel caso diventerà verde e il tuo archivio perfettamente in linea

 

[joe]

In sintesi le 2 Fasi di ripristino sono queste :

* Cancellare BaseDati.dat nella DirectoryDati di Spaziometria.

* Riaprire il Programma Spaziometria (con archivio azzerato) ... eseguire questo Script.

(Richiede qualche minuto di elaborazione)

NB : MANCHERANNO ALCUNE ESTRAZIONI (tra quelle più recenti) .

L'importante è che, al termine, ci sia un buon archivio di oltre 10mila estrazioni.

Per avere quelle ultime e mancanti ci vuole un altro script, molto simile,

ma che si riferisce ad un archivio più aggiornato (quello di LottoPython).

Option Explicit
Sub Main
   'Agg_Lotto V.4.3 By Joe *** Archivio Silop ***  - 07/08/2025 -
   '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
   Dim Vecchio,Nuovo
   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 "Agg_Lotto V.4.3 By Joe *** Archivio Silop ***"
   If CreaDirectory(sFileLoc) Then
      sFileLoc = sFileLoc & "Archivio.txt"
      If DownloadFromWeb(sLink,sFileLoc) Then
         nEstrTot = EstrazioniArchivio
         sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
         Vecchio = Right(sDataLastEstr,4)
         Ia = IndiceAnnuale(nEstrTot)
         If nEstrTot = 0 Then CfrData = "01/01/1871" : b = True : Ia = 0
         ReDim aRighe(0)
         Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
         For k = 0 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)
               Nuovo = Right(sDataEstr,4)
               If b Then
                  If Nuovo <> Vecchio Then Ia = 0 : Vecchio = Nuovo
                  If sDataEstr <> sDataLastEstr 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 <> sDataEstr Then
                           If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                              CfrData = sDataEstr
                              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("Agg_Lotto V.4.3 By Joe *** Archivio Silop ***",1)
      Call Scrivi("")
      Call Scrivi("Estrazioni totali in Archivio " & QuantitaEstrazioniInFile(sFileBd))
      Call Scrivi("")
      Call Scrivi("Aggiornato all' Estrazione " & IndiceAnnuale(EstrazioniArchivio) & " del " & DataEstrazione(EstrazioneFin,,,"/"))
      Call Scrivi("")
      Call Scrivi(" - Aggiunte " & nSalvate & " Estrazioni -",1)
      Call Scrivi("")
      Call Scrivi("Sito Archivio " & Left(sLink,20))
      Call Scrivi("")
   End If
End Sub