Novità

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

Ringrazio e rinnovo gli auguri a tutte/i.

L'Archivio è stato leggermente modificato e lo script nella sua rigidità tipica dei computer,

non ritrovava più date ed estratti nella collocazione precedente.

Così modificato a me sta funzionando, anche se ho solo controllato che producesse un output.
Codice:
Option Explicit
Sub Main
     'Archivio_Lotto V.3.1 By Joe *** Utilizza Archivio LottoPython ***  - 24/12/2025 -
     'Script per Spaziometria By Joe.
     Dim sLink,sDir,sFileALP,sFileArc,sData,sEstr
     Dim K,R,X
     Dim sVV,V
     sLink = "https://raw.githubusercontent.com/Lottopython/exstrazionales/refs/heads/main/Estrazionales%20lotto.txt"
     sDir = GetDirectoryAppData & "Temp\"
     Messaggio "Archivio_Lotto V.3 By Joe *** Archivio LottoPython ***"
     If CreaDirectory(sDir) Then
          sFileALP = sDir & "ALP.txt"
          sFileArc = sDir & "Archivio.txt"
          Call EliminaFile (sFileArc)
          If DownloadFromWeb(sLink,sFileALP) Then
               ReDim aRighe(0)
               Call LeggiRigheFileDiTesto(sFileALP,aRighe)
               For K = 0 To UBound(aRighe) Step 12
                    sEstr = ""
                    AvanzamentoElab 1,UBound(aRighe),K
                    ReDim aV(0)
                    sData = Left(aRighe(K),2) & Mid(aRighe(K),4,2) & Mid(aRighe(K),7,4)
                    For R = 0 To 10
                         sVV = Right(aRighe(K + R),26)
                         V = Split(sVV,"    ") '4 Spazi
                         For X = 0 To 4
                              sEstr = sEstr &(V(X))
                         Next
                    Next
                    Call ScriviFile(sFileArc,sData & sEstr,False,True)
                    Call EliminaFile(sFileALP)
               Next
          End If
     End If
     Call LanciaFile (sFileArc)
End Sub

Sostanzialmente, prima leggeva dalla riga-uno adesso legge da riga-zero.

:)
Come posso apportare una piccola modifica, cioè iniziare ogni estrazione con inserendo 3 cifre del giorno esempio mer seguito dalla data divisa da un punto cioè : mer24.12.205 e a seguire tutto il resto. faccio l'esempio dell'ultima estrazione:
mar23.12.202557902243266222021118185601680925794888174910568301096367075010824278092912737462320943063845636758564351743201
Se si può mi puoi scrivere il rigo o le modifice che posso apportare al tuo script ? Grazie scusa per il disturbo e rinnovo un AUGURIO per le prossime festività a Te e Famiglia 👋
 
Ciao, grazie,

Mi è più veloce introdurre le piccole modifiche richieste che spiegarti come farle.

Anche perchè prima avrei dovuto applicarle allo script per vedere se funzionavano correttamente.

In sintesi lo script è questo :

Codice:
Option Explicit
Sub Main
     'Archivio_Lotto V.3.1 By Joe *** Utilizza Archivio LottoPython ***  - 24/12/2025 -
     'Script per Bubù By Joe.
     Dim sLink,sDir,sFileALP,sFileArc,sData,sEstr
     Dim K,R,X
     Dim sVV,V
     Dim D_E
     sLink = "https://raw.githubusercontent.com/Lottopython/exstrazionales/refs/heads/main/Estrazionales%20lotto.txt"
     sDir = GetDirectoryAppData & "Temp\"
     Messaggio "Archivio_Lotto V.3 By Joe *** Archivio LottoPython ***"
     If CreaDirectory(sDir) Then
          sFileALP = sDir & "ALP.txt"
          sFileArc = sDir & "Archivio.txt"
          Call EliminaFile (sFileArc)
          If DownloadFromWeb(sLink,sFileALP) Then
               ReDim aRighe(0)
               Call LeggiRigheFileDiTesto(sFileALP,aRighe)
               For K = 0 To UBound(aRighe) Step 12
                    sEstr = ""
                    AvanzamentoElab 1,UBound(aRighe),K
                    ReDim aV(0)
                    sData = Left(aRighe(K),2) & "/" & Mid(aRighe(K),4,2) & "/" & Mid(aRighe(K),7,4)
                    D_E = FormattaStringa (sData,"ddd")
                    sData = Left(aRighe(K),2) & "." & Mid(aRighe(K),4,2) & "." & Mid(aRighe(K),7,4)
                    Scrivi D_E & sData
                    For R = 0 To 10
                         sVV = Right(aRighe(K + R),26)
                         V = Split(sVV,"    ") '4 Spazi
                         For X = 0 To 4
                              sEstr = sEstr &(V(X))
                         Next
                    Next
                    Call ScriviFile(sFileArc,D_E & sData & sEstr,False,True)
                    Call EliminaFile(sFileALP)
               Next
          End If
     End If
     Call LanciaFile (sFileArc)
End Sub

Ho introdotto Data_Estrazione (D_E) per raccogliere il giorno nelle 3 lettere (ddd)

e dopo ho composto la data separando con un punto giorno, mese, anno.

:)
 
Ciao, grazie,

Mi è più veloce introdurre le piccole modifiche richieste che spiegarti come farle.

Anche perchè prima avrei dovuto applicarle allo script per vedere se funzionavano correttamente.

In sintesi lo script è questo :

Codice:
Option Explicit
Sub Main
     'Archivio_Lotto V.3.1 By Joe *** Utilizza Archivio LottoPython ***  - 24/12/2025 -
     'Script per Bubù By Joe.
     Dim sLink,sDir,sFileALP,sFileArc,sData,sEstr
     Dim K,R,X
     Dim sVV,V
     Dim D_E
     sLink = "https://raw.githubusercontent.com/Lottopython/exstrazionales/refs/heads/main/Estrazionales%20lotto.txt"
     sDir = GetDirectoryAppData & "Temp\"
     Messaggio "Archivio_Lotto V.3 By Joe *** Archivio LottoPython ***"
     If CreaDirectory(sDir) Then
          sFileALP = sDir & "ALP.txt"
          sFileArc = sDir & "Archivio.txt"
          Call EliminaFile (sFileArc)
          If DownloadFromWeb(sLink,sFileALP) Then
               ReDim aRighe(0)
               Call LeggiRigheFileDiTesto(sFileALP,aRighe)
               For K = 0 To UBound(aRighe) Step 12
                    sEstr = ""
                    AvanzamentoElab 1,UBound(aRighe),K
                    ReDim aV(0)
                    sData = Left(aRighe(K),2) & "/" & Mid(aRighe(K),4,2) & "/" & Mid(aRighe(K),7,4)
                    D_E = FormattaStringa (sData,"ddd")
                    sData = Left(aRighe(K),2) & "." & Mid(aRighe(K),4,2) & "." & Mid(aRighe(K),7,4)
                    Scrivi D_E & sData
                    For R = 0 To 10
                         sVV = Right(aRighe(K + R),26)
                         V = Split(sVV,"    ") '4 Spazi
                         For X = 0 To 4
                              sEstr = sEstr &(V(X))
                         Next
                    Next
                    Call ScriviFile(sFileArc,D_E & sData & sEstr,False,True)
                    Call EliminaFile(sFileALP)
               Next
          End If
     End If
     Call LanciaFile (sFileArc)
End Sub

Ho introdotto Data_Estrazione (D_E) per raccogliere il giorno nelle 3 lettere (ddd)

e dopo ho composto la data separando con un punto giorno, mese, anno.

:)
Purtroppo ho notato che ci sono degli errori in alcune estrazioni alcune ruote portano come estratti 000000000000000 invece dei numeri estratti e quindi non serve a nulla . Mi dispiace perchè sono soltanto in alcune estrazioni e non capisco perchè da correggere a mano è quasi un'impresa se non si può correggere aggiorno a mano ogni estrazione. Grazie e scusami 👋 Ti allego solo alcuni di questi :


gio21.08.202541552309540000000000237817358682150744701986227773394882701505258854875419246209298349597465014572551060885537
ven22.08.202500000000000000000000758278158018286037508406903640470953651474294050307905150826030260272659143270364809048852
sab23.08.202500000000000000000000575815454453338934770931360321823545066525408248622124745209287850908438870325415609425733
mar26.08.202500000000000000000000504837663132656115075059682627097180607256118201082065492767600310614717526283235346706878
gio28.08.202500000000000000000000155154817969843548263575073615884839196720731511708712221925476771811652754212737950213943
ven29.08.202500000000000000000000517478472414050866458448427036540362113222317857745417306513857667736340031248227713491084
sab30.08.202500000000000000000000494408686155054442625479117870237109144988072830263184354885394887162756358717735302907266
mar02.09.202500000000000000000000741143646243315505788604344559186905302620097680558926577546177435125418341940664914321907
gio04.09.202500000000000000000000374058642809696336647957108588535450136273368631325724138578240277811372865150257262290981
ven05.09.202500000000000000000000164421486046386111207507874465121548112217606462275017415661737833372806755069103451271453
sab06.09.202500000000000000000000842332268824274776445908061139026540285709665181497655738865384940219080603469428976648021
mar09.09.202500000000000000000000838678037729676625638566637560786075416949508834194047615709208642532833608375148781082278
gio11.09.202500000000000000000000127344360924225116462462775558414409355074621521418040270710773468172465591087113418773903
ven12.09.202532236902623954060553688402815263127490387619148132520904168442521112506476195711157702167124647425531216645281
sab13.09.202585574076149015686376817471250621474402068339318455744124473854256122686072385503104556546314386636288548382281
mar16.09.202526291810692835574417192949151723371390583384762479781503245680244108755562833469278069518489747282214520853367
gio18.09.202524270870687527642017532046143938727136652443761926327051234823735564626658154955842238296447525635890449675705
ven19.09.202560735986070715645912309027726623554518724537032105777513738334033979666962681783383108120942240961226831096090
sab20.09.202521505819402073244125754639297326384183637482294061633416813147276953216936490157000000000023706622028983240853
 
ciao Joe

c'è uno script come quello riportato sopra, che scarica l'archivio estrazioni del SuperEnalotto.
non mi interessano naturalmente i giorni della settimana.

se ce l'hai lo posteresti, lo adatterei in modo semplice per il mio archivio in twin basic.

grazie
 
Come mai non riesco più ad aggiornare con il tuo programma 4.1 ??
buongiorno @bubù mi spiace ma ho dovuto e rispondo per cortesia a chi l'ho ha usato , l'ho scritto sopra, i link github non sono piu raggiungibili per un motivi semplici:

Alcuni utenti privi di ogni buon senso e senza alcuna logica hanno lasciato messaggi del tipo le estrazioni sono sballate.
Altri utenti invece hanno evidenziato la possibilità di aggiornare da web correttamente

Ti assicuro che l'impegno e lo sviluppo di realizzazione è stato importante con tante righe di codice ma poco apprezzato ma questo poco importa.
L'importante è l'esserci riuscito

-Attualmente il codice non aggiorna le estrazioni nel del lotto ne del superenalotto . è possibile farlo a mano da web o con alcuni script che ho visto circolare o richiedere come si faceva prima.

-Al momento e nel tempo libero sto aggiornando il programma che sarà reso gratuito solo per chi me ne farà esplicita richiesta come ultimamente finziona per le estrazioni e le previsioni ad esse associate quest'ultime date solo su richiesta e inviate privatamente (senza alcuna critica ognuno decide come meglio procedere ci mancherebbe).

Inoltre nessuno ha contestato questi utenti o detto nulla in merito agli archivi e alle estrazioni possibili sballate per tanto l'ho preso come un silenzio assenso e ho dovuto bloccare tutto e a tempo libero ricontrollare tutto ,il tempo libero è davvero poco per tanto mi ci vorrà tempo e pazienza.

Nel caso ti dovessero servire le estrazioni aggiornate e in futuro il programma di aggiornamento ma per allora saranno usciti script utili a farlo
contattami su altri forum che sicuramente conosci per avere il materiale necessario .
buona giornata @bubù
con stima
senza alcuna polemica verso altri e senza ulteriori risposte a questa.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 13 gennaio 2026
    Bari
    75
    49
    05
    28
    85
    Cagliari
    85
    12
    67
    01
    71
    Firenze
    57
    03
    62
    72
    21
    Genova
    03
    12
    52
    30
    81
    Milano
    68
    02
    79
    08
    06
    Napoli
    60
    23
    16
    29
    19
    Palermo
    48
    89
    53
    15
    50
    Roma
    59
    21
    69
    15
    48
    Torino
    59
    74
    26
    85
    21
    Venezia
    04
    16
    53
    72
    71
    Nazionale
    78
    38
    40
    23
    13
    Estrazione Simbolotto
    Bari
    26
    43
    03
    22
    42
Indietro
Alto