Problema archivio lotto

[Cinzia27]

Ciao a tutti.
Ho fatto girare alcuni script già presenti di default in Spaziometria per capire cosa facessero e all'improvviso qualcosa non funzionava
anche in quelli più recenti e prima funzionanti.
Così mi sono accorta che avevo l'archivio a zero.
Quindi ho fatto



Ma non ho più l'archivio che parte dall'08/01/1871 bensì dal 14/01/1939.
Cosa posso fare per ripristinarlo dall'inizio?
Se può essere utile ho guardato in questa cartella

e poi

e il file archivio sembra iniziare da quella giusta, cioè dal 1871
0701187100000000000000000000157118648100000000006369560955362273243172588677144233201879020963270429523180070000000000

Grazie a chi mi risponderà.

 

[joe]

Ciao Cinzia.

L' aggiornamento per sostituzione dell' archivio comporta il rischio di importarne uno corrotto,

o vuoto, o anche che, quello esistente sia cancellato, per fare spazio a quello più nuovo che poi non c'è "tutto".

Dunque è preferibile aggiornare piuttosto che sostituire.

Ma nell'aggiornamento vengono solo aggiunte le ultime estrazioni mancanti.

Quelle al fondo DOPO la ultima presente in archivio.

Cio' premesso se hai l'archivio mezzo cancellato nella prima parte puoi cancellarlo tutto

e dopo utilizzare il mio script per aggiornare.

Nella versione 4.3 è in grado di importare tutto dal 1871 ad oggi e lo trovi a questo indirizzo al primo messaggio:

Aggiornamento Archivio Lotto di Spaziometria / Silop

 

[Cinzia27]

Ciao, Joe.
Grazie innanzitutto per la risposta. io uso il tuo script che vedi sotto per aggiornare, quando mi serve aggiornare subito
e funziona a meraviglia.
Con l'aggiornamento da web di solito bisogna aspettare.
Ma l'estrazione di partenza resta la 14/01/1939.
Ho provato quello da te indicato nel link. Purtroppo la situazione non cambia.
Le estrazioni sono 7190,tante quante sono quelle dal 14/01/1939.

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

 

[joe]

Prima di eseguire quello script devi cancellare l'archivio BaseDati.dat.

In alternativa ti ho inviato privatamente uno script che stavo sperimentando.

 

[Cinzia27]

Grazie, Joe.
Mi hai risolto il problema.

 

[Cinzia27]

Joe, hai posta.