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

[geronimo]

ciao Joe ,volevo chiederti come mai da qualche tempo il tuo script per aggiornare le estrazioni del lotto non mi funziona più ?


ne uso un altro per aggiornare ma è lunghissimo da copiare, mentre il tuo è bellissimo e corto ...

'Agg_Lotto V.4.2 By Joe *** Archivio LottoPython *** - 06/01/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

Dim S: S = String(4," ")

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.2 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)

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,S) 'Spazio

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.2 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

SI è PER CASO PERSO QUALCHE BITE ? NEL PROMPT DI SPAZIO GIRA MA ALLA FINE DA NESSUNA ESTRAZIONE AGGIUNTA

GRAZIE E BUONA GIORNATA

 

[DjNomade]

Perche credo le le prenda da qui https://raw.githubusercontent.com/Lottopython/exstrazionales/refs/heads/main/Estrazionales lotto.txt

e vedi che non sono aggiornate
Ciauz

 

[joe]

Purtroppo gli script sono molto rigidi nell'interpretare le istruzioni.

C'è una incompatibilità tra come "Windows" considera finita una "linea di programma"

e da come invece la considerano finita altri "sistemi" poi non sempre ci sono dati disponibili ed aggiornati.

Basta appunto un ritardo nel fornire i dati necessari oppure uno "spazio" in più o in meno, un "ritorno a capo"

scritto diversamente e l'aggiornamento smette di funzionare perché "il tutto" non venga convalidato a diventare aggiornamento.

 

[geronimo]

'Aggiornamento Lotto Compatto - Versione Veloce 2026
Dim sFileBd, sLink, xmlHttp, txtData, aRighe, k, r, x, sVV, V, sCData, sData, sSigla
Dim nEstrTot, sDataLastEstr, b, id, z, nSalvate, CfrData, aCampi, c, sDataEstr
Dim aEstr(11,5)

sLink = "https://githubusercontent.com"
sFileBd = GetDirectoryAppData & "BaseDati.dat"
b = False: nSalvate = 0: sCData = ""

On Error Resume Next
Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
xmlHttp.Open "GET", sLink, False
xmlHttp.Send

If xmlHttp.Status = 200 Then
txtData = Replace(xmlHttp.ResponseText, vbCrLf, vbLf)
aRighe = Split(txtData, vbLf)

If UBound(aRighe) > 0 Then
nEstrTot = EstrazioniArchivio
sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
z = Right(sDataLastEstr,4) & "/" & Mid(sDataLastEstr,4,2) & "/" & Left(sDataLastEstr,2)
id = IndiceAnnuale(nEstrTot)

For k = 0 To UBound(aRighe)
If Trim(aRighe(k)) <> "" Then
aCampi = Split(aRighe(k), vbTab)
If UBound(aCampi) >= 6 Then
sData = Trim(aCampi(0))
sSigla = Trim(aCampi(1))

If sData <> sCData Then
If b And sCData <> "" Then
If Left(sCData,4) <> Left(sData,4) Then id = 0
id = id + 1: sDataEstr = Right(sCData,2) & "/" & Mid(sCData,6,2) & "/" & Left(sCData,4)
If SalvaEstrazione(aEstr, sDataEstr, id, sFileBd) Then nSalvate = nSalvate + 1
End If
If sCData = z Then b = True
ReDim aEstr(11,5): sCData = sData
End If

If sSigla = "BA" Then r = 1 Else If sSigla = "CA" Then r = 2 Else If sSigla = "FI" Then r = 3 _
Else If sSigla = "GE" Then r = 4 Else If sSigla = "MI" Then r = 5 Else If sSigla = "NA" Then r = 6 _
Else If sSigla = "PA" Then r = 7 Else If sSigla = "RM" Then r = 8 Else If sSigla = "TO" Then r = 9 _
Else If sSigla = "VE" Then r = 10 Else If sSigla = "RN" Then r = 11

For c = 1 To 5: aEstr(r,c) = Format2(CInt(Trim(aCampi(c + 1)))): Next
End If
End If
Call AvanzamentoElab(0, UBound(aRighe), k)
Next

If b And sCData <> "" Then
id = id + 1: sDataEstr = Right(sCData,2) & "/" & Mid(sCData,6,2) & "/" & Left(sCData,4)
If SalvaEstrazione(aEstr, sDataEstr, id, sFileBd) Then nSalvate = nSalvate + 1
End If
If nSalvate > 0 Then AllineaArchivi
End If
End If
Set xmlHttp = Nothing

If nSalvate > 0 Then
Call Scrivi("Aggiornamento completato con successo!", 1,, vbBlue)
Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni.")
Else
Call Scrivi("Nessuna nuova estrazione trovata. L'archivio è in pari!", 1,, 2)
End If

questa me l'ha riscritta l'IA questa sera vedo se aggiorna ... avendo già aggiornato con un altro script ... però l'ho fatta girare, non l'ha rifiutata e in un amen mi ha detto che l'archivio era aggiornato

 

[geronimo]

certo che chi avrebbe mai pensato che un giovincello di 72 anni avrebbe postato uno script senza capirci un tubo di informatica

 

[joe]

certo che chi avrebbe mai pensato che un giovincello di 72 anni avrebbe postato uno script senza capirci un tubo di informatica

Discorso lungo e difficile da affrontare ...

Si l' IA secondo istruzioni ricevute, depreca alcune procedure sostituendole con alternative più recenti.

Tuttavia esse non sono utilizzabili con le vecchie versioni dei sistemi operativi.

Lo script potrebbe funzionare, ma attualmente non funziona, anche per mancanza di dati disponibili.

Comunque si, è una alternativa valida alle routine cui Spaziometria ci aveva abituato e con le correzioni

che nel tempo (a partire dall'immediato) si renderanno necessarie potrà essere utile.

 

[Alien.]

Ho cancellato una cartella gialla dat. ti metto l'immagine controlla con il tuo vedi se...............riesci a vedere quella cancellata che manca però prima vai ad acquistare la "pazienza" ma credo che non ne hai bisogno.

NO joe non trovato stessa cosa :

 

[Alien.]

joe lo script che hai inserito mi ha cancellato tutto l'archivio superenalotto acc................

 

[Alien.]

adesso ho lanciato lo script che non mi da più nulla prima mi sviluppava tutto ho rinserito l'archivio ma nulla da fare hai l'antidoto ?

 

[Alien.]

Scarica tutto
cancella tutti i fle dat
incolla ciò che hai scaricato

279.93 MB folder on MEGA

33 files

mega.nz

cioè cancello tutto miei dati ed inserisco i tuoi ? poi perdo tutti gli script che ho ?

 

[Alien.]

l'archivio è presente. ma non mi sviluppa più gli script !!!

 

[geronimo]

'Aggiornamento Lotto Compatto - Versione Veloce 2026
Dim sFileBd, sLink, xmlHttp, txtData, aRighe, k, r, x, sVV, V, sCData, sData, sSigla
Dim nEstrTot, sDataLastEstr, b, id, z, nSalvate, CfrData, aCampi, c, sDataEstr
Dim aEstr(11,5)

sLink = "https://githubusercontent.com"
sFileBd = GetDirectoryAppData & "BaseDati.dat"
b = False: nSalvate = 0: sCData = ""

On Error Resume Next
Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
xmlHttp.Open "GET", sLink, False
xmlHttp.Send

If xmlHttp.Status = 200 Then
txtData = Replace(xmlHttp.ResponseText, vbCrLf, vbLf)
aRighe = Split(txtData, vbLf)

If UBound(aRighe) > 0 Then
nEstrTot = EstrazioniArchivio
sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
z = Right(sDataLastEstr,4) & "/" & Mid(sDataLastEstr,4,2) & "/" & Left(sDataLastEstr,2)
id = IndiceAnnuale(nEstrTot)

For k = 0 To UBound(aRighe)
If Trim(aRighe(k)) <> "" Then
aCampi = Split(aRighe(k), vbTab)
If UBound(aCampi) >= 6 Then
sData = Trim(aCampi(0))
sSigla = Trim(aCampi(1))

If sData <> sCData Then
If b And sCData <> "" Then
If Left(sCData,4) <> Left(sData,4) Then id = 0
id = id + 1: sDataEstr = Right(sCData,2) & "/" & Mid(sCData,6,2) & "/" & Left(sCData,4)
If SalvaEstrazione(aEstr, sDataEstr, id, sFileBd) Then nSalvate = nSalvate + 1
End If
If sCData = z Then b = True
ReDim aEstr(11,5): sCData = sData
End If

If sSigla = "BA" Then r = 1 Else If sSigla = "CA" Then r = 2 Else If sSigla = "FI" Then r = 3 _
Else If sSigla = "GE" Then r = 4 Else If sSigla = "MI" Then r = 5 Else If sSigla = "NA" Then r = 6 _
Else If sSigla = "PA" Then r = 7 Else If sSigla = "RM" Then r = 8 Else If sSigla = "TO" Then r = 9 _
Else If sSigla = "VE" Then r = 10 Else If sSigla = "RN" Then r = 11

For c = 1 To 5: aEstr(r,c) = Format2(CInt(Trim(aCampi(c + 1)))): Next
End If
End If
Call AvanzamentoElab(0, UBound(aRighe), k)
Next

If b And sCData <> "" Then
id = id + 1: sDataEstr = Right(sCData,2) & "/" & Mid(sCData,6,2) & "/" & Left(sCData,4)
If SalvaEstrazione(aEstr, sDataEstr, id, sFileBd) Then nSalvate = nSalvate + 1
End If
If nSalvate > 0 Then AllineaArchivi
End If
End If
Set xmlHttp = Nothing

If nSalvate > 0 Then
Call Scrivi("Aggiornamento completato con successo!", 1,, vbBlue)
Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni.")
Else
Call Scrivi("Nessuna nuova estrazione trovata. L'archivio è in pari!", 1,, 2)
End If

questa me l'ha riscritta l'IA questa sera vedo se aggiorna ... avendo già aggiornato con un altro script ... però l'ho fatta girare, non l'ha rifiutata e in un amen mi ha detto che l'archivio era aggiornato

Vedi l'allegato 2317294

non aggiorna peccato

 

[Alien.]

joe dopo il tuo script non mi sviluppa più gli script !!!

mi dice

C:/alien/appdata/roaming/spaziometria/basedati.dat.fil
(le barre sono in senso inverso sulla tastiera non so come si fa)

 

[joe]

non aggiorna peccato

Quello script, in realtà è un collage di cose vecchie e nuove

ed è stato creato per essere funzionante.

Siccome contiene una sorta di firma o impronta digitale è semplice riconoscere

dapprima la parte fatta da LuigiB e poi la mia.

Dunque riprendendo quanto ho già scritto, non è male.

Deve solo essere adattato per diventare funzionante.

Buona domenica a tutte/I.

 

[joe]

Alien, devi seguire passo-passo ed una sola guida alla volta,

dall'inizio alla fine.

Solo quando alla fine non hai risultati ti conviene cambiare guida e metodo.

Altrimenti diventi la Penelope che di notte disfa quanto fatto di giorno.

Lo script che ti ho dato genera un file bat sul desktop e lo esegue.

Eseguendolo scarica l'archivio del super nella cartella di spaziometria.

Non c'era da cancellare nulla!

C'è invece da controllare se c'è ed è stato scaricato l'archivio.

Lo script è quello al messaggio 1000 e la cartella in cui controllare dovrebbe essere quella che hai inerito al messaggio 9991.

Però considerando che li, ci sono molti file devi controllare che siano esatti nome, estensione, d8mensione e data del file.

Cioé se è stato scaricato l'archivio che serve a Spaziometria.

Se ti sono chiare queste indicazioni ti scrivo come fare per controllare.

 

[Reacher]

cioè cancello tutto miei dati ed inserisco i tuoi ? poi perdo tutti gli script che ho ?

Quelli in giallo vanno eliminati ma comunque hai un casino negli archivi e manca qualcosa ecco perchè propongo una installazione pulita da zero altrimenti non ne esci più
poi se vuoi tentare lo stesso:
Dovresti eliminare tutti i file degli archivi .dat e sostituirli con quelli scaricati....hai anche doppioni e collegamenti

279.93 MB folder on MEGA

33 files

mega.nz

 

[joe]

Reacher, sono anni ed anni che Alien non riesce ad aggiornare.

Dargli l'archivio non serve a nulla, perché di li a poco ... inizia a scrivere che non si aggiorna.

Non vuole perdere gli script e non vuole essere aiutato con AnyDesk.

Si tratta di cercare di mettere apposto quello che c'è con le poche risorse disponibili,

anche azzardando soluzioni, partendo dal poco che si riesce a capire nella molta confusione.

Come sai, tu stesso, hai già "risolto" alcune volte lo stesso problema che rimane irrisolto.

Giustamente c'è una moltitudine di file errati.

 

[joe]

La cartella che hai mostrato e riprodotto evidenzia molti file da cancellare.

Propongo di seguire queste indicazioni per portare alla luce molti dettagli non visibili.

Selezionando quanto indicato dalle frecce in alto e controllando quanto è presente

se è presente, quanto indicato dalle 4 frecce in basso.

Dopo aver selezionato una cartella qualsiasi scegliendo Visualizza è possibile accedere e modificare le Opzioni.

Cioè dapprima scegliere: Visualizza / Dettagli / Estensione nomi dei file.

Poi, che nella cartella AppData / Roaming / spaziometria ci sia la presenza del file BaseDatiSuperEna.Dat

Di questo file si deve controllare: la data ultima modifica / File DAT / 75 KB.

Se così è, probabilmente lo script ha scaricato/aggiornato l'archivio del SuperEnalotto

ed in subordine lo ha archiviato nella cartella giusta di Spaziometria.

Se non c'è questo file e/o ci sono differenze nel suo nome o ci sono incongruenze

nelle dimensioni e/o nella data vuol dire che il file non è aggiornato / o non é corretto / non é giusto.

Il nome del file deve essere scritto, rispettando correttamente Maiuscole, Minuscole e Punteggiatura.

 

[sandrino]

Ciao a tutti come devo fare ad aggiornare Spaziometria ? sono fermo al 2025 grazie a chi mi aiuta

 

[geronimo]

Ciao a tutti come devo fare ad aggiornare Spaziometria ? sono fermo al 2025 grazie a chi mi aiuta

lancia questo

Dim sDirTemp,sDirZip

Dim sLink

Dim sCData,nSalvate,sFileBd

Dim sDataEstr,sDataLastEstr

Dim nEstrTot,id,z,b

Dim aRighe,k

Dim sData,sSigla

Dim aEstr,r,c

Dim aCampi

Dim sCmd,sDestDir

Dim oShell,oFSO



' --- Percorsi file ---

sFileBd = GetDirectoryAppData & "BaseDati.dat"

sDirZip = GetDirectoryTemp & "storico.zip"

sDirTemp = GetDirectoryTemp & "storico.txt"



' --- Pulizia file temporanei ---

Call EliminaFile(sDirZip)

Call EliminaFile(sDirTemp)



' --- Download dello zip ufficiale BrightStar/LottoItalia ---

sLink = "https://www.brightstarlottery.it/STORICO_ESTRAZIONI_LOTTO/storico.zip"

Call Messaggio("Download archivio ufficiale in corso...")



If Not DownloadFromWeb(sLink,sDirZip) Then

Call Scrivi("ERRORE: impossibile scaricare il file zip dal sito LottoItalia.",True,,,vbRed)

Exit Sub

End If



' --- Decompressione zip -> storico.txt tramite PowerShell ---

Call Messaggio("Decompressione archivio...")



sDestDir = GetDirectoryTemp

' Rimuove eventuale backslash finale per PowerShell

If Right(sDestDir,1) = "\" Then sDestDir = Left(sDestDir,Len(sDestDir) - 1)

' --- Decompressione zip tramite Shell Nativa (Sostituisci il blocco precedente) ---

Call Messaggio("Decompressione archivio...")



Dim objShell, objSource, objTarget

Set objShell = CreateObject("Shell.Application")

Set objSource = objShell.NameSpace(sDirZip)

Set objTarget = objShell.NameSpace(GetDirectoryTemp)



If Not objSource Is Nothing Then

' Estrae tutto il contenuto dello zip nella cartella temp

objTarget.CopyHere objSource.Items, 256

Else

Call Scrivi("ERRORE: Impossibile leggere il file ZIP scaricato.",True,,,vbRed)

Exit Sub

End If



' Aspetta un secondo per assicurarsi che il file sia scritto sul disco

' Call Pausa(1)



Set oFSO = CreateObject("Scripting.FileSystemObject")

' Controllo se il file esiste (attenzione: verifica se si chiama STORICO.txt o storico.txt)

If Not oFSO.FileExists(sDirTemp) Then

' Prova a vedere se il file ha un nome diverso (es. tutto maiuscolo)

If oFSO.FileExists(GetDirectoryTemp & "STORICO.txt") Then

sDirTemp = GetDirectoryTemp & "STORICO.txt"

Else

Call Scrivi("ERRORE: il file storico.txt non trovato dopo la decompressione.",True,,,vbRed)

Set oFSO = Nothing

Exit Sub

End If

End If



If Not oFSO.FileExists(sDirTemp) Then

Call Scrivi("ERRORE: il file storico.txt non trovato dopo la decompressione.",True,,,vbRed)

Call Scrivi("Verificare che PowerShell sia disponibile e che lo zip contenga 'storico.txt'.",True)

Set oFSO = Nothing

Exit Sub

End If

Set oFSO = Nothing



' --- Lettura righe del file TXT ---

ReDim aRighe(0)

If Not LeggiRigheFileDiTesto(sDirTemp,aRighe) Then

Call Scrivi("ERRORE: impossibile leggere storico.txt.",True,,,vbRed)

Exit Sub

End If

Call EliminaFile(sDirZip)

Call EliminaFile(sDirTemp)



' --- Dati archivio corrente ---

nEstrTot = EstrazioniArchivio

sDataLastEstr = DataEstrazione(nEstrTot,,,"/")

' sDataLastEstr e' in formato GG/MM/AAAA

' Convertiamo in AAAA/MM/GG per confronto con il file

z = Right(sDataLastEstr,4) & "/" & Mid(sDataLastEstr,4,2) & "/" & Left(sDataLastEstr,2)

id = IndiceAnnuale(nEstrTot)

b = False



' --- Loop sulle righe del file ---

' Formato riga: AAAA/MM/GG [TAB] SIGLA [TAB] n1 [TAB] n2 [TAB] n3 [TAB] n4 [TAB] n5

' 11 righe consecutive con la stessa data = 1 estrazione

' Ordine sigle nel file: BA CA FI GE MI NA PA RM RN TO VE

' Ordine richiesto da Spaziometria (r=1..11): BA CA FI GE MI NA PA RO TO VE NZ

' Rimappatura necessaria: RM->r=8(RO), RN->r=11(NZ), TO->r=9, VE->r=10



ReDim aEstr(11,5)

sCData = ""



For k = 0 To UBound(aRighe)

If ScriptInterrotto Then Exit For



' Salta righe vuote

If Trim(aRighe(k)) = "" Then

' Se avevamo una estrazione in corso con tutti i dati, la salviamo

Else

' Splitta la riga per TAB

aCampi = Split(aRighe(k),vbTab)



If UBound(aCampi) >= 6 Then

sData = Trim(aCampi(0)) ' AAAA/MM/GG

sSigla = Trim(aCampi(1)) ' BA, CA, ... RM, RN, TO, VE



' --- Nuova data = nuova estrazione ---

If sData <> sCData Then

' Salva l'estrazione precedente solo se b=True E non e' quella di z

If b = True Then

If sCData <> "" Then

If Left(sCData,4) <> Left(sData,4) Then

id = 0

End If

id = id + 1

' Converti sCData da AAAA/MM/GG a GG/MM/AAAA

sDataEstr = Right(sCData,2) & "/" & Mid(sCData,6,2) & "/" & Left(sCData,4)

If SalvaEstrazione(aEstr,sDataEstr,id,sFileBd) Then

nSalvate = nSalvate + 1

Call Messaggio(nSalvate)

Else

ColoreTesto 2

Call Scrivi("ATTENZIONE: errore salvataggio estrazione " & sCData,True)

ColoreTesto 0

End If

End If

End If



' Se la data che STIAMO PER LEGGERE e' z, non ancora b=True

' b diventa True DOPO aver letto z, cioe' alla data successiva

If sCData = z Then b = True



' Reset matrice per nuova data

ReDim aEstr(11,5)

sCData = sData

End If



' --- Popola la riga corretta della matrice in base alla sigla ---

' Rimappatura sigle -> indice ruota Spaziometria

If sSigla = "BA" Then r = 1

If sSigla = "CA" Then r = 2

If sSigla = "FI" Then r = 3

If sSigla = "GE" Then r = 4

If sSigla = "MI" Then r = 5

If sSigla = "NA" Then r = 6

If sSigla = "PA" Then r = 7

If sSigla = "RM" Then r = 8 ' RM nel file = Roma = r=8 in Spaziometria

If sSigla = "TO" Then r = 9

If sSigla = "VE" Then r = 10

If sSigla = "RN" Then r = 11 ' RN nel file = Nazionale = r=11 in Spaziometria



' Popola i 5 estratti (Format2 restituisce stringa a 2 cifre)

For c = 1 To 5

aEstr(r,c) = Format2(CInt(Trim(aCampi(c + 1))))

Next

End If

End If



Call AvanzamentoElab(0,UBound(aRighe),k)

Next



' --- Salva l'ultima estrazione del file (se b=True) ---

If b = True Then

If sCData <> "" Then

id = id + 1

sDataEstr = Right(sCData,2) & "/" & Mid(sCData,6,2) & "/" & Left(sCData,4)

If SalvaEstrazione(aEstr,sDataEstr,id,sFileBd) Then

nSalvate = nSalvate + 1

End If

End If

End If



' --- Riepilogo ---

If nSalvate > 0 Then

AllineaArchivi

Call Scrivi()

Call Scrivi("Script per Spaziometria - Aggiornamento da LottoItalia/BrightStar",True,,,vbBlue)

Call Scrivi()

Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")

Call Scrivi()

Call Scrivi("Estrazioni totali: " & EstrazioniArchivio)

Call Scrivi()

Call Scrivi("Fonte: www.lotto-italia.it (archivio ufficiale BrightStar)")

Call Scrivi()

Call Scrivi("RAMCOLOTTO",True,,,vbBlue)

Else

Call Scrivi("NON HO TROVATO NUOVE ESTRAZIONI !",1,,,2)

End If