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

[bubù]

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.

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

 

[joe]

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 :

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.

 

[bubù]

Grazie infinite e scusami per il disturbo

 

[ME MEDESIMO]

richiesta urgente mi sono accorto che il mio archivio spaziometrica lotto è tutto sballato qualcuno potrebbe gentilmente passarmelo?

 

[bubù]

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 :

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

 

[Lottopython]

ciao @bubù è un problema dell'archivio che sto risolvendo qualche minuto che aggiorna il server e vediamo come va.
buona domenica

 

[Lottopython]

bene l'archivio è ripristinato non dovresti avere piu gli errori riportati

 

[Lottopython]

 

[ME MEDESIMO]

E PER SPAZIOMETRICA?

 

[bubù]

Grazie

 

[Lottopython]

E PER SPAZIOMETRICA?

non ho capito cosa ti serve .forse intendi il file .dat per spaziometria ?

 

[ME MEDESIMO]

ho visto che le mie estrazioni non sono aggiornate bene e quindi vorrei caricarlo per intero

 

[ME MEDESIMO]

non ho capito cosa ti serve .forse intendi il file .dat per spaziometria ?

si è quello che mi serve

 

[kalat]

Le estrazioni sono sballate

 

[rubino2]

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

 

[galup]

buonanotte provi a vedere questo https://forum.lottoced.com/threads/...tria-da-spazio-web-silop.2201398/post-2771267
con poche modifiche lo usa per i suoi scopi

 

[Lottopython]

Le estrazioni sono sballate

come segnalato dal utente : stoppiamo gli aggiornamenti per spaziometria forever ,saluti

 

[bubù]

Le estrazioni sono sballate

Puoi per favore fare qualche esempio di quelle sballate? Grazie

 

[bubù]

come segnalato dal utente : stoppiamo gli aggiornamenti per spaziometria forever ,saluti

Come mai non riesco più ad aggiornare con il tuo programma 4.1 ??

 

[Lottopython]

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.