Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Purtroppo come detto mi sono accorto oggi che le estrazioni erano ferme al 6 di giugno, era un pò che non le aggiornavo.
Ma a te funziona l'aggiornamento da lottomatica?
Quindi allora di colpo il programma non funziona più bene nell'aggiornamento, giusto?
Nono, ti garantisco che a me l'ultima versione funzionava perfettamente da aggiornamento lottomatica, mi avuto problemi che invece ci sono come detto con aggiornamento archivi web.
ciao grazie del tuo lavoro , ma mi serve una mano a capire .... avendo 71 anni , mi difendo, ma con gli script sono una frana .... allora io ho copiato , incollato tra sub main e end sub ... ma poi come si lancia ? grazie per la tua risposta che attendo .... ( p.s. mi si era aggiornato fino al 14 06 .... poi non sono più riuscito ad aggiornare e così incautamente ho cliccato aggiorna da web .... eliminate tutte le estrazioni ...0000000 , ho disinstallato e reinstallato ma è fermo al 11 02 23 ) HELP
Ciao geronimo,ho eseguito la stessa procedura e anche a me esce la scritta NON HO TROVATO NUOVE ESTRAZIONI. Come diceva qualcuno " Quaqquadra non cosa"!se devo fare un altra procedura dimmi tu come ... sono poco pratico ... quando vuoi e puoi si intende grazie ancora
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 LottoProjeectLB.net V.1.0.38 ====================== Ciao @Mark555 , ====================== per prendere l'archivio del lotto dall'altro pc dove lo hai aggiornato al 17/06/2025 su SPMT segui questi semplici indicazioni: 1) apri SPMT (dove hai l'archivio aggiornato) clicca su "Base dati" 2) poi quasi infondo clicca su "Apri directory dati" 3) si apre una finestra dove ci sono gli archivi del lotto che tu hai aggiornati 4) seleziona e COPIA il file "BaseDati.dat" 5) lo metti lo INCOLLI su una chiavetta (o scheda) per poterlo trasportare sul pc diciamo "senza archivio" 6) inserisci la chiavetta (o una scheda) nel pc "senza archivio" 7) APRI IL PROGRAMMA SPMT e segui i punti 1) e 2) 8) si apre una finestra e qui 9) COPIA il file "BaseDati.dat" che hai sulla chiavetta 10) lo INCOLLI nella finestra appena aperta 11) se dice di SOVRASCRIVERE rispondi "SI" 12) chiudi SPMT e poi lo riapri di nuovo, se hai fatto TUTTO come ti ho consigliato, dovresti avere l'archivio del lotto AGGIORNATO. Fammi sapere. Poi siccome la Lottomatica ha ancora problemi, le estrazioni future le dovrai aggiornare con lo script di Joe che ti avevo allegato sopra. Preciso, inoltre, che il link che ti ha consigliato il bravo Joe non ti ha trovato niente è perché dovevi SOSTITUIRE la parolina "io" con il tuo nome che hai sul tuo pc. x duplex: il bravo programmatore LuigiB ha abbandonato la sua "creatura" SPMT da alcuni anni e difficilmente metterà di nuovo mano per aggiornare il link della Lottomatica. ====================== Comunque se trovi difficoltà con le informazioni sopra descritte mi puoi contattare che ti mando l'archivio del lotto aggiornato. Ringrazio per "i mi piace" : bubù ====================== Buon giovedì a tutto il forum. ====================== 
A presto Silop 
Un caro saluto a tutte/i.
'https://forum.lottoced.com/threads/aggiornamento-archivio-lotto-e-superenalotto-per-spaziometria-da-spazio-web-silop.2201398/post-2526199
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 SubLo script deve essere modificato a mano prima di lanciarlo.... Cioè dove leggi "anno - 1" ecco quell 1 indica che ti aggiornerà dal 2024.
