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

[Lottopython]

i PERCORSI

reset e tuo percorso.

 

[genios]

reset e tuo percorso.

sCUSAMI MA SONO DURO DI COMPRENDORIO DEVO PREMERE I TASTI RESET ?

 

[joe]

Eugenio, prova questo script.

Option Explicit
Sub Main
     'Archivio_Lotto V.3.0 By Joe *** Utilizza Archivio LottoPython ***  - 08/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"
          If DownloadFromWeb(sLink,sFileALP) Then
               ReDim aRighe(0)
               Call LeggiRigheFileDiTesto(sFileALP,aRighe)
               For K = 1 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 Scrivi ("Creato il File 'Archivio.txt' in : " & sFileArc)
End Sub