Due domande su archivio spaziometria

[fillott0]

siccome mi sono accorto che nell'archivio in mio possesso di spaziometria manca un'estrazione precisamente quella del 9/4/26 , che invece trovo su un archivio in excel vi chiedo : Quale numero portare come ultima estrazione in spazio (quella del 30/4/26)? Io porto 10847 progressivo annuo 68 . Come rimediare ?Attualmente io aggiorno con questo script.......
Option Explicit
Sub Main
'Agg_Lotto V.4.3 By Joe *** Archivio LottoPython *** - 08/02/2026 -
'Script per Spaziometria By Joe.
Dim sFileLoc
Dim nEstrTot,sDataLastEstr,k,r
Dim sDataEstr,nNumEstr,nSalvate
Dim b
Dim sFileBd
Dim sLink
Dim Ia,N,sVV,x
Dim CfrData
Dim Vecchio,Nuovo
Dim V
Dim E
sLink = "https://raw.githubusercontent.com/Lottopython/exstrazionales/refs/heads/main/Estrazionales lotto.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 LottoPython ***"
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) Step 12
AvanzamentoElab 1,UBound(aRighe),k
ReDim aV(0)
If Len(aRighe(k)) = 53 Then
sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),4,2) & "/" & Mid(aRighe(k),7,4)
ReDim aEstr(11,5)
For r = 0 To 10
sVV = Right(aRighe(k + r),27)
V = Split(sVV," ") '4 Spazi
For x = 0 To 4
aEstr(r + 1,x + 1) = V(x)
Next
Next
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
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
Else
Scrivi "Errore nel Download"
End If
Next
If nSalvate > 0 Then AllineaArchivi
Else
Scrivi "Errore nella creazione Dei File Necessari"
End If
Call Scrivi("Aggiornamento Lotto V.4.3 By Joe *** Utilizza Archivio lottoPython ***",1)
Call Scrivi("")
Call Scrivi("Estrazioni trovate in Archivio Remoto " & QuantitaEstrazioniInFile(sFileBd))
Call Scrivi("")
Call Scrivi("Archivio Locale Aggiornato all' Estrazione N° " & IndiceAnnuale(EstrazioniArchivio) & " del " & DataEstrazione(EstrazioneFin,,,"/"))
Call Scrivi("")
Call Scrivi("- Sono state Aggiunte " & nSalvate & " Estrazioni -",1,,,1)
Call Scrivi("")
End If
End Sub

 

[joe]

Nel menù "Base dati" di Spaziometria,

scegli Aggiornamento Lotto e poi Tronca Archivio.

Con la freccia alla sinistra della barra blu

RETROCEDI nelle date, fino a prima della estrazione mancante e confermi di voler cancellare.

Nella pratica ... tutto Aprile.

Riesegui lo stesso script che dovrebbe aggiungerti TUTTE le Estrazione mancanti.

Controlla anche che il piccolo imbuto in basso a sinistra (vicino alla scritta "archivio reale lotto" sia di colore verde.