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